Private Sub Command1_Click()
Dim n, i, a, b As Integer Randomize list1.Clear n = i = 0
Do While i < n a = Int(rnd * 100) b = Int(rnd * 100) If b <> 0 Then if then i = i + 1
list1.AddItem Str(i) + "、" + Str(a) + "/" + Str(b) + "="
End If
End If
Loop
End Sub