Private Sub Command1_Click( )
Dim n As Integer,i As Integer,a As Integer,b As Integer
Randomize
n=Val(Text1.Text)
i=
Do While i<=n
a=Int(Rnd*100)
b=Int(Rnd*100)
IfThen
List1.AddItem“(“+Str(i)+”)“+Str(a)+”+“+Str(b)+”=”
i=i+1
End If
Loop
End Sub