第8章VBA程序设计基础.docx

1、第8章VBA程序设计基础（10）定义无符号整数类为UInt,下面可以作为类UInt实例化值的是A）-369 B）369 C）0.369 D）整数集合1,2,3,4,5（17）下列表达式计算结果为日期类型的是A）#2012-1-23#-#2011-2-3# B）year(#2011-2-3#)C）DateValue(2011-2-3) D）Len(2011-2-3)（23）下列表达式中,能正确表示条件“x和y都是奇数”的是A）x Mod 2=0 And y Mod 2=0B）x Mod 2=0 Or y Mod 2=0C）x Mod 2=1 And y Mod 2=1D）x Mod 2=1 Or

2、 y Mod 2=1（26）在VBA中，能自动检查出来的错误是A）语法错误 B）逻辑错误C）运行错误 D）注释错误（27）下列给出的选项中，非法的变量名是A）Sum B）Integer_2C）Rem D）Form1（28）如果在被调用的过程中改变了形参变量的值；但又不影响实参变量本身，这种参数传递方式称为A）按值传递 B）按地址传递C）ByRef传递 D）按形参传递（29）表达式“B=INT(A+0.5)”的功能是A）将变量A保留小数点后1位 B）将变量A四舍五入取整C）将变量A保留小数点后5位 D）舍去变量A的小数部分（30）VBA语句“Dim NewArray(10) as Integer

3、”的含义是A）定义10个整型数构成的数组NewArrayB）定义11个整型数构成的数组NewArrayC）定义1个值为整型数的变量NewArray(10)D）定义1个值为10的变量NewArray（31）运行下列程序段，结果是For m=10 to 1 step 0k=k+3Next mA）形成死循环 B）循环体不执行即结束循环C）出现语法错误 D）循环体执行一次后结束循环（32）运行下列程序，结果是Private Sub Command32_Click()f0=1:f1=1:k=1Do While k=5f=f0+f1f0=f1f1=fk=k+1LoopMsgBox f=&fEnd SubA

4、）f=5 B）f=7C）f=8 D）f=13（33）有如下事件程序，运行该程序后输出结果是Private Sub Command33_Click()Dim x As Integer,y As Integerx=1:y=0Do Until y=25y=y+x*xx=x+1LoopMsgBox x=&x&,y=&yEnd SubA）x=1,y=0 B） x=4,y=25C）x=5,y=30 D）输出其他结果（34）下列程序的功能是计算sum=1+(1+3)+(1+3+5)+(1+3+5+39)Private Sub Command34_Click()t=0m=1sum=0Dot=t+msum=su

5、m+tm=_Loop While m=85 Thenqmzp=优ElseIf pscj+kscj“11”C）102=98+4D）#5/1/2010#+5（26）要将一个数字字符串转换成对应的数值，应使用的函数是A）ValB）SingleC）AscD）Space（27）下列变量名中，合法的是A）4AB）A-1C）ABC_1D）private（28）若变量i的初值为8,则下列循环语句中循环体的执行次数为Do While i=17i=i+2LoopA）3次B）4次C）5次D）6次（29）InputBox函数的返回值类型是A）数值B）字符串C）变体D）视输入的数据而定（30）下列能够交换变量X和Y值的

6、程序段是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（31）窗体中有命令按钮Commandl,事件过程如下：Public Function f（x As Integer） As IntegerDim y As Integerx=20y=2f=x*yEnd FunctionPrivate Sub Commandl_Click（）Dim y As IntegerStatic x As Integerx=10y=5y=f（x）Debug .Print x;yEnd Sub运行程序，单击命令按钮，则立即窗口中显示的内容是A）10 5B）10

7、40C）20 5D）20 40（32）窗体中有命令按钮Commandl和文本框Text1,事件过程如下：Function result（ByVal x As Integer）As BooleanIf Mod 2=0 Thenresult=TrueElseresult=FalseEnd IfEnd FunctionPrivate Sub Commandl_Click（）x=Val（InputBox（“请输入一个整数”）If_ ThenText1=Str（x）&“是偶数.”ElseText1=Str（x）&“是奇数.”End IfEnd Sub运行程序，单击命令按钮，输入19,在Text1中会显示

8、“19是奇数”.那么在程序的空白处应填写A）result（x）=“偶数”B）result（x）C）resuIt（x）=“奇数”D）NOT result（x）（33）窗体有命令按钮Commandl和文本框Textl,对应的事件代码如下：Private Sub Commandl_Click（ ）For i=1 To 4x=3For j=1 To 3For k=1 To 2x=x+3Next kNext jNext iText1 .Value=Str（x）End Sub运行以上事件过程，文本框中的输出是A）6B）12C）18D）21（34）窗体中有命令按钮run34,对应的事件代码如下：Privat

9、e Sub run34_Enter（）Dim num As Integer,a As Integer,b As Integer,i As IntegerFor i=1 To 10num=InputBox（“请输入数据：”,“输入”）If Int（num/2）=num/2 Thena=a+1Elseb=b+1End IfNext iMsgBox（“运行结果：a=”&Str（a）&“,b=”&Str（b）End Sub运行以上事件过程，所完成的功能是A）对输入的10个数据求累加和B）对输入的10个数据求各自的余数，然后再进行累加C）对输入的10个数据分别统计奇数和偶数的个数D）对输入的10个数据分

10、别统计整数和非整数的个数（35）运行下列程序，输入数据8, 9, 3, 0后，窗体中显示结果是Private Sub Form _click（）Dim sum AsInteger,m As Integersum=0Dom=InputBox（“输入m”）sum=sum+mLoop Until m=0MsgBox sumEnd SubA）0B）17C）20D）21（9）在VBA中要判断一个字段的值是否为Null,应该使用的函数是【9】。（10）一下列程序的功能是求方程：x2十y2=1000的所有整数解。请在空白处填入适当的语句，使程序完成指定的功能。Private Sub Commandl_Cli

11、ck（）Dim as integer,y as integerFor x= -34 To 34For y= -34 To 34If【10】ThenDebug .Print x,yEnd IfNext yNext xEnd Sub（11）下列程序的功能是求算式：1+1/2 ! +1/3!+1/4!+前10项的和（其中n!的含义是n的阶乘）。请在空白处填入适当的语句，使程序完成指定的功能。Private Sub Commandl_Click（）Dim i as integer,s as single,a as singlea=1:s=0For i=1 To 10a=【11】s=s+aNext iD

12、ebug .Print “1+1/2!十1/3!+. =”;sEnd Sub（12）在窗体中有一个名为Command12的命令按钮，Click事件功能是：接收从键盘输入的10个大于0的不同整数，找出其中的最大值和对应的输入位置。请在空白处填入适当语句，使程序可以完成指定的功能。Private Sub Command12_Click（）max=0maxn=0for i=1 To 10num=Val（InputBox（,请输入第“&i&”个大于0的整数：“）If【12】Thenmax=nummaxn=【13】End IfNext iMsgBox（”最大值为第“&maxn&”个输入的“&max）En

13、d Sub（13）数据库的”职I基本情况表“有”姓名“和”职称“等字段，要分别统计教授、副教授和其他人员的数量。请在空白处填入适当语句，使程序可以完成指定的功能。Private Sub Commands_Click（）Dim db As DAO .DatabaseDim rs As DAO .RecordsetDim zc As DAO .FieldDim Countl As Integer,Count2 As Integer,Count3 As IntegerSet db=CurrentDb（）Set rs=db .OpenRecordset（”职工基本情况表“）Set zc=rs .Fie

14、lds（”职称“）Countl=0 : Count2=0 : Count3=0Do While Not【14】Select Case zcCase Is=”教授“Countl=Countl+1CaseIs=”副教授“Count2=Count2+1Case ElseCourit3=Count3+1End Select【15】Looprs .CloseSet rs=NothingSet db=NothingMsgBox”教授：“&Count1&”,副教授：“&Count2 &”,其他：“&count3End Sub2010年3月(21)在调试VBA程序时，能自动被检查出来的错误是A)语法错误B)逻

15、辑错误C)运行错误D)语法错误和逻辑错误(23)在已建窗体中有一命令按钮(名为Commandl)，该按钮的单击事件对应的VBA代码为：Private Sub Commandl_Click()subT.Form.RecordSource = select * from雇员End Sub单击该按钮实现的功能是A)使用select命令查找“雇员”表中的所有记录B)使用select命令查找并显示“雇员”表中的所有记录C)将subT窗体的数据来源设置为一个字符串D)将subT窗体的数据来源设置为“雇员”表(27)能够实现从指定记录集里检索特定字段值的函数是A)NzB)FindC)LookupD)DLoo

16、kup(28)如果X是一个正的实数，保留两位小数、将千分位四舍五入的表达式是A)0.01*Int(x+0.05)B)0.01*Int(100*(X+0.005)C)0.01*Int(x+0.005)D)0.01*Int(100*(X+0.05)(29)在模块的声明部分使用“Option Base 1”语句，然后定义二维数组A(2 to 5,5)，则该数组的元素个数为A)20B)24C)25D)36(30)由“For i=1 To 9 Step -3”决定的循环结构，其循环体将被执行A)0次B)1次C)4次D)5次(31)在窗体上有一个命令按钮Commandl和一个文本框Textl，编写事件代码

17、如下：Private Sub Command1_Click()Dim i,j,xFor i = 1 To 20 step 2x = 0For j = To 20 step 3x = x + 1Next jNext iTextl.Value=Str(x)End Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是A)1B)7C)17D)400(32)在窗体上有一个命令按钮Commandl，编写事件代码如下：Private Sub Commandl_Click()Dim y As Integery = 0Doy = InputBox(y=)If (y Mod 10) + Int(y / 10)

18、 = 10 Then Debug.Print y;Loop Until y = 0End Sub打开窗体运行后，单击命令按钮，依次输入10、37、50、55、64、20、28、19、-19、0，立即窗口上输出的结果是A)37 55 64 28 19 19B)10 50 20C)10 50 20 0D)37 55 64 28 19(33)在窗体上有一个命令按钮Commandl，编写事件代码如下：Private Sub Command1_Click()Dim x As Integer, y As Integerx = 12: y = 32Call Proc(x, y)Debug.Print x;

19、yEnd SubPublic Sub Proc(n As Integer, ByVal m As Integer)n = n Mod 10m = m Mod 10End Sub打开窗体运行后，单击命令按钮，立即窗口上输出的结果是A)2 32B)12 3C)2 2D)12 3234)在窗体上有一个命令按钮Commandl，编写事件代码如下：Private Sub Commandl_Click()Dim d1 As DateDim d2 As Datedl = #12/25/2009#d2 = #1/5/2010#MsgBox DateDiff(” ww”, d1, d2)End Sub打开窗体运行后，单击命令按钮，消息框中输出的结果是A)1B)2C)10D)11(35)下列程序段的功能是实现“学生”表中“年龄”字段值加1Dim Str As String