如何用VB编一个随机点名册

不知道你要做什么。随机点名用Select Case 要命啊，输入64个Case，你不嫌麻烦？最好的办法是将姓名放入数据库然后随机读取。如果你对VB *** 作数据库不熟悉。给你个简单办法。

dim name(1 to 64) as String

Dim b As Single

'这里你将64个人名字放到数组name里例如

name(1)="张三"

name(2)=“李四”

………………

'然后生成随机数

Randomize

b = Int(Rnd() * 64) + 1

Text1.Text = nane(b)

确保不重复的情况下 给这个键做索引 或者 在匹配步骤上将数据库的所有数值分批次取出存入到缓存中 利用高IO去完成匹配。

另外 关于 7位数字的生成 可以以1000000为基础去自增的形式生成。按照你的随机数理念 越到后面count的效率越低。

1、使用Word制作随机抽取名单。

将需要随机抽取名单的姓名或编号，复制粘贴到Word文档中（新建一个Word文档）。

格式要求每个姓名或编号单独占一行。可用回车键(Enter)将名单分开。

2、新建一个ppt文件，点击左上角“ 文件-”，点击“打开”，选择“所有文件”，找到刚刚制作的Word文档。

3、点击确定后将会开始加载word文档转换为PPT。

加载后会再加载一个PPT文件，演示文档2。将窗口移到此文件中。

4、依次点击“视图”，“幻灯片母版” ，翻到最后一个板式（标题和文本）

删除此版式中下方四个文本框，仅留上方一个含有“单击此处编辑母版标题样式”的文本框

删除下方四个。

5、删除此版式中下方四个文本框，仅留上方一个含有“单击此处编辑母版标题样式”的文本框。

6、将仅留的文本框移动到中心。并修改其中文本格式，修改到自己所需的样式（居中，文本大小等）。

7、调整好后，点击“关闭母版视图”。

8、设置幻灯片放映设置。首先在左方缩略图中选中第一张幻灯片，然后使用快捷键“Ctrl+A”选中所有幻灯片缩略图

9、依次点击“切换”，“计时”。换片方式中选中“设计自动换片时间并看时间是否为00:00:00”,取消“单击鼠标时”选框（可省略）。

10、接着再依次点击“幻灯片放映”,"设置幻灯片放映。在其中的放映选项中选择“循环放映，按ESC键终止”，点击确定。

`

10，此时已设置完成

可点击幻灯片放映或（F5），如果是笔记本可用组合键“Fn+F5”。自动轮播后，可点击方向上键或左键暂停，使用下键和右键继续。

---