用VB 做一个随机抽名字。随机从所有人名字里中选取4个人的名字,这4个人不能重复。

按钮两个,一个“开始”,按后然后开始滚动;还有一个“停止”,按后显示出4个人的名字。做精致点,急用!多谢!如何满意!可以多加分数!最好直接发我邮箱:csxknx@qq.c... 按钮两个,一个“开始”,按后然后开始滚动;还有一个“停止”,按后显示出4个人的名字。做精致点,急用!多谢!如何满意!可以多加分数!最好直接发我邮箱:csxknx@qq.com
我要代码 可以改的
展开
 我来答
hejian511
2011-10-10 · TA获得超过846个赞
知道大有可为答主
回答量:1559
采纳率:0%
帮助的人:1473万
展开全部
Dim sName(20) As String '存储用户名的数组

Private Sub Command1_Click()
'启用动态效果
Timer1.Enabled = True
End Sub

Private Sub Command2_Click()
Dim n(4) As Integer '存放抽取的人员
For Each x In n '赋值为后面的有效性验证做准备
x = 21
Next
Dim temp As Integer
For i = 0 To 3
Loop1: temp = Int(Rnd * 20) '抽取随机人员
For Each x In n ' 用跳转实现无重复有效性验证
If temp = x Then GoTo Loop1
Next
n(i) = temp
Next
Timer1.Enabled = 0
Label1.Caption = "中奖人员名单 " & vbCrLf & sName(n(0)) & vbCrLf & sName(n(1)) & vbCrLf & sName(n(2)) & vbCrLf & sName(n(3))
End Sub

Private Sub Form_Load()
'基本控件属性赋值
Command1.Caption = "开始抽奖"
Command2.Caption = "停止抽奖"
Label1.Caption = "准备抽奖"
Label1.AutoSize = True
Timer1.Enabled = 0

'计时器赋值,产生动态效果
Timer1.Interval = 100
'给数组加上20个名字方便测试 ,这里可以自己用Array修改数组内容
For i = 0 To 19
sName(i) = "张 " & i
Next
End Sub

Private Sub Timer1_Timer()
'这里用来显示一个动态抽取效果
Label1.Caption = sName(Int(Rnd * 20))
End Sub
另附件己发送
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
就九佳
2011-10-10 · TA获得超过142个赞
知道答主
回答量:178
采纳率:0%
帮助的人:201万
展开全部
查收:抽奖123.rar。
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
掌麦冬01u
2011-10-10 · TA获得超过131个赞
知道小有建树答主
回答量:120
采纳率:0%
帮助的人:139万
展开全部
按下键盘,或者按下鼠标,开始滚动
放开键盘,或者放开鼠标,定格停止
按文件《摇奖名单.txt》格式写名单
已发到楼主邮箱
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友bdb9803
2011-10-10 · TA获得超过1.1万个赞
知道大有可为答主
回答量:1.1万
采纳率:53%
帮助的人:1亿
展开全部
先把所有名字列出来
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 2条折叠回答
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式