分类：电脑/网络-软件
问题：2道VB题执行以下程序段a$="abbacddcba"Fori= 
执行以下段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输出结果为A）ABA B）BBABBA C）ABBABA D）AABAAB在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base IPrivate Sub Command1_Click()Dim a As Varianta=Array(1,2,3执行以下段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输出结果为A）ABA B）BBABBA C）ABBABA D）AABAAB在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：Option Base I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A)1 2 B)1 2 3 C)3 4 5 D)4 5（希望有详细过程，谢谢！）
回答：第1题答案是B，原因如下：a$="aacddcba" 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    ‘因为x,y,z的值在每次循环的时候都被更新，所以，该题目只需要求出当i的值为2时的x,y,z的值，并将他们连接起来转换为大写字母即可,所以：x=bb,y=ab,z=ba;结果z的值为BBABBAPrint z 第2题的答案为D，原因如下：Option Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1,2,3,4,5)   ’被array初始化为一维数组，下标范围为1到5，各个元素的初始值为1，2，3，4，5Sum=0 For i=1 To 5 Sum =sum+a(i) Next i   ‘该循环求出A数组各个元素值的和，存入变量sum中，结果为15x=Sum/5   ’求平均值x，结果为3For i=1 To 5 If a(i)>x Then Print a(i); Next i  ‘打印数组a数组中元素值大于平均值的值，结果显然End Sub