Question

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

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

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

Answer 1

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)

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

Answer 2

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
&
"