VBA笔试习题.docVIP

1. 程序段 For S=5 To 10 Step 1 S=2*S＋1 Next S 该循环执行的次数是 A 1 B 2 C 3 D 4 参考答案：A 提示：执行一次后S＝2*5+1=11，再加步长1,得S=12,已经超过了S的终点值，所以只运行一次就结束循环。 可创建一个模块,插入一个子过程,然后输入上述程序,并在循环体中加入一行debug.print来测试运行情况. 2 Dim I As Integer I=Int(-3.2) 则I的值为 A －3 B －4 C 3 D 3.2 参考答案：B 提示: 可以查找VBA的帮助, 输入关键字int搜索后, 将显示有关int函数的详尽解释, 大部分情况下还有示例. 如本题, 解释为: 返回参数的整数部分。 语法 Int(number) Fix(number) 必要的 number 参数是 Double 或任何有效的数值表达式。如果 number 包含 Null，则返回 Null。 说明 Int 和 Fix 都会删除 number 的小数部份而返回剩下的整数。 Int 和 Fix 的不同之处在于，如果 number 为负数，则 Int 返回小于或等于 number 的第一个负整数，而 Fix 则会返回大于或等于 number 的第一个负整数。例如，Int 将 -8.4 转换成 -9，而 Fix 将 -8.4 转换成 -8。 Fix(number) 等于： Sgn(number) * Int(Abs(number)) 示例为: Int 函数，Fix 函数示例 本示例说明 Int 及 Fix 函数在返回某数值的整数部分时有何不同。当参数为负数时，Int 函数返回小于或等于该参数之最大整数，而 Fix 函数则返回大于或等于该参数之最小整数。 Dim MyNumber MyNumber = Int(99.8) 返回 99。 MyNumber = Fix(99.2) 返回 99。 MyNumber = Int(-99.8) 返回 -100。 MyNumber = Fix(-99.8) 返回 -99。 MyNumber = Int(-99.2) 返回 -100。 MyNumber = Fix(-99.2) 返回 -99。 3 程序段的输出结果是( ) Dim i i=1234 debug.print len(i) A）16 B） 8 C） 2 D） 4 参考答案：D 提示:本题中变量i并未说明数据类型,此时系统默认为变体型,其长度为4,如果为整型/长整型/单精度/双精度时,其长度是不一样的.可创建模块试一下. 4 下列程序的输出结果是 Public Sub test() Dim x, i As Integer x = 0 For i = 1 To 10 Step 2 x = x + i i = i * 2 Next Debug.Print i End Sub A 22 B 10 C 11 D 16 参考答案：A 提示：第一圈后：x=0+1=1, i=1*2+2=4 第二圈：x=1+4=5, i =4*2+2=10 第三圈：x=5+10=15, i=10*2+2=22 注意：本题中x与输出结果无关, 属于题目的干扰变量, 可以不考虑. 5 下列表达式中为假的是 A 43 B 4 or (32)=-1 C 4 and (32) =1 D Not(3=4) 参考答案：C 提示：A选项为真； B 选项根据优先级(算术关系逻辑)，相当于 4 or ((32)=-1),整个表达式为真（－1）； C 选项相当于 4 and ((32)=1) 中的32为假，则((32)=1)为假，整个式子为假 D选项中，3=4为假，取Not后为真 也可以用VBE的Debug.print直接输出每个关系结果. 另外注意: 当转换其他的数值类型为 Boolean 值时，0 会转成 False，而其他的值则变成 True。当转换 Boolean 值为其他的数据类型时，False 成为 0，而 True 成为 -1。 即: 0值对应False, 其它数值对应True. 6 下列程序运行后，则变量J的值为 Private Sub fun() Dim J As Integer J=5 Do J=J+2 Loop While J10 End Sub A 5 B 7 C 9 D 11 参考答案：B 提示：Do…Loop While循环时，每次先执行运算，再验证条件，但J=7时已经不满足J10,所以只循环一次即结束。 本题中，如果条件改为J10,则结果是11。 如果本题中的条件格式