用VB设计一个公司抽奖程序。人员不能重复。最好有详细的源码和图形。?
53204 次浏览 2024-06-22 提问
63
最新回答 (2条回答)
2024-06-22 回答
一个命令按钮，一个定时器，一个标签，一个列表框；代码如下（复制即可）：
Private Sub Command1_Click()
If Command1.Caption = "开始" Then
Timer1.Enabled = True
Comman俯矗碘匪鄢睹碉色冬姬d1.Caption = "停止"
Else
Command1.Caption = "开始"
Timer1.Enabled = False
For i = List1.ListCount - 1 To 0 Step -1
If List1.List(i) = Label1.Caption Then
List1.RemoveItem i
Exit For
End If
Next i
End If
Label1.FontSize = 300
End Sub
Private Sub Form_Load()
For i = 10 To 50
List1.AddItem i
Next i
‘上面的三句是在列表框中加入内容的，你可以换成你需要的人名
Timer1.Enabled = False
Timer1.Interval = 100
End Sub
Private Sub Timer1_Timer()
Randomize
i = Int(Rnd * List1.ListCount)
Label1.Caption = List1.List(i)
End Sub
有问题可以HI我
扩展回答
急求连连看简单vb程序
无需音效。急求。谢谢。、排行榜。。。。高手来帮下忙。。。。难度以时间长短来分简单中等较难,不要求消图后移动，只要普通能连即可
用步进顺序指令编写一个电梯控制（局部）程序。
求满足下述条件，梯门、吊箱门同时关闭（Y1、Y3）；
4，触发行程开关（X12）：
1、Y2）、电梯吊箱平层到位停止后、双门开到位后、双门关到位后；
5，触发行程开关（X10），触发行程开关（X11）。
写出指令表，延时2秒（T1）；
2；
3，梯门，发出允许电梯运动信号（Y4），延时10秒（T0）、吊箱门同时打开（Y0、延时时间到、延时时间到
运用C程序设计一个百叶窗
程序运行后，直到百叶窗覆盖了屏幕，再按一次任意键`，则程序结束，按下任意键时，百叶窗慢慢收起，屏幕上从上到下显示百叶窗
给一个设计公司取名
景观设计以及其他，公司在北京。大家有什么好的意见和建议啊、”、智. 希望可以有些创意 ？公司主要从事室内设计附带其他方面的包括平面设计.，字中可以带“梦。.、颜..、郡，希望大家可以给些建议
VB的设计窗口怎么打开
就把VB关掉了，设计窗口就打不开了，上面写的是常规，我双击了Form1.vb，打开的窗口不是Form1，声明.vb[设计]，请问怎么打开设计窗口我的VB是2010的，我在编一个文件，中途离开了一下，结果我再打开的时候
如何成立一个装饰设计公司
多少人员！？
打给需要多少资金？
装饰设计公司可以加盟吗！谢谢啊？
大家帮忙说下啦如何成立一个装饰设计公司
怎样设计域名如果想为一个公司设计一个域名需要了解什么
怎样设计域名如果想为一个公司设计一个域名需要了解什么
用VB怎么设计程序在窗体上就建立三个命令按纽 单机后分别使窗体最大化最小化或还原!
用VB怎么设计程序在窗体上就建立三个命令按纽 单机后分别使窗体最大化最小化或还原!
请VB高手指点下呀 谢谢了
设计一个邮局
什么样的邮局你想设计呢，什么样的邮局是最美的？ 写下来你的构想 和IDEA就可以了··· 谢谢？ 什么样的风格，比较未来化的？··· 展开你的想象？还是复古风格的，或你觉得什么样的邮局别具一格，说出你想象中 未来邮局！！如果现在你可以设计一个邮局