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

来源：百度知道 编辑：UC知道 时间：2024/09/27 15:22:29
要求：1.点击‘开始’从text或excel文件中依次调用每一行的电话号码，滚动显示在界面上，点击‘停止‘ 则停在某一个电话上即可
2.请带一些语句说明最好
这位前辈是不是将input 写成了 inpue ，
while not(eof(#1))总是提示错误
我是个vb小白，能不能说明白点,需要几个控键 分别叫啥名字，语句能不能更完整些，谢谢

开始 和 停止为同一个键也可以

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)

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