下载文档原格式
1.对于语句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 为关系表达式答案：C，此题考察IF语句的基本理解，等号有关系运算符以及赋值两种作用。
2.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是（）。
A、If sex="男"And age＜40 And (duty="教授"Or duty="副教授") Then n=n+1B、If sex="男"And age＜40 And InStr(duty,"教授")＞0 Then n=n+1C、If sex="男"And age＜40 And Right(duty,2)= "教授" Then n=n+1D、If sex="男"And age＜40 And duty="教授"And duty="副教授" Then n=n+1答案：D ，选项中的InStr(duty,"教授")＞0表示duty字符串中含有“教授”两个字，Right(duty,2)= "教授"表示duty字符串右边两个字是“教授”。
3.下面程序段求两个数中的大数，不正确的是（）。
A、Max=IIf(x＞y,x,y)B、If x＞y Then Max=x Else Max=yC、Max=x：If y＞=x Then Max=yD、If y＞x Then Max=y ：Max=x答案：D，在D项中，冒号将两个语句相连，由于Max=x无论如何都会被执行，所以输出的永远是x的值。
A) 0 B) 1 C) ””D) False 控制结构4．设a=6，则执行x=IIf(a>5,-1,0)后，x的值一、选择题为________。
种基本结构1.VB的3种结构化程序设计的3A) 5 B) 6 C) 0 D) –1是________。
5．下面程序段的运行结果是________。
A) 选择结构、过程结构、顺序结构cj=85递归结构、选择结构、顺序结构B)晉挠??吠敨?橤尽屁过程结构、转向结构、递归结构C)晉挠??吠敨?橤尽层D) 选择结构、顺序结构、循环结构晉挠??吠敨?橤尽屃2.段函数表用If语句示分晉挠??吠敨?橤尽屄3?1x?x?1?x)(f表________ ，以下?311x?x?晉挠??吠敨?橤尽居?示方法不正确。
Print dj=;djA) f=x^3+1A) dj=B B) dj=C C) dj=D D) dj=E1 If x>=1 Then f=s^3--B) If x>=1 Then f=x^31If x<1 Then f=x^3+1-1C) If x>=1 Then f=x^3f=x^3+16．下列语句正确的是________。
D) If x<1 Then f=x^3+1 Else A) If K<3*N And k>N Then N=k^3F=x^31-B) If K<3*N And k>N Then N=k3。
执行下面的程序段后显示结果是3.________ C) If K<3*N : k>N Then N=k^3 Private SubForm_Click() D) If K<3*N And k>N Then N=k**3 Dim m ，则下列L=True，z=6.0，，7．设X=2.0y=8.0是的值为True中达BasicVisual 表式If m Then Print m Else Print m+1 。
国家二级VB机试（控制结构）模拟试卷4(题后含答案及解析) 题型有：1. 选择题选择题1．现有语句：y=IIf(x＞0，x Mod 3，0)设x=10，则y的值是A．0B．1C．3D．语句有错正确答案：B解析：本题考查的考点是有关IIf函数的。
IIf函数可用于执行简单的条件判断操作，它是“If…Then…Ele”结构的简写版本。
格式：Result=IIf＜条件＞，＜True部分＞，＜False部分＞)其中“Result”是函数的返回值，“条件”是一个逻辑表达式。
当“条件”为真时，IIf函数返回“True部分”的值，而当“条件”为假时返回“False部分”的值。
“Tme部分”或“False部分”可以是表达式、变量或其他函数。
本题中由于x=10是大于0的，所以返回值为x Mod3的值即1。
知识模块：控制结构2．现有如下语句：x=IIf(a＞50，Int(a＼3)，a Mod 2)当a=52时，x的值是A．0B．1C．17D．18正确答案：C解析：IIf函数可用来执行简单的条件判断操作，它是“If…Then…Else”结构的简写版本。
格式为：result=IIf(＜条件＞，＜Tme部分＞，＜False部分＞)。
当＜条件＞为真时，Ilf函数返回＜True部分＞，而当＜条件＞为假时，返回＜False部分＞。
本题中a的值是52，所以条件为真，将返回52＼3的值即17。
知识模块：控制结构3．编写如下程序：Private Sub Command1_Click( )Dim a As Integer，b As Integera=3：b=2If a*b＜10 Thenb=b+1Elseb=b-1End IfPrint b-a＞0End Sub程序运行后，单击命令按钮Command1，输出结果为A．TrueB．FalseC．1D．-1正确答案：B解析：本题的程序中由于a*b＜10条件成立，因此执行Then分支，b自加1变成3，最后输出b-a＞0的值即False。
控制结构一、选择题1.VB 的3种结构化程序设计的3种基本结构是________。
A) 选择结构、过程结构、顺序结构 B) 递归结构、选择结构、顺序结构 C) 过程结构、转向结构、递归结构 D) 选择结构、顺序结构、循环结构2.用If 语句表示分段函数3311()11x x f x x x ⎧-≥=⎨+<⎩ ，以下________表示方法不正确。
A) f=x^3+1If x>=1 Then f=s^3-1 B) If x>=1 Then f=x^3-1 If x<1 Then f=x^3+1 C) If x>=1 Then f=x^3-1 f=x^3+1D) If x<1 Then f=x^3+1 Else F=x^3-13.执行下面的程序段后显示结果是________。
Private Sub Form_Click() Dim mIf m Then Print m Else Print m+1 End SubA) 0 B) 1 C) ”” D) False4．设a=6，则执行x=IIf(a>5,-1,0)后，x 的值为________。
A) 5 B) 6 C) 0 D) –15．下面程序段的运行结果是________。
cj=85If cj>90 Then dj="A" If cj>80 Then dj="B" If cj>70 Then dj="C" If cj>60 Then dj="D" If cj<60 Then dj="E" Print "dj=";djA) dj=B B) dj=C C) dj=D D) dj=E6．下列语句正确的是________。
A) If K<3*N And k>N Then N=k^3 B) If K<3*N And k>N Then N=k3 C) If K<3*N : k>N Then N=k^3 D) If K<3*N And k>N Then N=k**37．设X=2.0，y=8.0，z=6.0，L=True ，则下列Visual Basic 表达式中值为True 的是________。
VB控制结构一、单选题1. 下面的程序运行后，显示的结果是________。
Dim x%If x Then Print x+1 Else Print xA） 1 B） 0 C）显示错误信息 D） 22. 语句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 +3C） 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 xx= Int(RnD） + 5Select Case xCase 5Print “优秀”Case 4Print “良好”Case 3Print “及格”Case ElsePrint “不及格”End SelectA）不及格 B）良好 C）及格 D）优秀6. 下面程序段求两个数中较大数，________不正确。
A） Max = IIF(x > y, x, y)B） If x > y Then Max = x Else Max = yC） Max = xIf y >= x Max = yD） If y >= x Max = yMax = x7. 下列循环语句能正常结束的是________。
A） i = 5 B） i = 1Do Doi = i + 1 i = i + 2Loop Until i < 0 Loop Until i = 10 C） i = 10 D） i = 6Do Doi = i - 1 i = i - 2Loop Until i < 0 Loop Until i = 1 12. 变量未赋值时，数值型变量的值为______。
A）0 B）空串"" C）ll D）没任何值13. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()For n=1 To 20If n Mod 3<>0 then m=m+n\3Next nprint nEnd sub程序运行后，如果单击命令按钮，则窗体上显示的内容是______。
A）15 B）18 C）21 D）2414. 窗体中存在命令按钮Command1，其Click事件代码如下：Private Sub Command1_Click()X = 2Y = 1If X * Y < 1 Then Y = Y - 1 Else Y = -1Print Y - X > 0End Sub程序运行后，单击命令按钮，输出结果为______。
A）True B）False C）-1 D）115. 设a=5，b=6，c=7，d=8，执行下列语句后，x的值为______。
x=IIf((a>B） And (c>D） , 10, 20)A）10 B）20 C）True D）False16. 执行以下程序段a$= "abbacddcba"For i = 6 To 2 Step -2X= Mid(a,i,i)Y= Left(a,i)Z= Right(a,i)Z= UCase(X & Y & Z)Next iPrint z输出结果为______。
A）ABA B）BBABBA C）ABBABA D）AABAAB17. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()c=1234c1=Trim(Str(C）)For i=1 To 4Print ____NextEnd Sub程序运行后，单击命令按钮，要求在窗体上显示如下内容：1121231234则在下划线处应填入的内容为______。
A）Right(c1,i) B）Left(c1,i) C）Mid(c1,i,1) D）Mid(c1,i,i)18. InputBox函数返回值的类型为______。
A）数值 B）字符串C）变体 D）数值或字符串（视输入的数据而定）19．MsgBox函数返回值的类型为______。
A）整型数值 B）字符串C）变体 D）数值或字符串（视输入的数据而定）20. 窗体上画一个命令按钮和一个文本框，其名称分别为command1 和text1，把文本框的text属性设置为空白，然后编写如下事件过程：Private Sub Command1_Click()a=InputBox("Enter an Integer")b=InputBox("Enter an Integer")Text1.Text=b+aEnd Sub程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。
A）108 B）18 C）810 D）出错21. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim a As Integer,s As Integera=8s=1Doa=a-1Loop While a<=0Print s;aEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是______。
A）7 9 B）34 0 C）9 7 D）死循环23. 以下能够正确计算n!的程序是______。
A）Private Sub Command1_Click()N = 5 : X = 1Dox = x * ii = i + 1Loop While i < nPrint xEnd SubB）Private Sub Command1_Click()N = 5 : x = 1 : i = 1Dox = x * ii = i + 1Loop While i < nPrint xEnd SubC）Private Sub Command1_Click()N = 5 : x = 1 : i = 1Dox = x * ii = i + 1Loop While i <= nEnd SubD）Private Sub Command1_Click()N = 5 : x = 1 : i = 1Dox = x * ii = i + 1Loop While i > nPrint xEnd Sub24. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim num As Integernum=1Do Until num>6Print num;num=num+2.4LoopEnd Sub程序运行后，单击命令按钮，则窗体上显示的内容是______。
A）1 3.4 5.8 B）1 3 5 C）1 4 7 D）无数据输出25. 设有如下程序段x=2For i=1 to 10 step 2x=x+iNext运行以上程序后，X的值是______。
A）36 B）27 C）38 D）5726. 在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim i As Integer,n As IntegerFor i=0 To 50i=i+3n=n+1If i>10 Then Exit ForNextText1.Text=Str(n)End Sub程序运行后，单击命令按钮，在文本框中显示的值是______。
A）2 B）3 C）4 D）527. 下列程序段的执行结果为______。
X=6For K=1 To 10 Step -2X=X+KNext KPrint K;XA）-1 6 B）-1 16 C）1 6 D）11 3128. 执行以下程序段Dim x As Integer, i As Integerx = 0For i = 20 To 1 Step -2x = x + i \ 5Next i后，x的值为______。
A）16 B）17 C）18 D）1929. 在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框，然后编写如下事件过程：Private Sub Command1_Click()n=Val(Text1.Text)For i=2 To nFor j=2 To Sqr(i)If i Mod j=0 Then Exit ForNext jIf j>Sqr(i) Then Print iNext iEnd Sub该事件过程的功能是______。
A）输出n以内的奇数 B）输出n以内的偶数C）输出n以内的素数 D）输出n以内能被j整除的数30. 新建立窗体中画一个命令按钮，其中事件代码如下：For x=4 To 1 Step -1For y=1 To 5-xPrint Tab(y+5);"*";Next yPrintNext x窗体运行后，单击命令按钮，输出结果是______。
A）**** B）* C）***** D）**** ** **** *** ** *** *** ***** * **** **31. 在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Commandl_Click()For i=1 To 4x=4For j=1 To 3x=3For k=1 To 2x=x+6Next kNext jNext iPrint xEnd Sub程序运行后，单击命令按钮，输出结果是______。
A）7 B）15 C）157 D）53832. 在窗体上有一个命令按钮，并有如下代码，程序执行后，单击命令按钮输出结果为______。
Private Sub Command1_Click()K=0For J=1 To 2For I=1 To 3K=I+1Next IFor I=1 To 7K=K+1Next INext JPrint KEnd SubA）10 B）6 C）11 D）1633. 在窗体上画一个命令按钮和两个标签，其名称分别为Command1）Label1和Label2，然后编写如下事件过程：Private Sub Command1_Click()a=0For i=1 To 10a=a+1b=0For j=1 To 10a=a+1b=b+2Next jNext iLabel1.Caption=Str(A）Label2.Caption=Str(B）End Sub程序运行后，单击命令按钮，在标签Label1和Label2中显示的内容分别是______。
