Dim m As Integer  'm 为模块级变量，用于记录随机数个数

Private Sub Command1Click()

Randomize

Timer1.Enabled = True

End Sub

Private Sub Timer1Timer()

Dim n As Integer

        ①      

If      ②      Then  

     List1.AddItem n

Else

     List2.AddItem n  

End If

m = m + 1          

If m = 20 Then       ③       

End Sub

在程序①、②、③划线处，填入适当的语句或表达式，把程序补充完整:

程序中①划线处应填入{#blank#}1{#/blank#}。

程序中②划线处应填入{#blank#}2{#/blank#}。

程序中③划线处应填入{#blank#}3{#/blank#}。

  Label1.Caption="  "

  For i=0 To 5

    For j=1 To a(i)

       Label1．Caption=Label1．Caption+Str(i)

    Next j

  Next i

数组元素a(0)到a（5）的值依次为“0，1，2，0，2，0”。执行该程序段，标签Label1中显示的内容为（  ）

    For i= 1 To 6

       a(i)=i+1

    Next i

该程序段运行后数组元素a(3)的值是：（   ）

Private Sub command1_click()

   a=val(text1.text)

b=val(text2.text)

if a=b then

   text3.text=str(a)

   exit sub

end if

do while b<>0

   r=a mod b

   a=b

   b=r

loop

text3.text=str(a)

 End Sub

在text1、text2中输入30、6，则text3中的值为（  ）