在窗体上放置两个按钮，分别命名为“开始”和“结束”，以及一个列表框和一个标签。列表框用于显示抽奖名单，标签用于显示当前抽取的号码。在窗体的代码窗口中，首先声明变量i用于控制循环。代码如下：Dim i As Integer。窗口启动时初始化变量i，读取电话号码文件并填充列表框。代码如下：Private Sub Form_Load()。i = 0；Open App.Path & &quot；&#92；电话号码.txt&quot；For Input As #1。While Not EOF(1)。Line Input #1.a。List1.AddItem a。Wend；Close #1；End Sub；定义开始和结束按钮的事件处理程序。开始按钮设置定时器间隔，结束按钮重置定时器间隔。