![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
用VB 做一个随机抽名字。随机从所有人名字里中选取4个人的名字,这4个人不能重复。
按钮两个,一个“开始”,按后然后开始滚动;还有一个“停止”,按后显示出4个人的名字。做精致点,急用!多谢!如何满意!可以多加分数!最好直接发我邮箱:csxknx@qq.c...
按钮两个,一个“开始”,按后然后开始滚动;还有一个“停止”,按后显示出4个人的名字。做精致点,急用!多谢!如何满意!可以多加分数!最好直接发我邮箱:csxknx@qq.com
我要代码 可以改的 展开
我要代码 可以改的 展开
4个回答
展开全部
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
另附件己发送
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
另附件己发送
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
查收:抽奖123.rar。
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
按下键盘,或者按下鼠标,开始滚动
放开键盘,或者放开鼠标,定格停止
按文件《摇奖名单.txt》格式写名单
已发到楼主邮箱
放开键盘,或者放开鼠标,定格停止
按文件《摇奖名单.txt》格式写名单
已发到楼主邮箱
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
先把所有名字列出来
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询