vb者帮帮忙，看看~~

不是没有定义a
是for循环没有终值~
Private Sub Command1_Click()
Form1.Cls
a = "ABBACDDCBA"
For i = 6 To 1 Step -2
x = Mid(a, i, i) 'mid函数 取 a字符串 第i位起 i个字符
y = Left(a, i) 'left函数 取 a字符串 左边算起i个字符
z = Right(a, i) 'right 和left相反 是从右边算起~
z = x & y & z ' & 是连接字符串 比如 "123" & "456" 结果为"123456"
Next i
Print z
End Sub

我也看不懂 ……——……

看什么啊 ？

Form1.Cls 'form1清除内容
a="ABBACDDCBA" ’给a赋值，没有定义a可能你打错了
Fori=6 To Step-2 ' for循环 i从6开始到？步长2。打错了，没办法执行
x=Mid(a,i,i)
y=Left(a,i)
z=Right(a,i)
z=x&y&z
Nexti
Printz

Form1.Cls '清除窗体Form1
a="ABBACDDCBA" ’赋值
Fori=6 To Step-2 ‘6到？递减循环，不完整
x=Mid(a,i,i) ‘从字串a中取从 i开始长度为i的字串
y=Left(a,i) ‘从字串a中左取长度为i的字串
z=Right(a,i) ‘从字串a中右取长度为i的字串
z=x&y&z 字串合并
Nexti
Printz 显示

这个题的答案是 D