Question

vb 将数组元素倒序，并输出

从键盘上输入十个整数，并放入一个一维数组中，然后将其前五个元素对换，即：第一个元素与第十个元素互换，第二个元素与第九个元素互换……第五个元素与第六个元素互换。分别输出数组原来各元素的值和换后各元素的值。
请问二楼，这是个什么界面？

Answer 1

'楼上的程序在输入奇数个整数时可能会出错
'给分万能的,想输入多少数据都可以,程序以调试可用
Dim i As Integer, n As Integer
If TextBox0.Text = "" Then
MsgBox("请输入您想输入数字的个数")
Exit Sub
End If
n = CInt(TextBox0.Text)
Dim ar(n) As Integer
For i = 0 To n - 1
MsgBox("请输入第" & Str(i + 1) & "个数字")
ar(i) = Val(InputBox("请输入")) '将输入的数据转换为数值型
Next
Dim str1 As String, str2 As String
For i = 0 To n - 1
If str1 = "" Then
str1 = ar(i)
Else
str1 = str1 & " " & ar(i)
End If
Next
For i = 0 To n - 1
If str2 = "" Then
str2 = ar(n - 1 - i)
Else
str2 = str2 & " " & ar(n - 1 - i)
End If
Next
TextBox1.Text = str1
TextBox2.Text = str2

Answer 2

Private Sub Form_Load()
Dim arr(9) As Integer
Dim i, j, intTemp As Integer

For i = 0 To UBound(arr) '给数组赋值，从0至9共10个整数
arr(i) = i
debug.print cstr(arr(i))
Next
j = UBound(arr)
For i = 0 To CInt(UBound(arr) / 2)
'交换法
intTemp = arr(i)
arr(i) = arr(j)
arr(j) = intTemp
j = j - 1
Next
For i = 0 To UBound(arr)
debug.print cstr(arr(i))
Next
End Sub

Answer 3

给你个简单的
Private Sub Command2_Click()
Dim a(0 To 9) As Integer, i As Integer, j As Integer, s As Integer
For i = 0 To 9
a(i) = InputBox("输入数字")
Next i
for i=0 to 9
text1.text=text1.text &" "& a(i)
next i
For i = 0 To 5
TEMP = a(i)
a(i) = a(10 - i - 1)
a(10 - i - 1) = TEMP
Next i
for i=0 to 9
text2.text=text2.text &" "& a(i)
next i
End Sub