Question

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

Answer 1

很简单啊,比如你要从5个人名:张三,李斯,王五,马六,田七
你产生1-5个数字:一一对应就行了,如果产生的随机数是1
那么label1.caption="张三",以此类推!
例子:
private
sub
command1_click()
randomize
select
case
int(rnd
*
5
+
1)
case
1
label1.caption
=
"张三"
case
2
label1.caption
=
"李斯"
case
3
label1.caption
=
"王五"
case
4
label1.caption
=
"马六"
case
else
label1.caption
=
"田七"
end
select
end
sub

Answer 2

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