早教吧 育儿知识 作业答案 考试题库 百科 知识分享

用VB编写程序,随机生成20个三位正整数,将其中的奇数与偶数分别输出到两个列表框中.VB

题目详情
用VB编写程序,随机生成20个三位正整数,将其中的奇数与偶数分别输出到两个列表框中.
VB
▼优质解答
答案和解析
Private Sub Command1_Click() Dim s As Integer, i As Integer For i = 1 To 20 Randomize s = Int(Rnd * 900 + 100) If s Mod 2 = 0 Then List2.AddItem s Else List1.AddItem s Next i End Sub