Question

急急急！我想在ppt播放时能够课堂随机点名的vb代码。就是在ppt里支持的vb编程，然后界面可以在播放时显示

比如你放到某张ppt，然后通过点击ppt上的按钮，随机一个名字，来实现随机点名。因为后天要用，怕得不到答复，我暂时只放上50分，如果你及时解决我的问题，我就追加能够追加的最大分数，决不食言！

Answer 1

建个按钮建个文本框，这是随机抽取1到6学号的示例
Private Sub CommandButton1_Click()

TextBox1.Text = Int((6 * Rnd) + 1)
End Sub

追问

改成名字 比如说张三 李四 怎么弄呢。。

追答

那就麻烦大了，呵呵，先要数据结构，再录入学生名单，再调用，呵呵
先给个非结构化的4个学生答案哈，记得+分
Private Sub CommandButton1_Click()

Dim MyRecord(1 To 4) As Record ' 声明变量

MyRecord(1).ID = 1
MyRecord(1).Name = "Z3"
MyRecord(2).ID = 2
MyRecord(2).Name = "L4"
MyRecord(3).ID = 3
MyRecord(3).Name = "W5"
MyRecord(4).ID = 4
MyRecord(4).Name = " Z6"
A = Int((4 * Rnd) + 1)
TextBox1.Text = MyRecord(A).Name
End Sub
模块里写
Type Record ' 定义用户自定义数据类型。
ID As Integer
Name As String * 20
End Type