Question

如何用VB编写一个简单的选号器？就是点击然后程序随机帮选出一个数

如何用VB编写一个简单的选号器？就是点击然后程序随机帮选出一个数。。。有个框可以输入几十几，，然后点击选号可以选出要的号码的。。。这要怎么的代码，，，，，，，还有倘若要显示一个号码对于几个文字的话要加什么代码。。。

Answer 1

如何用VB编写一个简单的选号器？就是点击然后程序随机帮选出一个数。。。
就是随机生成一个数字啊，代码：

int(rnd*100) '生成0-99之间的一个数

有个框可以输入几十几，，然后点击选号可以选出要的号码的。。。这要怎么的代码，，，，，，，

这不是就是显示你输入的几十几吗，这不是随机生成，这分明是作弊啊。
就是把你输入的数字显示出来啊。
aa = InputBox("输入你的几十几的数")
MsgBox aa, vbInformation, "中奖号码是："

还有倘若要显示一个号码对于几个文字的话要加什么代码。。。

不需要加啊，如上：
MsgBox aa, vbInformation, "中奖号码是："

追问

。。。。。。大概是这样的，，，就是要一个软件随机选择学号，，，然后，因为总共有几个学生不确定，所以，，最好可以在软件窗口设置一个框，用于填写有几个人的，然后随机进行选号，，，(比方说，打开软件，填入56，然后点选号，会在1到56之间进行随机选号)。。。。。。另外，可不可以现实随机产生的学号的同时出现姓名？。。。。。。

追答

aa = InputBox("输入你的几十几的数")

aa = int(rnd*aa) '生成0-aa之间的一个数
MsgBox aa, vbInformation, "中奖号码是："

另外，可不可以现实随机产生的学号的同时出现姓名？。。。。。。

这个就不能这样实现了，你总得要有学号对应有姓名吧。。。这些都是要先输入好了，一般都是做数据库的，而不是你这样还要输入多少人再抽的。。。

追问

对于姓名的那个嘛，是自己班用，，，，，，能不能就是在那串代码下，直接把他们输入，“1”＝“xxx”什么的，还是要用到什么。。。

追答

如果要你自己输入不是不可以，只是一个太慢，也不能重复用，没有多大意思。

eraa:
aa = InputBox("请输入共有几个人")
If IsNumeric(aa) = False Then GoTo eraa
Dim rs() As String
ReDim rs(aa)
For i = 0 To aa - 1
ername:
rs(i) = InputBox("请输入第" & i + 1 & "个人的姓名")
If rs(i) = "" Then GoTo ername
Next i
aa = Int(Rnd * aa) '生成0-aa之间的一个数
MsgBox "第" & aa & "号，姓名：" & rs(aa - 1), vbInformation, "中奖的是："

话说，都解说了这么多了，觉得有用请采纳，觉得没用，那就不要问了。OK？

追问

不管怎样，，都要谢谢啦。。。~

追答

代码上面都已经给出来了。请参考。

Answer 2

选啥号？手机号？

追问

。。。。。。大概是这样的，，，就是要一个软件随机选择学号，，，然后，因为总共有几个学生不确定，所以，，最好可以在软件窗口设置一个框，用于填写有几个人的，然后随机进行选号，，，(比方说，打开软件，填入56，然后点选号，会在1到56之间进行随机选号)。。。。。。另外，可不可以现实随机产生的学号的同时出现姓名？。。。。。。

追答

俺可以实现吧，比较easy