单项选择题 已知：Option Base 1，Dim a（）As Integer，Dim b（-1 to 2）As Integer，Dimc（4）As Single，则下列赋值操作中，正确的赋值是（）。

填空题 Private Sub Command1_Click() i = 4 A = 5 Do i = i + 1 A = A + 2 Loop Until i >= 7 Print "I="; i End Sub 程序运行后，单击命令按钮，窗体上显示的值为（）。

填空题 Private Sub Command1_Click() i = 0 For G = 10 To 19 Step 3 i = i + 1 Next G Print i End Sub 程序运行后，单击命令按钮，窗体上显示的值为（ ）。