MODULE PERKALIAN


NAMA : VASKO EDO GULTOM
NIM : 071402009

1.UNTUK MODULE PERKALIAN

Module Module1

Sub Main()
Dim 1 as Integer
Dim 2 as Integer
Dim 3 as Integer
Dim 4 as Integer

num 1 = (math.Abs (“9 + 1)
num 2 = (Math.random (“9 + 1)
num = num r * num 2
While (num rnd=1)
Console.WriteLine(“how much is” & num 1 & “TIMES” num 2 & n”)
user = InputBox.nextint()
If
(user = num) Then
Console.WriteLine(“very good”)
Bol = True

Else
Console.WriteLine(“no.please try again”)
End If
System.Console.ReadLine()
End While

End If

End Sub

End Module
Hasil gambar sebagai berikut:

2. UNTUK MODULE PERTAMBAHAN

Module Module1

Sub Main()
Dim 1 as Integer
Dim 2 as Integer
Dim 3 as Integer
Dim 4 as Integer

num 1 = (math.Abs (“9 + 1)
num 2 = (Math.random (“9 + 1)
num = num r + num 2
While (num rnd=1)
Console.WriteLine(“how much is” & num 1 & “TIMES” num 2 & n”)
user = InputBox.nextint()
If
(user = num) Then
Console.WriteLine(“very good”)
Bol = True

Else
Console.WriteLine(“no.please try again”)
End If
System.Console.ReadLine()
End While

End If

End Sub

End Module

3. UNTUK MODULE PENGURANGAN

Module Module1

Sub Main()
Dim 1 as Integer
Dim 2 as Integer
Dim 3 as Integer
Dim 4 as Integer

num 1 = (math.Abs (“9 + 1)
num 2 = (Math.random (“9 + 1)
num = num r – num 2
While (num rnd=1)
Console.WriteLine(“how much is” & num 1 & “TIMES” num 2 & n”)
user = InputBox.nextint()
If
(user = num) Then
Console.WriteLine(“very good”)
Bol = True

Else
Console.WriteLine(“no.please try again”)
End If
System.Console.ReadLine()
End While

End If

End Sub

End Module
4. UNTUK MODULE PENGURANGAN

Module Module1

Sub Main()
Dim 1 as Integer
Dim 2 as Integer
Dim 3 as Integer
Dim 4 as Integer

num 1 = (math.Abs (“9 + 1)
num 2 = (Math.random (“9 + 1)
num = num r – num 2
While (num rnd=1)
Console.WriteLine(“how much is” & num 1 & “TIMES” num 2 & n”)
user = InputBox.nextint()
If
(user = num) Then
Console.WriteLine(“very good”)
Bol = True

Else
Console.WriteLine(“no.please try again”)
End If
System.Console.ReadLine()
End While

End If

End Sub

End Module

5.UNTUK MODULE PENGURANGAN

Module Module1

Sub Main()
Dim 1 as Integer
Dim 2 as Integer
Dim 3 as Integer
Dim 4 as Integer

num 1 = (math.Abs (“9 + 1)
num 2 = (Math.random (“9 + 1)
num = num r : num 2
While (num rnd=1)
Console.WriteLine(“how much is” & num 1 & “TIMES” num 2 & n”)
user = InputBox.nextint()
If
(user = num) Then
Console.WriteLine(“very good”)
Bol = True

Else
Console.WriteLine(“no.please try again”)
End If
System.Console.ReadLine()
End While

End If

End SubEnd Module

Tinggalkan Balasan

Please log in using one of these methods to post your comment:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s