Random and MethodNext

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

Thread Moved

Quote:

---

Originally Posted by electro53

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?

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

Code:

---

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

---

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

Code:

---

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

---

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