Question

请教两道二级VB题，求解析

52066.执行以下程序段：
a$="abbacddcba"
For I=6 To 2 Step -2
X=Mid(a,I,I)
Y=Left(a,I)
z=Right(a,I)
z=Ucase(X&Y&z)
Next I
Print z
输出结果为(B)(单)
A.ABA B.BBABBA C.ABBABA D.AABAAB

52067.在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim a As Variant
a=Array(1,2,3,4,5)
Sum=0
For I=1 To 5
Sum = sum+a(I)
Next I
x=Sum/5
For I =1 To 5
If a(I)＞x Then Print a(I);
Next I
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是(D)(单)
A.1 2 B.1 2 3 C.3 4 5 D.4 5

Answer 1

第一道题:
a$ = "abbacddcba" '定义了字符串变量a="abbacddcba"
For I = 6 To 2 Step -2 'for循环,I从6到2每次循环递减2,即该循环循环三次,I分别是6,4,2
X = Mid(a, I, I) '变量X为从字符串a的第I位取I位
Y = Left(a, I) '变量Y为从字符串a左边取I位
z = Right(a, I) '变量z为从字符串a右边取I位
z = UCase(X & Y & z) '将X,Y,z的值组合起来并且重新赋给z,由于每次循环都会给z重新赋悔则值,因帆亮此循环结束时z中仅存的是最后一次循环的值,即I=2时的值
'当I=2时,X为从a第2位开始取2位,即"bb";Y为从a最左边取2位,即"ab";z为从a最右边取2位,即"ba"
'UCase的功能是把括号后的字符串中碧轿棚的所有小写字母转换成大写字母,X & Y & z="bb" & "ab" & "ba",转成大写字母后为"BBABBA"
Next I '结束循环
Print z '输入"BBABBA"这个结果

第二道题:
Option Base 1 '定义下标底限为1
Private Sub Command1_Click() '在按钮Command1的点击事件时触发以下代码
Dim a As Variant '定义变体类型变量a
a = Array(1, 2, 3, 4, 5) 'Array功能是按","生成数组字符串,这句就是把数组字符串赋值给a,这样本来应该是a(0)=1;a(1)=2;a(2)=3;a(3)=4;a(4)=5,但是由于之前定义了下标为1，所以就没有a(0)了,也就是a(1)=1;a(2)=2;a(3)=3;a(4)=4;a(5)=5
Sum = 0 '定义Sum为0
For I = 1 To 5 'for循环,I从1到5,每次循环自增1,即循环5次,每次循环I分别为1,2,3,4,5
Sum = Sum + a(I) 'Sum在循环中不断累加每次循环的a(I),也就是说这个循环可以看作是Sum=a(1)+a(2)+a(3)+a(4)+a(5)
Next I '结束循环,此时Sum=15
x = Sum / 5 'x=15/5=3
For I = 1 To 5 'for循环,I从1到5,每次循环自增1,即循环5次,每次循环I分别为1,2,3,4,5
If a(I) > x Then Print a(I); '每次循环的a(I)如果大于x就输出a(I)的结果
'第一次循环,I=1,a(I)=a(1)=1,因为x=3,而1不大于3,所以不输出a(I)的结果
'第二次循环,I=2,a(I)=a(2)=2,因为x=3,而2不大于3,所以不输出a(I)的结果
'第三次循环,I=3,a(I)=a(3)=3,因为x=3,而3等于3,不大于3,所以不输出a(I)的结果
'第四次循环,I=4,a(I)=a(4)=4,因为x=3,而4大于3,所以输出a(I)的结果4
'第一次循环,I=5,a(I)=a(5)=5,因为x=3,而5大于3,所以不输出a(I)的结果5
Next I '结束循环,因此最终输出的结果为4,5
End Sub '结束按钮Command1的点击事件代码

写注释写得我累死了,以上代码和注释可以直接放在VB里的窗体代码栏执行.希望能对你学习VB有帮助!

Answer 2

第一题不是题抄错了，就好型是答案指坦抄错了
第二题唯袜桐
a=Array(1,2,3,4,5) 定义数组 a(1)=1 a(2)=2.....a(5)=5
Sum=0
For I=1 To 5
Sum = sum+a(I)
Next I
sum=0+a(1)+a(2)+.....a(5)=15
x=Sum/5 x=3
For I =1 To 5
If a(I)＞x Then Print a(I);
Next I
查找显示数组中大于3的数 4 5

追问

那第一题答案是什么？
要解析