超星 - 4.选择结构程序设计单元测按 - 查题吧

单选题

下列程序执行后，变量x的值为（）。Private Sub command1_click()Dim a, b, c, d As SingleDim x As Singlea = 100: b = 20: c = 1000If b > a Thend = a: a = b: b = dEnd IfIf b > c Thenx = bElseIf a > c Thenx = cElsex = aEnd IfEnd Sub

A. 0
B. 100
C. 1000
D. 20

单选题

有如下程序：Private Sub Command1_Click()xcase = 1t = InputBox("请输入一个数：")Select Case tCase Is > 0y = xcase + 1Case Is = 0y = xcase + 2Case Elsey = xcase + 3End SelectPrint xcase; yEnd Sub程序运行时，在对话框中输入-1，则显示的结果为（）。

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

单选题

在窗体上添加一个命令按钮Command1和两个文本框Text1和Text2，然后编写如下事件过程：Private Sub Command1_Click()n = Text1.TextSelect Case nCase 1 To 20x = 10Case 2, 4, 6x = 20Case Is < 10x = 30Case 10x = 40End SelectText2.Text = xEnd Sub程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（）。

A. 20
B. 10
C. 30
D. 40

单选题

下列没有Caption属性的控件是（）。

A. 框架
B. 单选按钮
C. 文本框
D. 复选框

单选题

在窗体中添加一个命令按钮Command1，并编写如下程序：Private Sub Command1_Click()x = InputBox(x)If x ^ 2 = 9 Then y = xIf x ^ 2 < 9 Then y = 1 / xIf x ^ 2 > 9 Then y = x ^ 2 + 1Print yEnd Sub程序运行时，单击命令按钮，在InputBox中输入3，然后单击“确定”按钮，程序的运行结果为（）。

A. 3
B. 0.33
C. 17
D. 0.25

单选题

当Visual Basic执行下面语句后，a的值为（）。a = 1If a > 0 Then a = a + 1If a > 1 Then a = 0

A. 0
B. 1
C. 2
D. 3

单选题

下列程序段的运行结果为（）。Dim xx = Int(Rnd) + 5Select Case xCase 5Print "优秀"Case 4Print "良好"Case 3Print "及格"Case ElsePrint "不及格"End Select

A. 不及格
B. 良好
C. 及格
D. 优秀

单选题

下列程序的输入值为5，运行结果为（）。Private Sub Command1_Click()Dim a As Integera = InputBox("请输入a的值")Select Case aCase 1 To 4Print "D"Case 5 To 10Print "C"Case 11 To 14Print "B"Case ElsePrint "A"End SelectEnd Sub

A
B
C. D
D. C

单选题

在窗体中添加一个命令按钮Command1，编写如下代码：Private Sub Command1_Click()x = 6If x > 6 ThenIf x = 6 ThenPrint "a"ElsePrint "b"End IfElseIf x < 8 ThenPrint "c"ElseIf x = 6 ThenPrint "d"End IfEnd IfEnd IfEnd Sub运行后，单击命令按钮，则在窗体上显示的是（）。

A. a
B. c
C. d
D. b

单选题

下列程序段的执行结果是（）。Dim x As Integerx = 6Select Case xCase 5Print "优秀"Case 4Print "良好"Case 3Print "通过"Case ElsePrint "不通过"End Select

A. 通过
B. 优秀
C. 良好
D. 不通过

1