vb会考问题高一某班同学因为集体不喜欢参加学校大扫除等活动,班主任欲请李老师编写一个随机抽奖的程序,在每次活动前使用这个程序从全班50个同学里抽取10个同学的编号,让他们参加集体

vb会考问题高一某班同学因为集体不喜欢参加学校大扫除等活动,班主任欲请李老师编写一个随机抽奖的程序,在每次活动前使用这个程序从全班50个同学里抽取10个同学的编号,让他们参加集体
vb会考问题
高一某班同学因为集体不喜欢参加学校大扫除等活动,班主任欲请李老师编写一个随机抽奖的程序,在每次活动前使用这个程序从全班50个同学里抽取10个同学的编号,让他们参加集体活动.请打开并修改考生文件夹下“VB”文件夹中的工程文件“lottery.vbp”,使其具有下列功能：点击命令按钮Command1,在标签Label2中随机显示班内10位同学的编号,每次显示同学编号简隔一秒种.单击窗体任意位置,清除标签Label2中显示的内容.程序运行界面如下图所示：

完成下列操作： 
2．打开代码窗口,给命令按钮Command添加合适的事件过程,使之实现随机抽奖的功能.
3．在注释①和②所在行中找出惟一的错误并改正,测试程序,使其实现上述功能.程序调试正确后,生成“lottery.exe”,保存在“VB”文件夹中.
保存窗体文件和工程文件. 


代码：


Dim i As Integer
Dim r As String


Private Sub Command1_Click()


End Sub


Private Sub Form_Load()
 i = 0
End Sub


Private Sub Timer1_Timer()
  Randomize
  r = Str(Int(Rnd * 49 + 1))    '①
  Label2.Caption = Label2.Caption + r + " "
  i = i + 1
  If i = 10 Then                '②
    Timer1.Enabled = False
  End If
End Sub

给过程

vb会考问题高一某班同学因为集体不喜欢参加学校大扫除等活动,班主任欲请李老师编写一个随机抽奖的程序,在每次活动前使用这个程序从全班50个同学里抽取10个同学的编号,让他们参加集体
r = Str(Int(Rnd * 50+ 1))
If i > 9 Then