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

求用vb 编一个抽奖软件的源代码 悬赏分：20 - 解决时间：2008-4-15 22:47 要求：1.点击‘开始’从 text 或 excel 文件中依次调用每一行的电话号码，滚动显示在界面上，点击 ‘停止‘ 则停在某一个电话上即可 2.请带一些语句说明最好 问题补充： 这位前辈是不是将 input 写成了 inpue ， while not(eof(#1))总是提示错误 我是个 vb 小白，能不能说明 白点,需要几个控键 分别叫啥名字，语句能不能更完整些，谢谢 开始 和 停止为同一个键也可以 提问者： qvxi aogang - 试用期 一级 最佳答案 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) 不好意思啊，由于没有注意，所以先前的答案有两个小错误，现在已修正了 所需控件： 两个按钮，一个开始，一个结束；一个时钟控件 一个列表框；一个标签控件 用VB 6.0 编写电脑抽奖程序 近年来在娱乐节目之中常常见到利用电脑来抽奖，笔者对其发生了兴趣遂自己动手用VB 编了一个小程序来实现电脑抽奖的小功能，其原理如下： 主要利用VB 中的Rnd 函数，来实现随机查找和打乱排序的功能，从而实现随机抽奖的目的。Rnd 函数的语法结构是 Rnd[(number)]，可选的nu mber 参数是 single 或任何有效的数值表达式。Rnd 函数返回小于 1 但大于或等于 0 的值。nu mber 的值决定了 Rnd 生成随机数的方式。为了生成某个范围内的随机整数，可使用以下公式： Int((upperbound － lowerbound ＋ 1) × Rnd ＋ lowerbound) 这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。 另外，程序中还使用了INI 文件，Windows INI 文件,可解释为 Windows 初始化文件。它是一种专门用来保存应用程序初始化信息和运行环境信息的文本文件。ini 文件是一种文本文件,它可以通过 Notepad 等文本编辑器进行编辑。ini 文件具有特定的格式。一个INI 文件是由若干个段(section)组成的,每个段中包含若干关键字(key)及相应的值(value)。创建应用程序自己的INI 文件,通过 INI 文件保存应用程序的一些运行环境信息,然后在程序中读取 INI 文件中的...