在vb中编译和提取名字的代码

在表单上添加一个文件框(Text1)、一个组合框(Combo1)和一个按钮(Command1)(注意VB6中的按钮叫Command)。

然后粘贴下面的代码，

私有子命令1_Click()

将I标注为整数

随机化(计时器)

i = Int(Rnd * 31)

Text1。Text = Combo1。列表(一)

末端接头

私有子窗体_Load()

将I标注为整数

Combo1。可见=假

对于i = 0到29

Combo1。AddItem InputBox("请输入学生的姓名")

然后

末端接头

计划实施:

加载时，依次输入30个人的名字。每次点击按钮，文本框中会随机显示一个人的名字(Text1)。