求一个VB写一个随机点名器，51个学号里随机抽一个
答案:2 悬赏:70 手机版
解决时间 2021-04-11 04:55
- 提问者网友：趣果有间
- 2021-04-10 20:20
还有抽取的数字不显示29（不要在意这些细节）
最佳答案
- 五星知识达人网友：躲不过心动
- 2021-04-10 20:41
Dim a As Integer
Do While a = 9 Or a = 0
Randomize
a = Int(Rnd * 51 + 1) '生成随机数 1~51
Loop
MsgBox "学号为：" & a
'这样写吧，用循环，当生成的学号为9时，继续循环生成学号，直到学号不为9，这样就永远也叫不到你了，呵
Do While a = 9 Or a = 0
Randomize
a = Int(Rnd * 51 + 1) '生成随机数 1~51
Loop
MsgBox "学号为：" & a
'这样写吧，用循环，当生成的学号为9时，继续循环生成学号，直到学号不为9，这样就永远也叫不到你了，呵
全部回答
- 1楼网友：从此江山别
- 2021-04-10 20:49
Private Sub Form_Load()
error:
Randomize
Dim a As Integer
a = Int((51 - 1 + 1) * Rnd + 1)
if a = 29 then goto error
MsgBox "随机产生的学号为：" & a
End Sub有任何问题能够帮助您请追问
再看看别人怎么说的。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯