超星 - 第三四五章课后练习

单选题

窗体上有一个命令按钮Command1,编写如下事件过程: Private Sub Command1_Click() a = Val(InputBox("请输入分数:", "计算你的等级", 60)) If a < 0 Or a > 100 Then Print "输入错误" ElseIf a < 60 Then Print "不合格" ElseIf a < 80 Then Print "合格" Else Print "优秀" End If End Sub 运行时,单击按钮,在输入对话框中直接回车,输出结果为(

A. 输入错误
B. 不合格
C. 合格
D. 优秀

查看答案

单选题

下列程序段的执行结果为（）a = 85If a > 60 Then i = 1If a > 70 Then i = 2If a > 80 Then i = 3If a > 90 Then i = 4Print "i="; i

A. i=1
B. i=2
C. i=3
D. i=4

查看答案

单选题

以下条件语句错误的是( )。

A. If X Then Y = Y + 1
B. If X = 0 Then Y = 0
C. If X > 0 Then Y = 1: Print Y
D. If X > Y Then Print Y End If

查看答案

单选题

执行下列程序段后,窗体输出的结果是( )。 Dim a As Integer a = Val(InputBox("请输入a的值", , 6)) '直接按回车键 Select Case a Case 1 To 4 Print "A" Case Is > 3 Print "B" Case 5 To 10 Print "C" Case Else Print "D" End Select

A
B
C
D

查看答案

单选题

有语句If X = 0 Then Y = 0,下列叙述中,正确的是( )。

A. X=0和Y=0均为赋值语句
B. X=0和Y=0均为关系表达式
C. X=0为关系表达式,Y=0为赋值语句
D. X=0为赋值语句,Y=0为关系表达式

查看答案

单选题

求出x，y两数中最小数，并把最小数保存在Min变量中，下列程序段不正确的是( )。

A. If x < y Then Min = x Else Min = y
B. Min = IIf(x < y,x,y)
C. Min = x : If y < = x Then Min = y
D. If y < = x Then Min = y : Min = x

查看答案

单选题

窗体上有一个命令按钮Command1,编写如下事件过程: Private Sub Command1_Click() a = 80: b = 50: c = 30 If a < b Or b > c Then b = c If b = c And a < c Then a = a - 30 If a = b And b > c Then c = a + b Print a, b, c End Sub 运行时,单击按钮,窗体输出的结果是(

A. 80 50 30
B. 80 30 30
C. 50 30 80
D. 50 30 30

查看答案

单选题

窗体上有一个命令按钮Command1,编写如下事件过程: Private Sub Command1_Click() Dim i As Integer Dim sum As Integer sum = 0 For i = 1 To 200 sum = sum + i If i Mod 19 = 18 Then Exit For End If Next i Print sum End Sub 运行时,单击按钮,输出结果是(

A. 20100
B. 0
C. 190
D. 171

查看答案

单选题

有如下程序代码: Private Sub Form_Click() Dim k As Integer For k = 1 To 2 Print "3" + k; "3" & k; Spc(3); Next End Sub运行下列程序,单击窗体后输出的结果是(）

A. 第一行：31 31第二行：32 32
B. 第一行：4 31 第二行：5 32
C. 31 3132 32
D. 4 31 5 32

查看答案

单选题

执行下面的程序段后，变量s的值为（）s=5For i=2.6 to 4.9 Step 0.6s=s+1Next i

A. 7
B. 8
C. 9
D. 10

查看答案

下列程序段的执行结果为（ ）a = 85If a > 60 Then i = 1If a > 70 Then i = 2If a > 80 Then i = 3If a > 90 Then i = 4Print "i="; i

以下条件语句错误的是( )。

执行下列程序段后,窗体输出的结果是( )。 Dim a As Integer a = Val(InputBox("请输入a的值", , 6)) '直接按回车键 Select Case a Case 1 To 4 Print "A" Case Is > 3 Print "B" Case 5 To 10 Print "C" Case Else Print "D" End Select

有语句If X = 0 Then Y = 0,下列叙述中,正确的是( )。

求出x，y两数中最小数，并把最小数保存在Min变量中，下列程序段不正确的是( )。

窗体上有一个命令按钮Command1,编写如下事件过程: Private Sub Command1_Click() a = 80: b = 50: c = 30 If a < b Or b > c Then b = c If b = c And a < c Then a = a - 30 If a = b And b > c Then c = a + b Print a, b, c End Sub 运行时,单击按钮,窗体输出的结果是(

窗体上有一个命令按钮Command1,编写如下事件过程: Private Sub Command1_Click() Dim i As Integer Dim sum As Integer sum = 0 For i = 1 To 200 sum = sum + i If i Mod 19 = 18 Then Exit For End If Next i Print sum End Sub 运行时,单击按钮,输出结果是(

有如下程序代码: Private Sub Form_Click() Dim k As Integer For k = 1 To 2 Print "3" + k; "3" & k; Spc(3); Next End Sub运行下列程序,单击窗体后输出的结果是(）

执行下面的程序段后，变量s的值为（）s=5For i=2.6 to 4.9 Step 0.6s=s+1Next i

下列程序段的执行结果为（）a = 85If a > 60 Then i = 1If a > 70 Then i = 2If a > 80 Then i = 3If a > 90 Then i = 4Print "i="; i