治疗痔疮医院那个好:VB高手请进！！！！！！！！！！！！！！！！！！！！！！！

神啊，开启我封尘的记忆！（好久不写，自己修改一下）

VB6的版本是：

Private Sub Command1_Click()
On Error Resume Next
Dim mArray(1 to 20) As Double
Dim tmpString As String
Dim n As Integer
Dim Success As Boolean
Dim t as Double

For n = 1 To 20
Do
tmpString = InputBox("请输入第" & n & "个数字","输入提示")
Success = IsNumeric(tmpString)
Loop Until Success = True
mArray(n) = Val(tmpString)
Next

Text1.Text = "---------- Input ---------" & vbNewline
For n = 1 To 20
Text1.Text = Text1.Text & CStr(mArray(n)) & vbNewline
Next
Text1.Text = Text1.Text & vbNewline & vbNewline

For n = 1 To 10
t = mArray(n)
mArray(n) = mArray(21-n)
mArray(21-n) = t
Next

Text1.Text = "---------- Output ---------" & vbNewline
For n = 1 To 20
Text1.Text = Text1.Text & CStr(mArray(n)) & vbNewline
Next
End Sub

ps:这里输入用InputBox语句，输出用TextBox控件
ps:你是初学者吗？

首先输出原来的数组，然后：
如果数组是a(1 to 20)
dim b,c
for r=1 to 10
b=a(r)
c=a(20-r+1)
a(r)=c
a(20-r+1)=b
next r
再输出新数组。OK

用数组解决，太容易了。