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)
If ② Then
List1. AddItem“(”+Str(i)+“)”+Str(a)+“+”+Str(b)+“=”
i=i+1
End if
Loop
End sub
① ②