vba编程练习题+近年真题

《vba编程练习题+近年真题》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、VBA编程练习题1、假定有以下循环结构DoUntil条件循环体Loop则正确的叙述是A）如果“条件”值为0，则一次循环体也不执行B）如果“条件”值为0，则至少执行一次循环体C）如果“条件”值不为0，则至少执行一次循环体D）不论“条件”是否为“真”，至少要执行一次循环体2.设有以下窗体单击事件过程：PrivateSubForm_Click()a=1Fori=1To3SelectCaseiCase1,3a=a+1Case2,4a=a+2EndSelectNextiMsgBoxaEndSub打开窗体运行后

2、，单击窗体，则消息框的输出内容是5。3.在窗体中添加一个命令按钮（名为Command1）和一个文本框（名为text1），然后编写如下事件过程：PrivateSubCommand1_Click()DimxAsInteger,yAsInteger,zAsIntegerx=5:y=7:z=0Me!Text1=""Callp1(x,y,z)Me!Text1=zEndSubSubp1(aAsInteger,bAsInteger,ByValcAsInteger)c=a+bEndSub打开窗体运行后，单击命令按钮

3、，文本框中显示的内容是。4.以下程序段运行结束后，变量x的值为x=2y=4Dox=x*yy=y+1LoopWhiley<6A）4B）40C）8D）205.在窗体上添加一个命令按钮（名为Command1），然后编写如下事件过程：PrivateSubCommand1_Click()Fori=1To4x=4Forj=1To3x=3Fork=1To2x=2x=x+6NextkNextjNextiMsgBoxxEndSub打开窗体后，单击命令按钮，消息框的输出结果是A）7B）15C）157D）86.设有如下代

4、码：x=1dox=x+3loopuntil>=10或>7运行程序，要求循环体执行3次后结束循环，在空白处填入适当语句。7.在Access中，DAO的含义是：A.开放数据库互连应用编程接口B.数据库访问对象C.Active数据对象D.数据库动态链接库8.在Access中，ADO的含义是：A.开放数据库互连应用编程接口B.数据库访问对象C.Active数据对象D.数据库动态链接库9.在窗体中有一个标签Lb1和一个命令按钮Command1，事件代码如下：OptionCompareDatabaseDimaA

5、sString*10PrivateSubCommand1_Click()a="1234"b=Len(a)Me.Lb1.Caption=bEndSub打开窗体后单击命令按钮，窗体中显示的内容是A.4B.5C.10D.4010.在窗体中使有一个文本框（名为n）接受输入的值，有一个命令按钮run，事件代码如下：PrivateSubrun_Click()result=""Fori=1ToMe!nForj=1To（Me!n）+1-iresult=result+"*"Nextjresult=result+Chr

6、(13)+Chr(10)NextiMsgBoxresultEndSub打开窗体后，如果通过文本框输入的值为4，单击命令按钮后输出的图型是D11.在VBA中双精度的类型标识是A.IntegerB.SingleC.DoubleD.Variant12.运行下列过程，当输入一组数据：10，20，50，80，40，30，90，100，60，70，输出的结果应该是Subp1()Dimi,j,arr(11)AsIntegerk=1whilek<=10arr(k)=Val(InputBox(“请输入第”&k&“个数

7、：”,“输入窗口”))k=k+1WendFori=1To9j=i+1Ifarr(i)>arr(j)Thentemp=arr(i)arr(i)=arr(j)arr(j)=tempEndIfDebug.Printarr(i)NextiEndSubA）无序数列B）升序数列C）降序数列D）原输入数列13.下列程序的功能是计算N=2+(2+4)+(2+4+6)+……+(2+4+6+……+40)的值。PrivateSubCommand34_Click()t=0m=0sum=0Dot=t+msum=sum+tm=

8、Loopwhilem<41MsgBox“Sum=“&sumEndSub空白处应该填写的语句是A）t+2B）t+1C）m+2D）m+114.已知：DimrsAsnewADODB.RecordSet,在程序中为了得到记录集的下一条记录，应该使用的方法是rs.MoveNext。15.在VBA中，没有显式声明或使用符号来定义的变量，其数据类型默认是Variant。16.下列程序的功能是：输入10个整数，逆序后输出，请在程序空白处填入适当语句使程序完成指定的功能。Private