2014模块练习.pptVIP

模块与VBA (1)若变量i的初值为8，则下列循环语句中循环体的执行次数为Do While i=17i=i+2Loopa) 3次b)4次c)5次d) 6次 说明：i=8，i=10，i=12，i=14，i=16的时候循环体中的语句执行，当 i 变为18的时候，条件i=17不满足，循环体结束。 模块与VBA (3) 已知程序段：s=0For i=1 to 10 step 2s=s+1i=i*2Next I当循环结束后，变量i的值为_____，变量s的值为_____a) 10 4b)113c)223d) 164 说明：这是一个循环语句，i的值从1逐步递增至10，每次递增的步长为2当 i 是1时，s=1，i=2，i=4当 i 是4时，s=2，i=8，i=10当 i 是10时，s=3，i=20，i=22当i=22时，循环体结束 (4) VBA程序的多条语句可以写在一行中，其分隔符必须使用符号：a) ：b) ‘c) ；d) ， 模块与VBA (5)在窗体中添加一个名称为command1的命令按钮，然后编写如下事件代码：Private Sub Command1_Click()Dim a(10,10)For m=2 to 4For n=2 to 5a(m,n)=m*nNext nNext mMsgBox a(2,5)+a(3,4)+a(4,5)End Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是：a) 22b)32c) 42d)52 说明： 当m=2,n=2时，a(2,2)=4；当m=2,n=3时，a(2,3)=6；当m=2,n=4时，a(2,4)=8…… 当m=3,n=2时，a(3,2)=6；当m=3,n=3时，a(3,3)=9；当m=3,n=4时，a(3,4)=12……当m=4,n=2时，a(4,2)=8；当m=4,n=3时，a(4,3)=12；当m=4,n=4时，a(4,4)=16… … 依次类推，每一个二维数组的元素值，就是这个二维数组的下标值相乘，所以显示值是：2*5+3*4+4*5=42 模块与VBA (6)VBA中去除前后空格的函数是____a) Ltrimb)Rtrimc) trimd) Ucase 说明：Ltrim函数是去除字符串开始空格Rtrim函数是去除字符串尾部空格Ucase函数是将字符串中小写字母转换成大写字母 (7) 以下可以得到“2*5=10”结果的VBA表达为：a) “2*5” “=” 2*5b) “2*5” + “=” + 2*5c) 2*5 “=” 2*5d) 2*5 + “=” + 2*5 说明：等式中2*5=是做为字符串显示，用意题目，而10则是数值，表示结果“”连接运算符是强制两个字符串连接“+”连接运算符是两个字符串连接，但连接的必须是字符串b)和d)中后面那个+号连接的并不是字符串c)中的前面那个2*5是数值，并不能做为字符串，结果显示为：10=10 模块与VBA (8) 在窗体中添加一个名称为Command1的命令按钮，编写事件代码：Private Sub Command1_Click()s=“ABBACDDCAB”For i=6 to 2 Step-2x=Mid(s,i,i) ： y=left(s,i) ： z=right(s,i)z=x y zNext IMsgBox zEnd Sub窗体打开运行后，单击命令按钮，则消息框的输出结果是：a) AABAABb)ABBABAc)BABBAAd)BBABAB 说明：Mid中间取字符串函数，Left左取字符串函数，Right右取字符串函数当i=6时，x=“DDCAB”，y=“ABBACD”，z=“CDDCAB”，z=“DDCABABBACDCDDCAB”当i=4时，x=“ACDD”，y=“ABBA”，z=“DCAB”，z=“ACDDABBADCAB”当i=2时，x=“BB”，y=“AB”，z=“AB”，z=“BBABAB”当i=0时，循环体退出，显示z的值“BBABAB” (9) 以下关于运算优先级比较，叙述正确的是：a) 算术运算符逻辑运算符关系运算符b) 逻辑运算符关系运算符算术运算符c) 算术运算符关系运算符逻辑运算符d) 以上均不正确 模块与VBA (10) 在窗体中添加一个名称为command1的命令按钮，然后编写如下程序： Public x As integer Private Sub Command1_Click() x=10 Call s1 Call s2 MsgBox x End Sub Private Sub s1 x=x+20 End Sub Private Sub s2 x