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 我已近法测试过了。