Random and MethodNext

[electro53]

I am new to coding and I some advice with coding a math equation (multiplaction)using RandomObject.Next

This my statements:

Module MathQuiz
Sub Main()
'create random Mathequation
Dim randomObject As New Random()
Dim randomNumber As Integer = randomObject.Next() 'generate random number
Dim j As Integer
Dim k As Integer

'generate 20 random numbers between 1 and 15
For j As Integer = 1 To 15

Next
Console.Write()

For k As Integer = 1 To 15
Console.Write("randomObject.Next, k = 7")

If j And k Mod 15 = 0 Then

Console.WriteLine()
Console.ReadLine()

End If
Next

End Sub

End Module 'MathQuiz

[RobDog888]

Thread Moved

[jemidiah]

I am new to coding and I some advice with coding a math equation (multiplaction)using RandomObject.Next ...

There's no question here... could you be more specific?

[soft903]

Hi,

Don't know what you are doing, but for the part you want to generate 20 random numbers between 1 and 15

try this

For j As Integer = 1 To 20
    Console.Write(randomObject.Next(1,15+1))
    ' Public Overridable Function [Next](ByVal minValue As Integer, ByVal maxValue As Integer) As Integer
    ' returns greater than or equal to minValue and less than maxValue
    ' the range of return values includes MinValue but not MaxValue.
    ' that's why (15+1), NOT 15
Next

[Code Doc]

Seems easier to do in VB6. Build a form with a listbox to hold the numbers:

Private Sub Form_Load()
Randomize
For I = 1 To 20
    List1.AddItem Str$(Int(Rnd * 15) + 1)
Next
End Sub

[RobDog888]

20 random numbers between 1 and 15 would generate some dups.