1.[填空题] 下面程序段的运行结果为________。 For i=1 To 5 n=1 For j=1 To i n=n*j Next j Print n; Next i 第1空: 请输入 2.[填空题] 执行以下语句后，k的值为_____。 Dim i As Single For i = 0.45 To 2 Step 0.5 k = k + 3 Next i Print i;k 第1空: 请输入 3.[填空题] 有程序段如下： For i = 1 To 5 For j = 5 To i Step -1 Print i * j Next j Next i 其中"Print i*j"语句执行的次数为_________。 第1空: 请输入 4.[填空题] 下面程序运行后，单击command1后屏幕显示是_________。 Private Sub command1_click() For i = 1 To 5 If i > 3 Then Exit For Next i For j = 1 To 8 i =i + j Next j Print i, j End Sub 第1空: 请输入 5.[填空题] 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim i As Integer, n As Integer For i = 0 To 50 i = i + 5 n = n + 1 If i > 30 Then Exit For Next Text1.Text = Str(n) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。 第1空: 请输入 6.[填空题] 设有如下程序段： x = 2 For i = 1 To 20 Step 3 x = x + i Next i 运行以上程序后，x的值是______。 第1空: 请输入 7.[填空题] 执行以下程序段 a$= "Abcdefghijk" For i = 6 To 2 Step -2 y = Mid(a, i, i) x = Left(a, i) z = Right(a, i) z = UCase(x & y & z) Next i Print z 第1空: 请输入 8.[填空题] 有下面程序代码： Private Sub Command1_Click() Dim Sign As Integer Sign = 1 a = 2 b = 3 For k = 1 To 5 c = a+ Sign * b a = b b = c Print c; Sign = -Sign Next k End Sub 第1空: 请输入 9.[填空题] 程序运行后，单击窗体，在输入对话框中依次输入25、26、35、45，输出结果为______。 Private Sub Form_Click() x = 50 For i = 1 To 4 y = InputBox("请输入一个整数") y = Val(y) If y Mod 5 = 0 Then a = a + y x = y Else a = a + x End If Next i Print a End Sub 第1空: 请输入 10.[填空题] 下面程序的执行结果是______。 Private Sub Command1_Click() a = 0 k = 1 Do While k < 6 x = k ^ k ^ a k = k + 1 Print x; Loop End Sub 第1空: 请输入 11.[填空题] 编写如下程序： Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1 y = 1 Do y = x * y If y > 10 Then Exit Do Else x = x + 2 End If Loop Until x <= 10 Print x; y End Sub 程序运行后，单击命令按钮Command1，输出结果为______。 第1空: 请输入 12.[填空题] 编写如下程序： Private Sub Command1_Click() Dim x As Integer, y As Integer x = 1: y = 1 Do y = x * y If y > 10 Then Print x, y Exit Do Else x = x + 3 End If Loop While x <= 10 End Sub 运行程序，输出结果为______。 第1空: 请输入 13.[填空题] 窗体上有一个名为Command1的命令按钮，编写如下事件过程： Private Sub Command1_Click() i = 0 Do While i < 8 For j = 1 To i n = n + 1 Next i = i + 1 Loop Print n End Sub 运行程序，单击命令按钮，则输出结果是______。 第1空: 请输入 14.[填空题] 有如下程序： Private Sub Form_Click() Dim s As Integer, p As Integer p = 1 For i = 1 To 5 For j = 1 To i s = s + j Next j p = p * s Next i Print p End Sub 程序运行后，单击窗体，则输出结果是______。 第1空: 请输入 15.[填空题] 编写如下程序： Private Sub Command1_Click() Dim num As Integer Dim k AsInteger, n As Integer num =InputBox("请输入一个正整数:") k = num n = 3 Do Do While num Mod n = 0 Print n; num = num / n Loop n = n + 1 Loop Until n > k / 2 End Sub 程序运行后，单击命令按钮Command1，并输入数值30，则输出结果为______。 第1空: 请输入 16.[填空题] 设有如下的程序段 n = 0 For i = 1 To 4 For j = 1 To i For k = j To 4 n = n + 1 Next k Next j Next i Print n 执行上面的程序段后，n的值为______。 第1空: 请输入 17.[填空题] 运行如下程序后，输出结果为______。 a = 0 For j = 1 To 30 Step 2 a = a + j mod 5 Next j Print a 第1空: 请输入 18.[填空题] 运行如下程