vb题：某数组中有10个元素，元素的值由键盘输入，要求将前5个元素与后5个元素对换。即第1个元素与第10个元

Question

互换，第2个元素与第9个元素互换……。请输出数组中原来各元素的值和对换后各元素的值。
我的代码如下，望高手看看错哪了：Option Base 1
Private Sub Command1_Click()
Dim a$(), b$(), x
a = Split(Text1, ",")
x = UBound(a)
If x <> 10 Then
MsgBox ("请输入10个整数")
Else
ReDim b$(1 To 10)
Text2.Text = "": Text3.Text = ""
For i = 1 To 10
b(i) = a(11 - i)
Text2 = Text2 & a(i) & ","
Text3 = Text2 & b(i) & ","
Next i
Text2 = Left(Text2, Len(Text2) - 1)
Text3 = Left(Text3, Len(Text3) - 1)
End If
End Sub

抱歉，没分了……

Answer 1

在你原来程序的基础上改的。
Private Sub Command1_Click()
Dim a$(), b$(), x
a = Split(Text1, ",")
x = UBound(a) 'UBound(a)得到的是数组下标的最大值
'If x <> 10 Then
If x <> 9 Then
MsgBox ("请输入10个整数")
Else
'ReDim b$(1 To 10)
ReDim b$(9)
Text2.Text = "": Text3.Text = ""
'For i = 1 To 10
For i = 0 To 9
'b(i) = a(11 - i)
b(i) = a(9 - i)
Text2 = Text2 & b(i) & ","
'Text2 = Text2 & a(i) & ","
'Text3 = Text2 & b(i) & ","
Next i
Text2 = Left(Text2, Len(Text2) - 1)
'Text3 = Left(Text3, Len(Text3) - 1)
End If
End Sub本回答被网友采纳