如何用vb做抽名字的程序（不是抽号）

来源：百度知道 编辑：UC知道 时间：2024/05/28 13:42:11
抽中的名字要出现在TEXT中，且将原来的覆盖。最好要能够自行滚动就和摇号类似。

Option Explicit
Dim n

Private Sub Form_Click()
Dim i As Integer
i = Int(Rnd * (UBound(n) + 1))
Print n(i)
End Sub

Private Sub Form_Load()
Randomize
n = Array("张三", "李四", "王五", "名字四", "名字五", "名字六") '自己添加
End Sub

原理和抽号一样：
print int(Rnd*5)

改成抽名字，只需稍作修改
print getname(int(Rnd*3 + 1))
另外增加一个函数
function getname(x as long)
select case x
case 1
getname = "张三"
case 2
getname = "李四"
case 3
getname = "王五"
case 4
getname = "lyflyflee"
case else
end function

把名字存放到数组中，然后用随机函数得到一个数组下限到数组上限的整数，Print这个元素就可以了

呵呵，有一个现成的。
可以使借鉴一下：http://hi.baidu.com/st%5Fheping/blog/item/a74b7117aeb80011972b43b1.html