1.[填空题] 编写如下程序： Private Sub Command1_Click() Dim score As Integer score = 90 If score > 80 Then r = 5 ElseIf score > 60 Then r = 3 Else r = 1 End If Print r End Sub 程序运行后，单击命令按钮Command1，输出结果为（______）。 第1空: 请输入 2.[填空题] 有如下程序： Private Sub Command1_Click() x = InputBox("input value") Select Case x Case Is > 0 y = x + 3 Case Is = 0 y = x + 2 Case Else y = x + 1 End Select Print x; y End Sub 假设运行时从键盘上输入-8，输出结果是（______）。 第1空: 请输入 3.[填空题] 在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1_Click() A = InputBox("请输入日期(1～31)") T = "旅游景点:" & IIf(A > 0 And A<= 10, "长城", "") & IIf(A > 10 And A <= 20,"故宫", "") & IIf(A > 20 And A <= 30, "颐和园", "") Text1.Text = T End Sub 程序运行后，单击命令按钮，如果从键盘输入26，则在文本框中显示的内容是______。 第1空: 请输入 4.[填空题] 下列程序段的执行结果是______。 X = 2 Y = 1 If X * Y < 1 Then Y = Y - 1 Else Y = -1 Print Y - X > 0 第1空: 请输入 5.[填空题] 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： Private Sub Command1_Click() N = Text1.Text Select Case N Case 1 To 10 X = 5 Case 2, 4, 6 X = 10 Case Is < 10 X = 2 Case 10 X = 30 End Select Text2.Text = X End Sub 程序运行后，如果在文本框Text1中输入6，然后单击命令按钮，则在Text2中显示的内容是______。 第1空: 请输入 6.[填空题] 窗体上有1个名称为Command1的命令按钮，事件过程如下： Private Sub Command1_Click() Dim num As Integer, x As Integer num = Val(InputBox("请输入一个正整数")) Select Case num Case Is > 100 x = x + num Case Is < 90 x = num Case Else x = x * num End Select Print x; End Sub 运行程序，并在三次单击命令按钮时，分别输入正整数60、80和100，则在窗体上显示的内容为______。 第1空: 请输入 7.[填空题] 运行下面程序，如果输入80，则输出结果是_____。 Dim a As Integer, i As Integer a = InputBox("input a:") If a > 60 Then i = 1 If a > 70 Then i = 2 If a > 80 Then i = 3 If a > 90 Then i = 4 Print "i="; i 第1空: 请输入 8.[填空题] 编写如下程序 Private Sub Command1_Click() Dim x As String, y As String x = Right("abcdef", 2) y = Mid("dcbaef", 3, 3) If x > y Then Print x + y Else Print y + x End If End Sub 程序运行后，单击命令按钮Command1，输出结果为______。 第1空: 请输入 9.[填空题] 执行下面程序段，如果运行时输入6，则在窗体上输出结果是______。 Dim x As Integer x = InputBox("input x") If x > 1 Then y = x + 2 ElseIf x < 10 Then y = x + 3 ElseIf x = 6 Then y = x End If Print y 第1空: 请输入 10.[填空题] Private Sub Command1_Click() m = -5.4 If Sgn(m) Then n = Int(m) Else n = Abs(m) End If Print n End Sub 第1空: 请输入 11.[填空题] 运行如下程序段，输出结果为________。 Private Sub command1_click() a = 2: b = 3: c = 4 a= a + b: b = b + a: c = b + a If a <> 3 Or b <> 3 Then a = b - a: b = c - a: c = b + a End If Print a + b + c End Sub 第1空: 请输入 12.[填空题] 运行下列程序，单击窗体后在窗体上显示的结果是_______ 。 Private Sub Form_Click() Dim x As Integer ,y As Integer x = -5 y = -4 If Not x > 0 Then x=y - 1 Else y=x + 4 End If Print x - y End sub 第1空: 请输入 13.[单选题] 关于语句If x=1 Then y=1，下列说法正确的是_______。 A x=1和y=1均为赋值语句 B x=1和y=1均为关系表达式 C x=1为关系表达式，y=1为赋值语句 D x=1为赋值语句，y=1为关系表达式 14.[单选题] Select Case 语句结构中，测试项可以有三种形式，以下使用正确的是_______。 A Case 20>Is B Case x<=8 ，10 to 25 C Case Is>9 And Is<25 D Case Is>x 15.[单选题] 在Select-Case结构中，能表示|X| > 5的Case子句是______。 A Case Is < -5, Is > 5 B Case Not (-5 to 5) C Case Abs(x) >

已完成理解「1.[填空题] 编写如下程序： Private Sub Command1_Click() Dim score As Integer score = 90 If score > 80 Then r = 5 ElseIf score > 60 Then r = 3 Else r = 1 End If Print r End Sub 程序运行后，单击命令按钮Command1，输出结果为（______）。 第1空: 请输入 2.[填空题] 有如下程序： Private Sub Command1_Click() x = InputBox("input value") Select Case x Case Is > 0 y = x + 3 Case Is = 0 y = x + 2 Case Else y = x + 1 End Select Print x; y End Sub 假设运行时从键盘上输入-8，输出结果是（______）。 第1空: 请输入 3.[填空题] 在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1_Click() A = InputBox("请输入日期(1～31)") T = "旅游景点:" & IIf(A > 0 And A<= 10, "长城", "") & IIf(A > 10 And A <= 20,"故宫", "") & IIf(A > 20 And A <= 30, "颐和园", "") Text1.Text = T End Sub 程序运行后，单击命令按钮，如果从键盘输入26，则在文本框中显示的内容是______。 第1空: 请输入 4.[填空题] 下列程序段的执行结果是______。 X = 2 Y = 1 If X * Y < 1 Then Y = Y - 1 Else Y = -1 Print Y - X > 0 第1空: 请输入 5.[填空题] 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程： Private Sub Command1_Click() N = Text1.Text Select Case N Case 1 To 10 X = 5 Case 2, 4, 6 X = 10 Case Is < 10 X = 2 Case 10 X = 30 End Select Text2.Text = X End Sub 程序运行后，如果在文本框Text1中输入6，然后单击命令按钮，则在Text2中显示的内容是______。 第1空: 请输入 6.[填空题] 窗体上有1个名称为Command1的命令按钮，事件过程如下： Private Sub Command1_Click() Dim num As Integer, x As Integer num = Val(InputBox("请输入一个正整数")) Select Case num Case Is > 100 x = x + num Case Is < 90 x = num Case Else x = x * num End Select Print x; End Sub 运行程序，并在三次单击命令按钮时，分别输入正整数60、80和100，则在窗体上显示的内容为______。 第1空: 请输入 7.[填空题] 运行下面程序，如果输入80，则输出结果是_____。 Dim a As Integer, i As Integer a = InputBox("input a:") If a > 60 Then i = 1 If a > 70 Then i = 2 If a > 80 Then i = 3 If a > 90 Then i = 4 Print "i="; i 第1空: 请输入 8.[填空题] 编写如下程序 Private Sub Command1_Click() Dim x As String, y As String x = Right("abcdef", 2) y = Mid("dcbaef", 3, 3) If x > y Then Print x + y Else Print y + x End If End Sub 程序运行后，单击命令按钮Command1，输出结果为______。 第1空: 请输入 9.[填空题] 执行下面程序段，如果运行时输入6，则在窗体上输出结果是______。 Dim x As Integer x = InputBox("input x") If x > 1 Then y = x + 2 ElseIf x < 10 Then y = x + 3 ElseIf x = 6 Then y = x End If Print y 第1空: 请输入 10.[填空题] Private Sub Command1_Click() m = -5.4 If Sgn(m) Then n = Int(m) Else n = Abs(m) End If Print n End Sub 第1空: 请输入 11.[填空题] 运行如下程序段，输出结果为________。 Private Sub command1_click() a = 2: b = 3: c = 4 a= a + b: b = b + a: c = b + a If a <> 3 Or b <> 3 Then a = b - a: b = c - a: c = b + a End If Print a + b + c End Sub 第1空: 请输入 12.[填空题] 运行下列程序，单击窗体后在窗体上显示的结果是_______ 。 Private Sub Form_Click() Dim x As Integer ,y As Integer x = -5 y = -4 If Not x > 0 Then x=y - 1 Else y=x + 4 End If Print x - y End sub 第1空: 请输入 13.[单选题] 关于语句If x=1 Then y=1，下列说法正确的是_______。 A x=1和y=1均为赋值语句 B x=1和y=1均为关系表达式 C x=1为关系表达式，y=1为赋值语句 D x=1为赋值语句，y=1为关系表达式 14.[单选题] Select Case 语句结构中，测试项可以有三种形式，以下使用正确的是_______。 A Case 20>Is B Case x<=8 ，10 to 25 C Case Is>9 And Is<25 D Case Is>x 15.[单选题] 在Select-Case结构中，能表示|X| > 5的Case子句是______。 A Case Is < -5, Is > 5 B Case Not (-5 to 5) C Case Abs(x) > 」