[求助]用VB编一个随机抽奖的程序 - VB6论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 开发语言 → 『 VB6论坛』 → [求助]用VB编一个随机抽奖的程序

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 884 人关注过本帖

标题：[求助]用VB编一个随机抽奖的程序

只看楼主加入收藏

xifanwawa

等　级：新手上路
帖　子：15
专家分：0
注　册：2007-5-6

楼主

问题点数：0 回复次数：3

[求助]用VB编一个随机抽奖的程序

还要用一个时钟控件产生时间

[此贴子已经被作者于2007-6-2 15:35:09编辑过]

搜索更多相关主题的帖子: 随机　抽奖　时钟　

2007-06-02 15:14

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 2 楼

得分:0

egt8s5e0.rar (3.37 KB) [求助]用VB编一个随机抽奖的程序

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-06-02 15:49

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

第 3 楼

得分:0

Private Sub Label2_Click()
If Label2.Caption = "抽奖" Then
Timer1.Interval = 10
Label2.Caption = "停止"
ElseIf Label2.Caption = "停止" Then
Timer1.Interval = 0
MsgBox "恭喜" & Label1.Caption & "中奖者", 64, "^^"
Label2.Caption = "抽奖"
End If
Label1.Caption = ""
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Int(Rnd * 100)
End Sub

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-06-02 15:49

xifanwawa

等　级：新手上路
帖　子：15
专家分：0
注　册：2007-5-6

第 4 楼

得分:0

回复：（b13690976754）Private Sub Label2_Click() I...

谢谢你啊！答案我知

2007-06-12 18:39

快速回复：[求助]用VB编一个随机抽奖的程序