搜索
DoWhile-Loop语句1、2005.4(填11)某个窗体已编写以下事件过程。打开窗体运行后，单击窗体，消息框的输出结果为。PrivateSubForm_Click()DimkasInteger,nasInteger,masIntegern=10;m=l;k=1DoWhilek=nm=m*2k=k+1LoopMsgBoxmEndSub2、2009.3（35）在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：PrivateSubCommand1_Click()MsgBoxf(24,18)EndSubPublicFunctionf(mAsInteger,nAsInteger)AsIntegerDoWhilemnDoWhilemnm=m-nLoopDoWhilemnn=n-mLoopLoopf=mEndFunction窗体打开运行后，单击命令按钮，则消息框的输出结果是A）2B）4C）6D）83、2008.4(13)下列子过程的功能是:将当前数据库文件中”学生表”的学生”年龄”都加1,请在程序空白的地方填写适当的语句,使程序实现所需要的功能PrvateSubSetAgePlus1_Click()DimdbAsDAO.DatabaseDimrsAsDAO.RecordsetDimfdAsDAO.FieldSetdb=CurrentDb()Setrs=db.OpenRecordset(“学生表”)setfd=rs.field(“年龄”)DoWhileNotrs.EOFrs.Editfd=rs.UpdateLooprs.Closedb.CloseSetrs=NothingSetdb=NothingEndSubDo-LoopWhile语句1、2006.4(33)以下程序段运行结束后，变量x的值为x=2y=4Dox=x*yy=y+1LoopWhiley4A．2B．4C．8D．20Do-LoopUntil语句1、2006.4(填13)设有如下代码：x=1dox=x+2loopuntil运行程序，要求循环体执行3次后结束循环，在空白处填入适当语句。2、2009.3(34)设有如下过程：X=1DoX=x+2Loopuntil________运行程序，要求循环体执行3次后结束循环，空白处应填入的语句是A）X=7B）X7C）X=7D）X7嵌套循环2、2006.4(34)在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：PrivateSubCommand1_Click()Fori=1To4x=4Forj=1To3x=3Fork=1To2x=x+6NextkNextjNextiMsgBoxxEndSub打开窗体后，单击命令按钮，消息框的输出结果是A．7B．15C．157D．5383、2005.9(35)n=0fori=1to3forj=-4to-1n=n+1nextjnexti运行完毕后，n的值是A）0B）3C）4D）124、2006.9(31）在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码：PrivateSubCommand1_Click()Dima(10,10)Form=2To4Forn=4To5a(m,n)=m*nNextnNextmMsgBoxa(2,5)+a(3,4)+a(4,5)EndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是A）22B）32C）42D）525、2006.9(填14）下面VBA程序段运行时，内层循环总次数是_________。Form=0To7Step3Forn=m-1Tom+1NextnNextm6、2007.9（35）在窗体中使用一个文本框（名为n）接受输入的值，有一个命令按钮run，事件代码如下：PrivateSubrun_Click()result=Fori=1ToMe!nForj=1ToMe!nresult=result+*Nextjresult=result+Chr(13)+Chr(10)NextiMsgBoxresultEndSub打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是______。A）****B）****************************C）****D）****************************************7、2008.4(35)在窗体中有一个命令按钮run35,对应的事件代码如下:PrivateSubrun35_Enter()DimnumAsIntegerDimaAsIntegerDimbAsIntegerDimiAsIntegerFori=1to10num=InputBox(“请输入数据:“,”输入”,1)IfInt(num/2)=num/2Thena=a+1Elseb=b+1EndIfNextiMsgBox(“运行结果:a=”&Str(a)&“,b=”&Str(b))EndSub运行以上事件所完成的功能是A对输入的10个数据求累加和B对输入的10个数据求各自的余数,然后再进行累加C对输入的10个数据分别统计有几个是整数,有几个是非整数D对输入的10个数据分别统计有几个是奇数,有几个是偶数参数传递1、2005.4(填12)在窗体上添加一个命令按钮（名为Command），然后编写如下程序：Functionm(xasInteger,yasInteger)asIntegerm=IIf(xy,x,y)EndFunctionPrivateSubCommand1_Click()DimaasInteger,basIntegera=1b=2MsgBoxm(a,b)EndSub打开窗体运行后，单击命令按钮，消息框的输出结果为。2、2005.9(填12)在窗体中添加一个命令按钮（名为Command1）和一个文本框（名为text1），然后编写如下事件过程：PrivateSubCommand1_Click()DimxAsInteger,yAsInteger,zAsIntegerx=5:y=7:z=0Me!Text1=Callp1(x,y,z)Me!Text1=zEndSubSubp1(aAsInteger,bAsInteger,cAsInteger)c=a+bEndSub打开窗体运行后，单击命令按钮，文本框中显示的内容是3、2006.4(35)假定有如下的Sub过程：Subsfun（xAsSingle，yAsSingle）t=xx=t/yy=tModyEndSub在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：PrivateSubCommand1_Click()DimaassingleDimbassinglea=5b=4sfuna，bMsgBoxa&chr（10）+chr（13）&bEndSub打开窗体运行后，单击命令按钮，消息框的两行输出内容分别为A．1和1B．1.25和1C．1.25和4D．5和44、2006.4(填12)在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：PrivateSubs（ByValpAslnteger）p=p*2EndSubPrivateSubCommand1_Click()DimiAsIntegeri=3Calls(i)Ifi4Theni=i^2MsgBoxiEndSub窗体打开运行后，单击命令按钮，则消息框的输出结果为。4、2006.9（35）在窗体中添加一个命令按钮（名称为Command1），然后编写如下代码：PublicxasintegerPrivateSubCommand1_Click()a=10Calls1Calls2MsgBoxxEndSubPrivateSubs1()x=x+20EndSubPrivateSubs2()Dimxasintegerx=x+20EndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是A）10B）30C）40D）505、2008.9(填11）在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=12:y=32Callp(x,y)MsgBoxx*yEndSubPublicSubp(nAsInteger,ByValmAsInteger)n=nMod10m=mMod10EndSub窗体打开运行后，单击命令按钮，则消息框的输出结果为___________。4、2007.4（12）若窗体中已有一个名为Commandl的命令按钮、一个名为Labell的标签和一个名为Textl的文本框，且文本框的内容光焕发为空，然后编写如下事件代码：PrivateFunctionf（xAsLong）AsBooleanIfxMod2=0Thenf=TrueElsef=FalseEndIfEndFunctionPrivareSubCommandl_Click（）DimnAsLingn=Val（Meltextl）p=Iif（f（n）,”Evennumber”,”Oddnumber’）Me!Labell.Caption=n＆“is”＆pEndSub窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为【12】。5、2006.4(35)假定有如下的Sub过程：Subsfun（xAsSingle，yAsSingle）t=xx=t/yy=tModyEndSub在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：PrivateSubCommand1_Click()DimaassingleDimbassinglea=5b=4sfuna，bMsgBoxa&chr（10）+chr（13）&bEndSub打开窗体运行后，单击命令按钮，消息框的两行输出内容分别为A．1和1B．1.25和1C．1.25和4D．5和4综合1、2008.4(34)下列四种形式的循环设计中,循环次数最少的是2、2008.4(12)在窗体中有一个名为Command12的命令按钮,Click事件的代码如下,该事件所完成的功能是:接受从键盘输入的10个大于0的整数,找出其中最大值和对应的输入位置:请依据上述功能要求将程序补充完整PrivateSubCommand12_Click()max=0max_n=0Fori=1to10num=Val(InputBox(“请输入第”&|&”个大于0的整数:”))If(nummax)Thenmax=max_n=Aa=5:b=8Ba=5:b=8DoDoa=a+1a=a+1LoopWhileabLoopWhileabCa=5:b=8Da=5:b=8DoUntilabDoUntilabb=b+1b=b+1LoopLoopEndIfNextiMsgBox(“最大值为第”&max_n&”个输入的”&max)EndSub3、2008.9(32)在VBA中，错误的循环结构是（）。A）DoWhile条件式循环体LoopC）DoUntil循环体Loop条件式B）DoUntil条件式循环体LoopD）Do循环体LoopWhile条件式4、2008.9（35）在窗体中有一个名称为run35的命令按钮，单击该按钮从键盘接收学生成绩，如果输入的成绩不在0到100分之间，则要求重新输入；如果输入的成绩正确，则进入后续程序处理。run35命令按钮的Click的事件代码如下：PrivateSubrun35_Click()DimflagAsBoolcanresult=0flag=TrueDoWhileflagresult=Val(InputBox(请输入学生成绩:,输入))Ifresult=0Andresult=100Then___________ElseMsgBox成绩输入错误，请重新输入EndIfLoopRem成绩输入正确后的程序代码略EndSub程序中有一空白处，需要填入一条语句使程序完成其功能。下列选项中错误的语句是（）。A