求VB程序:输入多个数字随机选取1个

来源：百度知道 编辑：UC知道 时间：2024/06/04 18:10:40
首先要求用户输入多个数字(用Inputbox).数字之间用"." 隔开,然后在列表框中列出所需要选择的数字,然后再从这些数字里面任意选择一个并且输出,显示在标签上.需要可以重复使用..就是每按1次就从列表中挑选1个并且输出! 一定要快哈!!!!!!如果答案好的话我会有追加!
再输出结果的时候希望再添加1个按钮,也就是随机选取的按钮!!!!!!!谢谢了!!!!!!!!!

Private Sub Command1_Click()
Randomize
Label1.Caption = List1.List(CInt(Rnd * (List1.ListCount - 1)))
End Sub

Private Sub Form_Load()
Dim str As String
Dim str1() As String
str = InputBox("请输入数字,以'.'隔开", "输入数字")
str1 = Split(str, ".")
For i = 0 To UBound(str1)
List1.AddItem str1(i)
Next

Randomize
Label1.Caption = List1.List(CInt(Rnd * (List1.ListCount - 1)))

End Sub

Private Sub Command1_Click()
list1.clear
s$ = InputBox("输入一些数字:")
m = Split(s$, ",") '以逗号为分隔
For i = 0 To UBound(m)
List1.AddItem m(i)
Next i
End Sub

Private Sub List1_Click()
Label1.Caption = List1.Text
End Sub