VB复习题谜底 第四章.doc

第四章 控制结构 第二题、 单选题（共45分，每项1.5分） 1. If结构的结束语句是______。5 A.End Select B.End Sub C.End If√ D.End Do 2. InputBox函数的返回值的类型为______。4 A.数值 B.字符串 √ C.逻辑值 D.日期值 3. MsgBox函数的返回值的类型为______。5 A.整数√ B.字符串 C.逻辑值 D.日期值 4. 通过代码在运行时设置属性的语法格式为______。14 A.对象名＝属性 .新值 B.对象名.属性＝新值√ C.对象名.新值=属性 .新值 D.对象名.属性=属性 .新值 第三题、 简单程序（共15分，每项1.5分） 1. 从键盘输入一个实数mm，利用字符串函数对输入的数进行处理，如果输出的内容不是字符则输出“END“，程序的输出结果是______。11 Private Sub Command1_Click() 　　mm=Val(InputBox(请输入一个实数)) n$=Str$(mm) p=InStr(n, .) ‘InStr()函数：指定一字符串在另一字符串中最先出现的位置 If p0 Then Print Mid(n,p) ‘Mid 语句来得到某个字符串中的几个字符 Else Print END End If End Sub A.用字符方式输出数据mm B.输出数据的整数部分 C.输出数据的小数部分√ D.只去掉数据部分的小数点，保留所有数码输出 2. 运行下面程序后，在弹出的消息窗口中显示的是______。7 Private Sub Form_Click() score=Int(Rnd)+5 ‘当参数为负数时，Int 函数返回小于或等于该参数之最大整数，rem 而 Fix 函数则返回大于或等于该参数之最小整数。 Select Case score Case 5 a$=Good Case 4 a$=Ok Case 3 a$=Pass Case Else a$=Bad End Select MsgBox a$ End Sub A.Bad B.Pass C.Ok D.Good√ 3. 以下程序的输出结果是______。8 Private Sub Command1_Click() a=100 Do s=s+a a=a+1 Loop Until a100 print a End Sub A.100 B.120 C.201 D.101√ 4. 以下程序的循环次数是______。11 Private Sub Command1_Click() 　　For j=8 To 35 Step 3 Print j; Next j End Sub A.10 ‘int(35-8)/3+1√ B.9 C.27 D.28 5. 执行下面程序段后，变量a的值为______。20 For I=1 To 3 For j=1 To I For k=j To 3 a=a+1 Next k Next j Next I A.3 B.9　 C.14√ D.21 6. 执行下面程序段后，变量x的值为______。20 x=5 For I=1 To 20 step 2 x=x+I\5 Next I A.21√ B.22 C.23 D.24 7. 当输入4时，以下程序的输出结果是______。7 Private Sub Command1_Click() 　　x=InputBox(x) If x^215 Then y=1/x If x^215 Then y=x^2+1 Print y End Sub A.4 B.17√