Question

单击“生成”按钮，则list中自动生成n组号码，文本框中显示n

a的范围是1~33，随机生成6个，b范围1~16，随机生成1个，每组号码就是六个a和一个b
1，单击“生成”按钮，则list中自动生成n组号码，文本框中显示n
2，单击“清除”按钮，本次生成数据作废，同时，清空列表框和文本框并将焦点设置在文本框
3，单击“保存”按钮，将生成的数据以文件名“test22，txt”存盘

若以下回答无法解决问题，邀请你更新回答

Answer 1

你的n太空泛

追问

n 要自己输入

追答

Private Sub Command1_Click()
For n = 0 To Int(Text1.Text)
For i = 0 To 5
a = Int(Rnd * 32 + 1)
Next
b = Int(Rnd * 15 + 1)
Next
List1.AddItem a & b
End Sub
Private Sub Command2_Click()
List1.Clear
End Sub