求助，如何实现抽题只抽到指定题号。

小猪囖囖发表于: 2011-9-20 14:51 来源: 扑奔PPT网

各位大大，麻烦帮我看看如何书写宏解决此问题。
共70题，现在想实现在抽题时只抽到5，15，20，25题。谢谢啦

求助，如何实现抽题只抽到指定题号。 (61.7 KB, 下载次数: 17)

大家对求助，如何实现抽题只抽到指定题号。的评论

laose 发表于 2011-9-20 18:05:56: Private Sub CommandButton1_Click()
CommandButton2.Enabled = True
Dim a As Integer
Randomize
Do
      a = CInt(1 + 4 * Rnd) * 5
      TextBox1.Text = a
      TextBox2.Text = ""
      DoEvents
Loop
End Sub

Private Sub CommandButton2_Click()
TextBox2.Text = "您选择的是 " & TextBox1.Text + " 号题！"
TextBox3.SelText = TextBox1.Text & Space(4)
CommandButton2.Enabled = False
End
End Sub

Private Sub CommandButton3_Click()
TextBox3.Text = ""
End Sub
小猪囖囖发表于 2011-9-20 18:36:02: 谢谢版主，继续问一下，如果是要选指定的20个没有规律的数字怎么办呢？例如6 7 9 10 11 15 16 17 19 20 21 33 38 39 40 41 42 50 58 66 该怎么办呢？我是小白，谢谢帮助！