Private Sub 开始_Click()
停止.Enabled = True
Dim a As Integer
Randomize
Do
a = Fix(Rnd * 10 + 1) '随机产生一个1~10的数赋给a
抽取框.Text = a
结果框.Text = ""
DoEvents
Loop
End Sub

Private Sub 停止_Click()
结果框.Text = 抽取框.Text
已抽题目 = 已抽题目 + 抽取框 + "#"
停止.Enabled = False
End

End Sub

Private Sub 打开抽取的题目_Click()
ActivePresentation.SlideShowWindow.View.GotoSlide Val(抽取框.Text + 1)

End Sub

可以借鉴排序中的“冒泡”。
10个编号10个题， 存放在一个a（10）数组中
第一次随机数1~10，抽中之后，将这个数a(i1)与a(10)调换。
第二次随机数生成就改成1~9，抽中之后，将这个数a(i2)与a(9)调换。
依次类推。

当然，你也可以用判断，如果重复则此次抽取无效，重新抽。不过这样笨一点。

收到的鲜花

• xzlxzlxzl 于 2016-12-06 09:36 送鲜花  10朵   附言：提点很到位！

谢谢啦，真的是醍醐灌顶了

10个题不重复，不是特别难的问题。
一会给你做一个100题中选择20题，不重复的程序，供你参考。

选择好20个试题的界面

选择好20个试题的排序界面

已经做好了，联系我，给你发到 QQ

[此贴子已经被作者于2016-12-5 21:42编辑过]