2021年vba笔试解析9和4.docVIP

9月 答案：B. 解析：DO Until-Loop结构是条件式值为假（也就是0）时，反复实施循环体，直到条件式值为真（即1），结束循环。 答案：C (参考附录C 控件属性及其含义) 某个对象单击事件（click）表示为：对象名_Click()，所以Command1_Click( ) 对象可用性用Enabled，true表示可用，false表示不可用。 对象可见性用Visible，true表示可见，false表示不可见。 答案：D 第一次：i=1=3成立 实施内循环： 第一次：j=-4=-1成立，实施n=n+1=1，next j，j就变成j=j+1=-4+1=-3 第二次：j=-3=-1成立，实施n=n+1=1+1=2 , next j，j就变成j=j+1=-3+1=-2 第三次：j=-2=-1成立，实施n=n+1=2+1=3，next j，j就变成j=j+1=-2+1=-1 第四次：j=-1=-1成立，实施n=n+1=3+1=4，next j，j就变成j=j+1=-1+1=0 此时j=0=-1不成立，不再实施内循环，跳出内循环，实施next i，i就变成i=i+1=1+1=2 第二次：i=2=3成立 实施内循环： 第一次：j=-4=-1成立，实施n=n+1=4+1=5，next j，j就变成j=j+1=-4+1=-3 第二次：j=-3=-1成立，实施n=n+1=5+1=6 , next j，j就变成j=j+1=-3+1=-2 第三次：j=-2=-1成立，实施n=n+1=6+1=7，next j，j就变成j=j+1=-2+1=-1 第四次：j=-1=-1成立，实施n=n+1=7+1=8，next j，j就变成j=j+1=-1+1=0 此时j=0=-1不成立，不再实施内循环，跳出内循环，实施next i，i就变成i=i+1=2+1=3 第三次：i=3=3成立 实施内循环： 第一次：j=-4=-1成立，实施n=n+1=8+1=9，next j，j就变成j=j+1=-4+1=-3 第二次：j=-3=-1成立，实施n=n+1=9+1=10 , next j，j就变成j=j+1=-3+1=-2 第三次：j=-2=-1成立，实施n=n+1=10+1=11，next j，j就变成j=j+1=-2+1=-1 第四次：j=-1=-1成立，实施n=n+1=11+1=12，next j，j就变成j=j+1=-1+1=0 此时j=0=-1不成立，不再实施内循环，跳出内循环，实施next i，i就变成i=i+1=3+1=4 此时 i=4=3不成立，不再实施内循环，直接结束整个循环。 这时 n=12 答案：1 （资料给答案是错，不是5，当把a=a-2改为a=a+2，答案才为5） 初始化a=1 第一次：i=1=3成立，实施循环体（到next i范围） Select case i（i为1），所以实施分支case 1，3语句a=a+1=1+1=2，选择结构结束，然后next i，i=i+1=1+1=2。 第二次：i=2=3成立，实施循环体，select case i（i为2），所以实施分支case 2，4语句a=a-2=2-2=0，选择结构结束，然后next i，i=i+1=2+1=3。 第三次：i=3=3成立，实施循环体，select case i（i为3），所以实施case 1，3语句a=a+1=0+1=1，选择结构结束，然后next i，i=i+1=3+1=4。 此时i=4=3不成立，循环结束。 接着实施msgbox a即把a值以消息框方法输出。所以为1 过程p1，三个形参a，b，c全部为整型。过程运行c=a+b。运行完分别把a，b，c值赋给实参x，y，z。将z值赋给text1文本框调用p1过程，将实参x，y，z分别值分别赋给a，b，c，运行完过程p1后将a，b，c值返回给x，y，z文本框text1赋值为空定义三个整型变量x，y，z而且赋初始值x=5 y=7 z=0 过程p1，三个形参a，b，c全部为整型。过程运行c=a+b。运行完分别把a，b，c值赋给实参x，y，z。 将z值赋给text1文本框 调用p1过程，将实参x，y，z分别值分别赋给a，b，c，运行完过程p1后将a，b，c值返回给x，y，z 文本框text1赋值为空 定义三个整型变量x，y，z 而且赋初始值 x=5 y=7 z=0 答案：12 说明：假如过程p1改为： Sub p1(ByRef a As Integer