搜索
If条件then[语句]Else[语句]Endif行IF语句：（不需要endif）Ifx0theny=1Ifx=0theny=0Ifx0theny=-1块if语句：（一个IF语句对应一个endif）Ifx0thenY=1EndifIfx=0thenY=0EndifIfx0thenY=-1EndifElseif语句：Ifx0thenY=1Elseifx=0thenY=0Elseifx0thenY=1Endif多路分支：（遇到符合条件的就结束）SelectcasexCaseis0Y=1Case0Y=0Caseis0Y=-1EndselectCase1to20Case2,4,6,10Caseis=10,1to20,40,60不能有AND逻辑运算符循环：Do..loop的五种结构（不需要编写程序，写出执行过程）I=1Dowhilei=5S=s+20I=I+1LoopDo…LoopwhileDountil..LoopDo…LoopuntilIfi=5thenexitdoFor…next(step0=step0=)退出exitforWhile…wend无退出结构数组（下标）Dima([下标下限to]下标上限)默认下限为0C(40,5)40行50列Optionbase1下限为1函数(主程序函数)结果赋值给函数名Function…Endfunction过程：（主程序callSub…EndsubByval传值（不返回值）Byref传地址（返回值）经典考题1、以下关于VBA运算符优先级比较，正确的是CA）算术运算符逻辑运算符比较运算符B）逻辑运算符比较运算符算术运算符C）算术运算符比较运算符逻辑运算符D）以上均是错误的2、在VBA中，如果没有显式声明或用符号来定义变量的数据类型，变量的默认数据类型为DA）BooleanB)IntC)StringD)Variant3、以下可以得到“2*5=10”结果的VBA表达式为AA)“2*5”&”=“&2*5B）“2*5”+“=”2*5C）2*5&“=”&2*5D）2*5+“=”+2*54、以下程序段运行后，消息框输出结果是Ba=sqr(3)b=sqr(2)c=abMsgboxc+2A)-1B)1C)2D)出错5、用于获得字符串Str从第2个字符开始的3个字符的函数是AA）Mid(Str,2,3)B)Middle(Str,2,3)C)Right(Str,2,3)D)Left(Str,2,3)6、下列逻辑表达式中，能正确表示条件“x和y都是奇数”的是CA)xMod2=1OryMod2=1B)xMod2=0OryMod2=0C)xMod2=1AndyMod2=1D)xMod2=0AndyMod2=07、假定有以下循环结构BDoUntil条件循环体Loop则正确的是A)如果“条件”值为0，则一次循环体也不执行B）如果“条件”值为0，则至少执行一次循环体C）如果“条件”值不为0，则至少执行一次循环体D）不论“条件”是否为“真”，至少要执行一次循环体8、VBA程序的多条语句可以写在一行中，其分隔符号AA）：B）’C）;D),9、VBA表达式子3*3\3/3的输出结果是DA)0B)1C)3D）910、执行下面的程序段后，b的值为5a=5b=7a=a+bb=a-ba=a-b11、在窗体中添加一个命令按钮（名称为为Command1）,然后编写如下代码：PrivateSubCommand1_Click()a=0:b=0:c=6MsgBoxa=b+cEndSub窗体打开运行后，如果单击命令按钮，则消息框的输出结果为D。A)11B)a=11C)0D)False12、在窗体上添加一个命令按钮（名为Command1）和一个文本框（名为Text1）,并在命令按钮中编写如一事件代码：PrivateSubCommand1_()m=2.17n=Len(Str$(m)+Space(5))Me!Text=nEndSub打开窗体运行后，单击命令按钮，在文本框中显示（D）A)5B)8C）9D)1013.下列Case语句中错误的是CA）Case0to10B）CaseIS10C)CaseIs10andIs50D)Case3,5,Is1014在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：PrivateSubCommand1_Click()a=75Ifa60Theni=1Ifa70Theni=2ifa80Theni=3ifa90Theni=4MsgBoxiEndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是B。A）1B）2C）3D)415.在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：PrivateSubCommand1_Click()a=75Ifa60Thenk=1Elselfa70Thenk=2Elselfa80Thenk=3Elselfa90Thenk=4EndlfMsgBoxkEndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是A。A)1B)2C)3D)416.下面程序的功能是计算折旧年限。假设一台机器的原价值为100万元，如果每年的折旧率为4%，多少年后它的价值不足50万元。请填空。y=0p=100x=0.04Dop=p*（1-x）y=y+1LoopUntilp(50)MsgBoxy17.执行下面的程序，消息框里显示的结果是abdbPrivateSubForm_Click()DimStrasString,kasIntegerStr=”ab”Fork=Len(Str)To1Step-1Str=Str&Chr(asc(Mid(Str,k,1))+k）NextkMsgBoxStrEndSub18.某个窗体已编写一下事件过程。打算窗体运行后，单击窗体，消息框的输出结果为（1024）PrivateSubForm_Click()DimkasInteger,nasInteger,masIntegern=10;m=1;k=1DoWhilek=nm=m*2k=k+1loopMsgBoxmEndSub19.以下是一个竞赛评分程序。8位评委，去掉一个最高分和一个最低分，计算平均分（设满分位10分）。请填空补充完整。PrivateSubForm_Click()DimMaxasInteger,MinIntegerDimiasInteger,xasInteger,sasIntegerDimpasSingleMax=0Min=10Fori=1to8X=Val(InputBox(“请输入分数：”))If(maxx)ThenMax=xIf(minx)ThenMin=xS=s+xNextis=(s-max-min)p=s/6MsgBox“最后得分：”&pEndSub20在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：PrivateSubCommand1_Click()S=”ABBACDDCAB”Fori=6to2step-2x=Mid(s,i,i)y=Left(s,i)z=Right(s,i)z=x&y&zNextiMsgBoxzEndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是（D）A)AABAABB)ABBABAC)BABBAD)BBABAB21在窗体中添加一个命令按钮(名为Command1),，然后编写如下事件PrivateSubCommand1_Click()Dimb,kFork=1to6b=23+kNextkMsgBoxb+kEndSub窗体开始运行后，单击命令按钮，消息框的输出结果是(36)22以下程序段运行结束后，变量X的值为Cx=2：y=4Dox=x*yy=y=1LoopWhiley4A)2B)4C)8D)2023、在窗体中添加一个命令按钮(名为Command1),，然后编写如下事件PrivateSubCommand1_Click()StaticbAsintegerb=b+1EndSub窗体打开运行后，三次单击命令按钮后，变量b的值是（3）24、在窗体上添加一个命令按钮（名为Command1），然后编写如下的事件过程：PrivateSubCommand1_Click()Fori=1to4X=4Forj=1to3x=3Fork=1to2x=x+6NextkNextjNextiMsgboxxEndSub程序运行后，单击命令按钮，输出结果是BA7B15C157D53825在窗体中添加一个名称为Command1的命令按钮，然后编写如下事件代码：PrivateSubCommand1_Click()Dima(10,10)Form=2to4Forn=4To5a(m,n)=m*nNextnNextmMsgboxa(2,5)+a(3,4)+a(4,5)EndSub窗体打开运行后，单击命令按钮，则消息框的输出结果是（C）A22B32C42D5226、执行下面的程序，消息框的输出结果是（33）OptionBase1PrvateSubCommand1_Click()Dima(10),p(3)AsIntegerk=5Fori=1To10a(i)=iNextiFori=1To3P(i)=a(i*i)NextiFori=1To3k=k+p(i)*2NextiMsgBoxEndSub27、在窗体上添加一个命令按钮（名为COMMAND1），然后编写如下程序；PrivateSubCommand1_Click()DimaasInteger,basIntegera=1:b=2MsgBoxm(a,b)EndSub打开窗体运行后，单击命令按钮，消息框的输出结果为（2）28若窗体中已有一个名为Command1的命令按钮、一个名为Label1的标签和一个名为Text的文本框的内容为空，然后编写如下事件的代码：PrivareSubCommand1_lick（）DimnAslongn=Val(Me!textl)p=iif(f(n),”Evenumber”,”Oddnumber”)Me!Labell.Caption=n&”is”&pEndSub窗体打开运行后，在文本框中输入21，单击命令按钮，则标签显示内容为（21isoddnumber）FUNCTIONm(xasinteger,yasinteger)asintegerm=iif(xy,x,y)EndFunctionPrivatefunctionf(xaslong)AsbooleanIfxmod2=0thenF=trueElsef=falseendifendfunction29.在窗体中添加一个名为Command1的命令按钮，然后编写如下程序：PrivateSubCommand1-Click（）DimiAsIntegeri=3Calls（i）Ifi4ThenI=I^2MsgboxiEndSub窗体打开运行后，单击命令按钮，则消息框的输出结果为（3）30.在窗体中添加一个名为Command1的命令按钮，然后编写如下程序：PublicxAsintegerPrviteSubCommand1-Click()x=10Calls1Calls2MsgBoxxEndSub窗体打开运行后，单击命令按钮，则消息框的输出结果为___30__31.有一个VAB计算机程序的功能如下，该程序用户界面由4个文本框组成。4个文本框的名称分别为：Text1,Text2,Text3,Text4。3个按钮分别为：清除（名为Command1），计算（名为Commd2）和退出（名为Commd3）。窗体打开运行后，单击清除按钮则清除所有文本框中显示的内容：单击计算机按钮，则计算机在Text1，Text2，和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中：单击退出按钮则退出。PrivateSubCommand2_Click()IfMe!Text1=””OrMe!Text2=””OrMe!Text3=””ThenMsgBox”成绩输入不全”ElseMe!Text4=(val(me!te