求一个VB写一个随机点名器，51个学号里随机抽一个

还有抽取的数字不显示29（不要在意这些细节）

Dim a As Integer
Do While a = 9 Or a = 0
Randomize
a = Int(Rnd * 51 + 1) '生成随机数 1~51
Loop
MsgBox "学号为：" & a

'这样写吧，用循环，当生成的学号为9时，继续循环生成学号，直到学号不为9，这样就永远也叫不到你了，呵

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有任何问题能够帮助您请追问 再看看别人怎么说的。