A teacher wants the program to:
show a visual representation of a multiplication
ask the child to key in an answer
E.G
3 x 4
What is the answer?
This is as far as I can go
Please help. I can't go horizontal. I only go vertical
Module Module1
Sub Main()
Dim a, b As Integer
Dim star As String = "*"
Dim rand As New Random
a = rand.Next(1, 10)
b = rand.Next(1, 10)
Console.WriteLine(a & " X " & b)
Dim sum As Double = a * b
Dim i, x As Integer
If a > b Then
i = b
Else
i = a
End If
For x = 1 To i
Console.Write(star)
Console.WriteLine(star)
Next
Console.WriteLine()
Console.WriteLine(sum)
Console.ReadKey()
End Sub
End Module