《VBA程序设计习题》由会员分享，可在线阅读，更多相关《VBA程序设计习题（9页珍藏版）》请在金锄头文库上搜索。
1、计算机等级考试培训-ACCESS在窗体上画一个名称为Text 1的文本框和一个名称为 Command 1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click() （此处有下划线 ）Dim array1(10,10) As IntegerDim i, j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j1 Next i Text1.Text=array1(2,3)+array1(3,4)End Sub 程序运行后，单击命令按钮，在文本框中显示的值是 A)5B)7C)12D)19Date1黑马培
2、训计算机等级考试培训-ACCESSn【解析】题目定义了一个二维数组，使用二重循环 给数组赋值，经过循环后，数组array1(2,3)=5， array1(3,4)=7，然后将array1(2,3)array1(3,4)赋 给Text1，最后结果为12。Date2黑马培训计算机等级考试培训-ACCESS单击窗体上Command1命令按钮时，执行如下事件过 程：Private Sub Command1_Click( ) a$ = “software and hardware” b$ = Right (a$,8) c$ = Mid(b$,1,8) MsgBox c$End Sub 则在弹出的信息框的
3、标题栏中显示的信息是 A)software and hardware B)software C)HardwareD)andDate3黑马培训计算机等级考试培训-ACCESS本题考查字符串截取Right和Mid函数，程序开始给a$ 赋值，然后将a$右边第1个字符开始到第8个字符赋 值给b$，也就是hardware，此时利用Mid函数截取 b$字符串，从第1个开始，截取8个，相当于截取了 b$所有的字符，因此结果是hardware。答案为C。Date4黑马培训计算机等级考试培训-ACCESS在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click() Di
4、m a() a=Array(1,3,5,7) s=0 For i=1 To 3 s=s*10+a(i) Next i Print sEnd Sub 程序运行后，输出结果为 A)135B)357C)531D)753Date5黑马培训计算机等级考试培训-ACCESS有如下VBA代码，运行结束后，变量n的值是 n=0 For i=1 To 3 For j=4 To 1 n=n+1 Next j Next i A)0B)3C)4D)12 本题为嵌套的两层for循环,由题可知每次内层for循环 执行一次,n的值即加1,由外层for循环执行3次,每次 内层for循环都执行4次,即内层for循环共执行12次
5、, 即循环结束时n的值为12。Date6黑马培训计算机等级考试培训-ACCESS在有参函数设计时，要想实现某个参数的 “双向”传递，就应当说明该形参为“传址 ”调用形式。其设置选项是 A)ByVal B)ByRef C)Optional D)ParamArray 解析：参数传递过程可以有两种参数调用方法：“单 向”的传值调用（ByVal）和双向的传址调用（ ByRef）。Date7黑马培训计算机等级考试培训-ACCESS有如下程序段： Public Sub xy (a As Integer, b As Integer)Dim t As Integer Do t=a Mod b a=b:b=t
6、Loop While t Print a End Sub 用Call xy(96,40)调用该通用过程后，输出结果是 A)6 B)8 C)10 D)12Date8黑马培训计算机等级考试培训-ACCESS解答此题的关键是读懂Do-Loop循环的执行过 程，理解Mod运算的含义。Mod是求模运算 ，所以t的值总是a除以b的余数。Do-Loop循 环要执行若干次，每执行一次循环体。变量t 、a和b都会取得一个新值，就是：将上一次 的除数作为下一次的被除数。当a被b整除后 ，结束循环的执行。用Call xy（96,40）语句 调用该通用过程后，a取得数值96，b取得数 值为40。Xy通用过程的功能是求a和b的最大 公约数。Date9黑马培训
