VB6 trouble

In Visual Basic 6 I want to create a program that will select 1 of 25 questions choosen by 1 of 25 non-repeating random numbers

So what is the problem?

And what PLC are you using?

Try This.

Private Sub cmdRun_Click()
Dim i As Integer
Dim Max As Integer
Dim Min As Integer
Max = 25
Min = 1
i = (Int((Max - Min + 1) * Rnd + Min))
mySelect (i)
End Sub

Private Sub mySelect(ByVal myNr As Integer)
Select Case myNr
Case 1
MsgBox "Question 1"
Case 2
MsgBox "Question 2"
'.
'.
'.
'.
Case 25
MsgBox "Question 25"
End Select

Jesper

I normally add the randomize timer line in this kind of software


Randomize Statement Example

This example uses the Randomize statement to initialize the random-number generator. Because the number argument has been omitted, Randomize uses the return value from the Timer function as the new seed value.

Dim MyValue
Randomize ' Initialize random-number generator.
MyValue = Int((6 * Rnd) + 1) ' Generate random value between 1 and 6.

Add a Button and a label to test the code for yourself. This
code generates 25 numbers 1-25 and stores then in the variable "num". The Constant SIZE can be changed if you need to generate more numbers.

Option Explicit
Const SIZE = 25
Dim num(SIZE) As Integer

Private Sub Command1_Click()
Dim i, j As Integer
Dim duplicate As Integer
Dim MyValue

For i = 0 To SIZE - 1
duplicate = 0
Randomize ' Initialize random-number generator.
' Generate random value between 1 and 25.

MyValue = Int(((SIZE) * Rnd) + 1)
num(i) = MyValue
For j = 0 To i - 1
If num(i) = num(j) Then
duplicate = 1
End If
Next

If (duplicate = 1) Then
i = i - 1
End If

Next

Dim MyString As String
MyString = ""
For j = 0 To SIZE - 1
MyString = MyString & "," & num(j)
Next
Label1 = MyString

End Sub