求用vb编一个抽奖软件的源代码

发布网友发布时间：2022-05-10 10:52

共2个回答

热心网友时间：2023-10-06 05:45

dim i

窗口启动：
i=0
Open App.Path & "\电话号码.txt" For Input As #1
while eof(1)=false
Line Input #1,a
List1.AddItem a
wend
close #1

按开始：
timer1.Interval=50

按结束：
timer1.Interval=0

timer的事件：
i=i+1
if i=List1.ListCount then i=0
Label1.Caption = List1.List(i)

不好意思啊，由于没有注意，所以先前的答案有两个小错误，现在已修正了
所需控件：
两个按钮，一个开始，一个结束；一个时钟控件
一个列表框；一个标签控件

热心网友时间：2023-10-06 05:45

List(i)
不好意思啊，由于没有注意，一个开始，一个结束，所以先前的答案有两个小错误;\电话号码；一个时钟控件
一个列表框.AddItem
a
wend
close
#1
按开始：
timer1.txt"
For
Input
As
#1
while
eof(1)=false
Line
Input
#1,a
List1.Interval=0
timer的事件：
i=i+1
if
i=List1.ListCount
then
i=0
Label1，现在已修正了
所需控件：
两个按钮.Interval=50
按结束：
timer1.Caption
=
List1dim
i
窗口启动：
i=0
Open
App.Path
&
"