Question

如何用VB设计随机抽取人名程序？

我对VB属于一张白纸，所以请各位大神帮帮忙，能把程序程序怎么编的也给我说一下，谢谢了。

Answer 1

Sub ss()
Dim ss(50) As String
Dim MyValue

For i = 1 To 50
ss(i) = "李四" & i
Next
'可以单独给每个赋值，我这里为了方便循环一次性赋值了。
'ss(1)="zhangsan"
'ss(2)="lisi"

'vb中随机函数
'Int((upperbound - lowerbound + 1) * Rnd + lowerbound)这里，

'upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。

Randomize
MyValue = Int((rnd * (UBound(ss) - 1 + 1)) + 1)

MsgBox ss(MyValue)

End Sub

追问

那开始停止的代码是什么呢？？我真的不懂。还请说明白。谢谢了

Answer 2

首先建立一个二维数组然后一维放数字，一维放人名，生成0至数组上限直接的随机整数，然后根据数组获取人名就可以了。

Answer 3

'最简单的办法,添加一个列表框和一个按钮,按钮代码如下:
随机抽取的人名 = list1.list(int(rnd * list1.listcount))

追问

按钮的代码是什么呢？还请说明一下，谢谢

Answer 4

我也在纠结啊。等大神来回答