第10章 模块与VBA程序设计习题(二)

1、信息技术学院本科公共基础部,章节习题练习（二）,信息技术学院本科公共基础部,第二部分VBA程序流程控制部分小结1.程序结构类型（顺序/选择/循环）2.程序语句组成(注释语句/赋值语句/输入输出语句/变量声明)3.语句书写规则（连写/换行/缩进格式)4.输入函数InputBox的使用5.输出语句（函数）MsgBox使用6.分支结构的四种格式7.具有选择功能的三个函数(IIF/Switch/Choose)8.循环结构（for/do/ForEach/GoTo）,信息技术学院本科公共基础部,1.VBA程序流程控制的方式是_。A、顺序控制和分支控制B、顺序控制和循环控制C、循环控制和分支控制D、顺序、分

2、支和循环控制2.在Access中，如果要处理具有复杂条件或循环结构的操作，则应该使用的对象是_。A、窗体B、模块C、宏D、报表3.下列属于通知或警告用户的命令是_。A、PrintOutB、OutputToC、MsgBoxD、RunWarnings4.VBA程序的多条语句可以写在一行中，其分隔符必须使用符号_。A、:B、C、;D、,5.InputBox函数的返回值类型是_。A、数值B、字符串C、变体D、数值或字符串（视输入的数据而定）,D,B,C,A,B,信息技术学院本科公共基础部,6.下列Case语句中错误的是_。A、Case0To10B、CaseIs10C、CaseIs10AndIs107.

3、下列不是分支结构的语句是_。A、IfThenEndIfB、WhileWendC、IfThenElseEndIfD、SelectCaseEndSelect8.下列四个选项中，不是VBA的条件函数的是_。A、ChooseB、IfC、IIfD、Switch9.由Fori=1To9Step-3决定的循环结构，其循环体将被执行_。A、0次B、1次C、4次D、5次10.下列能够交换变量X和Y值的程序段是_。A、Y=X:X=YB、Z=X:Y=Z:X=YC、Z=X:X=Y:Y=ZD、Z=X:W=Y:Y=Z:X=Y,C,B,B,A,C,信息技术学院本科公共基础部,11.设有如下过程：x=1Dox=x+2Loop

4、Until_运行程序，要求循环体执行3次后结束循环，空白处应填入的语句是_。A、x=7D、x712.若变量i的初值为8，则下列循环语句中循环体的执行次数为_。DoWhilei=17i=i+2LoopA、3次B、4次C、5次D、6次,C,C,信息技术学院本科公共基础部,13.设a=6，则执行x=IIF(a5,-1,0)后，x的值为_。A、6B、5C、0D、-114.已知程序段：s=0Fori=1To10Step2s=s+1i=i*2Nexti当循环结束后，变量i的值为_，变量s的值为_。A、104B、113C、223D、164,D,C,第1次循环：i=1,s=1,i=i*2=2,step后，i=

5、4第2次循环：i=4,s=2,i=i*2=8,step后,i=10第3次循环：i=10,s=3,i=i*2=20,step后,i=22,信息技术学院本科公共基础部,15.执行下面的程序段后，x的值为_。x=5ForI=1To20Step2x=x+I5NextIA、21B、22C、23D、2416.执行语句：MsgBoxAAAA，vbOKCancel+vbQuestion，BBBB之后，弹出的信息框_。A、标题为BBBB、框内提示符为惊叹号、提示内容为AAAAB、标题为AAAA、框内提示符为惊叹号、提示内容为BBBBC、标题为BBBB、框内提示符为问号、提示内容为AAAAD、标题为AAAA、框内

6、提示符为问号、提示内容为BBBB,A,C,X=5I=1,3X=5+15+35=5I=5,7,9X=5+55+75+95=8I=11,13X=8+115+135=12I=15,17,19X=12+155+175+195=21,信息技术学院本科公共基础部,17.以下程序运行后，消息框的输出结果是_。a=sqr(3)b=sqr(2)c=abMsgboxc+2A、-1B、1C、2D、出错18.运行下列程序段，结果是_。Form=10To1Step0k=k+3NextmA、形成死循环B、循环体不执行即结束循环C、出现语法错误D、循环体执行一次后结束循环,B,B,信息技术学院本科公共基础部,19.假定有以

7、下循环结构：Dountil条件循环体Loop则下列说法正确的是_。A、如果条件是一个为-1的常数，则一次循环体也不执行B、如果条件是一个为-1的常数，则至少执行一次循环体C、如果条件是一个不为-1的常数，则至少执行一次循环体D、不论条件是否为真，至少要执行一次循环体,A,信息技术学院本科公共基础部,20.假定有以下程序段n=0fori=1to3forj=-4to-1n=n+1nextjnexti运行完毕后，n的值是_。A、0B、3C、4D、12,D,21.以下程序段运行结束后，变量x的值为_。x=2y=4Dox=x*yy=y+1LoopWhiley4A、2B、4C、8D、20,C,信息技术学院

8、本科公共基础部,22.在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码：PrivateSubCommand1_Click()a=0:b=5:c=6MsgBoxa=b+cEndSub窗体打开运行后，如果单击命令按钮，则消息框的输出结果为_。A、11B、a=11C、0D、False,D,23.在VBA中，错误的循环结构是_。A、DoWhile条件式循环体LoopB、DoUntil条件式循环体LoopC、DoUntil循环体Loop条件式D、Do循环体LoopWhile条件式,C,信息技术学院本科公共基础部,24.设有如下程序PrivateSubCommand1_Click()D

9、imsumAsDouble,xAsDoublesum=0n=0Fori=1To5x=n/in=n+1sum=sum+xNextiEndSub该程序通过For循环来计算一个表达式的值，这个表达式是_。A、1+1/2+2/3+3/4+4/5B、1+1/2+1/3+1/4+1/5C、1/2+2/3+3/4+4/5D、1/2+1/3+1/4+1/5,C,sum=0,n=0,x=0i=1,x=0/1,n=0+1,sum=0+0/1i=2,x=1/2,n=2,sum=0+1/2i=3,x=2/3,n=3,sum=1/2+2/3i=4,x=3/4,n=4,sum=1/2+2/3+3/4i=5,x=4/5,n

10、=5,sum=1/2+2/3+3/4+4/5,信息技术学院本科公共基础部,25.在窗体中添加一个名称为C1的命令按钮，然后编写如下事件代码：PrivateSubC1_Click()a=75Ifa60Thenk=1ElseIfa70Thenk=2ElseIfa80Thenk=3ElseIfa90Thenk=4EndIfMsgBoxkEndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是_。A、1B、2C、3D、4,A,信息技术学院本科公共基础部,26.在窗体中使用一个文本框（名为n）接受输入的值，有一个命令按钮run，事件代码如下：PrivateSubrun_Click()result=

11、Fori=1ToMe!nForj=1ToMe!nresult=result+*Nextjresult=result+Chr(13)+Chr(10)NextiMsgBoxresultEndSub打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是_。,A,A、*,B、*,C、*,D、*,信息技术学院本科公共基础部,27.下列四种形式的循环设计中，循环次数最少的是_。,C,A、a=5:b=8Doa=a+1LoopWhileab,B、a=5:b=8Doa=a+1LoopUntilab,C、a=5:b=8DoUntilabb=b+1Loop,D、a=5:b=8DoUntilaba=a+1

12、Loop,信息技术学院本科公共基础部,28.在窗体中有一个命令按钮run35，对应的事件代码如下：PrivateSubrun35_Enter()DimnumAsIntegerDimaAsIntegerDimbAsIntegerDimiAsIntegerFori=1To10num=InputBox(请输入数据:,输入,1)IfInt(num/2)=num/2Thena=a+1Elseb=b+1EndIfNextiMsgBox(运行结果：a=LoopUntily=0EndSub打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是_

13、。A、375564281919B、105020C、1050200D、3755642819,D,信息技术学院本科公共基础部,40.在窗体上有一个命令按钮C1和一个文本框Text1，编写事件代码如下：PrivateSubC1_Click()Dimi,j,xFori=1To20Step2x=0Forj=iTo20Step3x=x+1NextjNextiText1.Value=Str(x)EndSub打开窗体运行后，单击命令按钮，文本框中显示的结果是_。A、1B、7C、17D、400,A,真正的计算从i=19开始：x=0j=19,x=x+1=1,信息技术学院本科公共基础部,41.运行下列程序，输入数据

14、8、9、3、0后，窗体中显示结果是_。PrivateSubForm_click()DimsumAsInteger,mAsIntegersum=0Dom=InputBox(输入m)sum=sum+mLoopUntilm=0MsgBoxsumEndSubA、0B、17C、20D、21,C,sum=0m=8,sum=0+8=8m=9,sum=8+9=17m=3,sum=17+3=20,信息技术学院本科公共基础部,42.在窗体上添加一个命令按钮（名为C1）和一个文本框（名为Text1），并在命令按钮中编写如下事件代码：PrivateSubC1_Click()m=2.17n=Len(Str$(m)+Sp

15、ace(5)Me!Text1=nEndSub打开窗体运行后，单击命令按钮，在文本框中显示_。A、5B、8C、9D、10,D,STR$(2.17)=2.17结果共5个字符，前面有一空格Len(str$(m)=5Len(space(5)=5n=10,信息技术学院本科公共基础部,43.在窗体中添加一个名称为C1的命令按钮，然后编写如下事件代码：PrivateSubC1_Click()s=ABBACDDCBAForI=6To2Step-2x=Mid(s,I,I)y=Left(s,I)z=Right(s,I)z=x&y&zNextIMsgBoxzEndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是_。A、AABAABB、ABBABAC、BABBAD、BBABBA,D,s=ABBACDDCBA因为每次x,y,z都是重新取子串，所以最后的值是最后一次取的子串。即：I=2时x=mid(s,2,2)=BBy=left(s,2)=ABz=right(s,2)=BAz=x&y&z=BBABBA,信息技术学院本科公共基础部,44.在窗体中添加一个名称为C1的命令按钮，然后编写如下事件代码：PrivateSubC1_Click()A=75IfA60ThenI=1IfA70ThenI=2IfA80ThenI=3IfA90ThenI=4M