VB控制结构及答案.docVIP

? VB控制结构 一、 单选题 1. 下面的程序运行后，显示的结果是________。 ?Dim x% ?If x Then Print x+1 Else Print x A） 1?????? ? B） 0 ???????? C） 显示错误信息?? D） 2 2. 语句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 为赋值语句 3. 下面分段函数 , 下面不正确的程序段是______。 A） If x = 1 then f=sqr(x+1)????? ?? B） If x = 1 then? f=sqr(x+1) ?? f=x*x+3????????????????? If x 1 then? f=x*x +3 C） If x = 1 then f=sqr(x+1) _??? ???? D） If x 1 then f=x*x +3 _ Else f = x*x +3???????????????? Else f=sqr(x+1) 5. 下面的程序段，显示的结果是 ______。 ?Dim x ?x= Int(RnD） + 5 ?Select Case x ??? Case 5 ?????? Print “优秀” ?? Case 4 ?????? Print “良好” ?? Case 3 ?????? Print “及格” ?? Case Else ?????? Print “不及格” ?End Select A） 不及格??????????? B） 良好???????????? C） 及格??????? D） 优秀 6. 下面程序段求两个数中较大数，________不正确。 A） Max = IIF(x y, x, y) B） If x y Then Max = x Else Max = y C） Max = x If y = x Max = y D） If y = x Max = y ?? Max = x 7. 下列循环语句能正常结束的是________。 A） i = 5????????????????????????? ????? B） i = 1 ?? Do????????????????????????????????? Do ???? i = i + 1??????????????????????????? ??i = i + 2 ?? Loop Until i 0 ???????????????????????Loop Until i = 10?????? C） i = 10???????????????????????? ????? D） i = 6 ?? Do????????????????????????????????? Do ???? i = i - 1?????????????????????????? ???i = i - 2 ?? Loop Until i 0 ??????????????????????Loop Until i = 1?????? 12. 变量未赋值时，数值型变量的值为______。 A）0???????????? B）空串??????? C）ll?????????? D）没任何值 13. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()???? For n=1 To 20?????????? If n Mod 30 then m=m+n\3???? Next n???? print nEnd sub程序运行后，如果单击命令按钮，则窗体上显示的内容是______。 A）15???????????? B）18????????????? C）21?????? D）24 14. 窗体中存在命令按钮Command1，其Click事件代码如下：Private Sub Command1_Click()??? X = 2??? Y = 1??? If X * Y 1 Then Y = Y - 1 Else Y = -1 ?????? Print Y - X 0End Sub程序运行后，单击命令按钮，输出结果为______。 A）True???????????? B）False????????? C）-1???????????? D）1 15. 设a=5，b=6，c=7，d=8，执行下列语句后，x的值为______。x=IIf((