求vb高手做一个非常简单的抽号软件！抽号范围1-50, 做成图片中的样子，按开始就滚动数字，停止时便选定。
制作时需要把例图中的都有机会删除掉。谢谢大虾，好的继续追分。我的邮箱:1609372973@qq.com...
制作时需要把例图中的都有机会删除掉。谢谢大虾，好的继续追分。我的邮箱:1609372973@qq.com
展开
2个回答
展开全部
假设标签为闭轿历label1,开始按钮为Command1,停止按钮为Command2
代码如下： （外观帆拍你自轿搜己弄了）
Dim k As Boolean
Private Sub Command1_Click()
k = False
Do While k = False
Label1 = 1 + Int(50 * Rnd())
Doevents
Loop
End Sub
Private Sub Command2_Click()
k = True
End Sub
代码如下： （外观帆拍你自轿搜己弄了）
Dim k As Boolean
Private Sub Command1_Click()
k = False
Do While k = False
Label1 = 1 + Int(50 * Rnd())
Doevents
Loop
End Sub
Private Sub Command2_Click()
k = True
End Sub
更多追问追答
追问
可你发的俺看不懂啊，哎！
追答
晕！你是要代码还是要可执行文件啊？
你直接复制粘贴运行
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
