第八章 分支结构练习.doc

1、要求如果x被7除余2，则输出x的值，下列语句中不能实现此功能的语句是__C____。 A）If x Mod 7 = 2 Then Print x B）If x - (x \ 7) * 7 = 2 Then Print x C）If x - (x / 7) * 7 = 2 Then Print x D）If x - Int(x / 7) * 7 = 2 Then Print x 2、设A = A,B = B,C = C,D = D，执行语句X = IIf((A B) Or (C D), A, B)后，X的值为___D___。 A）a B）b C）B D）A 3、现有如下语句： x = IIf(a 50, Int(a \ 3), a Mod 2) 当a = 52时，x的值是___A___。 A）17 B）0 C）18 D）1 4、编写如下程序： Private Sub Command1_Click() Dim a As Integer, b As Integer a = 3 b = 2 If a * b 10 Then b = b + 1 Else b = b - 1 Print b - a 0 End Sub 程序运行后，单击命令按钮Command1，输出结果为___C___。 A）1 B）-1 C）False D）True 5、编写如下程序 Private Sub Command1_Click() Dim x As String, y As String x = Right(abcd, 2) y = Mid(dcba, 2, 3) If x y Then Print x + y Else Print y + x End If End Sub 程序运行后，单击命令按钮Command1，输出结果为___D___。 A）Cbcd B）cdcbC）cbacd D）cdcba Private Type x a As Integer b As Integer End Type Private Sub Command1_Click() Dim y As x y.a = InputBox() If y.a \ 2 = y.a / 2 Then y.b = y.a * y.a Else y.b = Fix(y.a / 2) End If Text1.Text = y.b End Sub 对以上程序，下列叙述中错误的是___D___。 A）x是用户定义的类型 B）InputBox函数弹出的对话框中没有提示信息 C）若输入的是偶数，y.b的值为该偶数的平方 D）Fix(y.a/2)把y.a/2的小数部分四舍五入，转换为整数返回 7、三角形的构成条件是：任意两边之和大于第三边，变量a、b、c是3条直线的长度，要判断这三条直线能否构成三角形，下列不能正确判断的是___D___。 A）If a+bc And a+cb And b+ca Then B）If a+b=c Or a+c=b Then Print 可以构成三角形 Print 不能构成三角形 Else Else If b+c=a Then Print 不能构成三角形 Print 不能构成三角形 End if Else Print 可以构成三角形 End If C）If a+b=c Or a+c=b Or b+c=a Then D）If a+bc Or a+cb Or b+ca Then Print 不能构成三角形 Print 能构成三角形 Else