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

版权所有董晓莹第10章模块与VBA程序设计2020年1月20日星期一信息技术学院本科公共基础部章节习题练习（二）版权所有董晓莹第10章模块与VBA程序设计2020年1月20日星期一信息技术学院本科公共基础部第二部分VBA程序流程控制部分小结1.程序结构类型（顺序/选择/循环）2.程序语句组成(注释语句/赋值语句/输入输出语句/变量声明)3.语句书写规则（连写/换行/缩进格式)4.输入函数InputBox的使用5.输出语句（函数）MsgBox使用6.分支结构的四种格式7.具有选择功能的三个函数(IIF/Switch/Choose)8.循环结构（for/do/ForEach/GoTo）版权所有董晓莹第10章模块与VBA程序设计2020年1月20日星期一信息技术学院本科公共基础部1.VBA程序流程控制的方式是______。A、顺序控制和分支控制B、顺序控制和循环控制C、循环控制和分支控制D、顺序、分支和循环控制2.在Access中，如果要处理具有复杂条件或循环结构的操作，则应该使用的对象是______。A、窗体B、模块C、宏D、报表3.下列属于通知或警告用户的命令是______。A、PrintOutB、OutputToC、MsgBoxD、RunWarnings4.VBA程序的多条语句可以写在一行中，其分隔符必须使用符号______。A、:B、'C、;D、,5.InputBox函数的返回值类型是______。A、数值B、字符串C、变体D、数值或字符串（视输入的数据而定）DBCAB版权所有董晓莹第10章模块与VBA程序设计2020年1月20日星期一信息技术学院本科公共基础部6.下列Case语句中错误的是______。A、Case0To10B、CaseIs10C、CaseIs10AndIs50D、Case3,5,Is107.下列不是分支结构的语句是______。A、If…Then…EndIfB、While…WendC、If…Then…Else…EndIfD、Select…Case…EndSelect8.下列四个选项中，不是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=YCBBAC版权所有董晓莹第10章模块与VBA程序设计2020年1月20日星期一信息技术学院本科公共基础部11.设有如下过程：x=1Dox=x+2LoopUntil______运行程序，要求循环体执行3次后结束循环，空白处应填入的语句是_____。A、x=7B、x7C、x=7D、x712.若变量i的初值为8，则下列循环语句中循环体的执行次数为______。DoWhilei=17i=i+2LoopA、3次B、4次C、5次D、6次CC版权所有董晓莹第10章模块与VBA程序设计2020年1月20日星期一信息技术学院本科公共基础部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、164DC第1次循环：i=1,s=1,i=i*2=2,step后，i=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版权所有董晓莹第10章模块与VBA程序设计2020年1月20日星期一信息技术学院本科公共基础部15.执行下面的程序段后，x的值为______。x=5ForI=1To20Step2x=x+I\5NextIA、21B、22C、23D、2416.执行语句：MsgBoxAAAA，vbOKCancel+vbQuestion，BBBB之后，弹出的信息框______。A、标题为BBBB、框内提示符为惊叹号、提示内容为AAAAB、标题为AAAA、框内提示符为惊叹号、提示内容为BBBBC、标题为BBBB、框内提示符为问号、提示内容为AAAAD、标题为AAAA、框内提示符为问号、提示内容为BBBBACX=5I=1,3X=5+1\5+3\5=5I=5,7,9X=5+5\5+7\5+9\5=8I=11,13X=8+11\5+13\5=12I=15,17,19X=12+15\5+17\5+19\5=21版权所有董晓莹第10章模块与VBA程序设计2020年1月20日星期一信息技术学院本科公共基础部17.以下程序运行后，消息框的输出结果是______。a=sqr(3)b=sqr(2)c=abMsgboxc+2A、-1B、1C、2D、出错18.运行下列程序段，结果是______。Form=10To1Step0k=k+3NextmA、形成死循环B、循环体不执行即结束循环C、出现语法错误D、循环体执行一次后结束循环BB版权所有董晓莹第10章模块与VBA程序设计2020年1月20日星期一信息技术学院本科公共基础部19.假定有以下循环结构：Dountil条件循环体Loop则下列说法正确的是______。A、如果条件是一个为-1的常数，则一次循环体也不执行B、如果条件是一个为-1的常数，则至少执行一次循环体C、如果条件是一个不为-1的常数，则至少执行一次循环体D、不论条件是否为真，至少要执行一次循环体A版权所有董晓莹第10章模块与VBA程序设计2020年1月20日星期一信息技术学院本科公共基础部20.假定有以下程序段n=0fori=1to3forj=-4to-1n=n+1nextjnexti运行完毕后，n的值是______。A、0B、3C、4D、12D21.以下程序段运行结束后，变量x的值为______。x=2y=4Dox=x*yy=y+1LoopWhiley4A、2B、4C、8D、20C版权所有董晓莹第10章模块与VBA程序设计2020年1月20日星期一信息技术学院本科公共基础部22.在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码：PrivateSubCommand1_Click()a=0:b=5:c=6MsgBoxa=b+cEndSub窗体打开运行后，如果单击命令按钮，则消息框的输出结果为____。A、11B、a=11C、0D、FalseD23.在VBA中，错误的循环结构是______。A、DoWhile条件式循环体LoopB、DoUntil条件式循环体LoopC、DoUntil循环体Loop条件式D、Do循环体LoopWhile条件式C版权所有董晓莹第10章模块与VBA程序设计2020年1月20日星期一信息技术学院本科公共基础部24.设有如下程序PrivateSubCommand1_Click()DimsumAsDouble,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/5Csum=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=5,sum=1/2+2/3+3/4+4/5版权所有董晓莹第10章模块与VBA程序设计2020年1月20日星期一信息技术学院本科公共基础部25.在窗体中添加一个名称为C1的命令按钮，然后编写如下事件代码：PrivateSubC1_Click()a=75Ifa60Thenk=1ElseIfa70Thenk=2ElseIfa80Thenk=3ElseIfa90Thenk=4EndIfMsgBoxkEndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是______。A、1B、2C、3D、4A版权所有董晓莹第10章模块与VBA程序设计2020年1月20日星期一信息技术学院本科公共基础部26.在窗体中使用一个文本框（名为n）接受输入的值，有一个命令按钮run，事件代码如下：PrivateSubrun_Click()result=Fori=1ToMe!nForj=1ToMe!nresult=result+*Nextjresult=result+Chr(13)+Chr(10)NextiMsgBoxresultEndSub打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是______。AA、****************B、****************C、****************************D、****************版权所有董晓莹第10章模块与VBA程序设计2020年1月20日星期一信息技术学院本科公共基础部27.下列四种形式的循环设计中，循环次数最少的是______。CA、a=5:b=8Doa=a+1LoopWhileabB、a=5:b=8Doa=a+1LoopUntilabC、a=5:b=8DoUntilabb=b+1LoopD、a=5:b=8DoUntilaba=a+1Loop版权所有董晓莹第10章模块与VBA程序设计2020年1月20日星期一信息技术学院本科公共基础部28.在窗体中有一个命令按钮run35，对应的事件代码如下：PrivateSubrun35_Enter()DimnumAsIntegerDimaAsIntegerDimbAsIntegerDimiAsIntegerFori=1To10num=InputBox(请输入数据:,输入,1)IfInt(num/2)=num/2Thena=a+1Elseb=b+1EndIfNextiMsgBox(运行结果：a=&Str(a)&,b=&Str(b))EndSub运行以上事件所完成的功能是______。DA、对输入的10个数据求累加和B、对输入的10个数据求各自的余数，然后再进行累加C、对输入的10个数据分别统计有几个是整数，有几个是非整数D、对输入的10个数据分别统计有几个是奇数，有几个是偶数版权所有董晓莹第10章模块与VBA程序设计2020年1月20日星期一信息技术学院本科公共基础部29.在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在0到100分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。run35命令按钮的Click的事件代码如下：PrivateSubrun35_Click()DimflagAsBooleanresult=0flag=TrueDoWhileflagresult=Val(InputBox(请输入学生成绩:,输入))Ifresult=0Andresult=100Then_____________ElseMsgBox成绩输入错误，请重新输入EndIfLoopRem成绩输入正确后的程序代码略EndSubC程序中有一空白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是______。A、flag=FalseB、flag=NotflagC、flag=TrueD、ExitDo版权所有董晓莹第10章模块与VBA程序设计2020年1月20日星期一信息技术学院本科公共基础部30.运行下列程序，结果是______。PrivateSubCommand32_Click()f0=1:f1=1:k=1DoWhilek=5f=f0+f1f0=f1f1=fk=k+1LoopMsg