vb代码,急 a) 单击“生成”按钮,生成100个三位随机整数,分别将其中的偶数与奇数显示在二个列表框中 b)

2024-12-30 10:42:20
推荐回答(2个)
回答1:

生成按钮代码:

Private Sub Command1_Click()
Randomize
For i = 1 To 100
t = Int(Rnd() * 900 + 100)
If t Mod 2 = 0 Then
List1.AddItem t
Else
List2.AddItem t
End If
Next i
End Sub
我已近法测试过了。

回答2:

up