在VB中，如何将一个数组中的值按逆序重新存放。例如：原来8、6、5、4、1，要求改为1、4、5、6、8.要求：1.数组中的元素由用户输入2.单击窗体时，弹出输入对话框，输入结束后，在窗

Question

在VB中，如何将一个数组中的值按逆序重新存放。例如：原来8、6、5、4、1，要求改为1、4、5、6、8.要求：1.数组中的元素由用户输入 2.单击窗体时，弹出【输入】对话框，输入结束后，在窗体中显示交换前后的数组元素

Answer 1

Dim a(1 To 5) Private Sub Command1_Click() For i = 1 To 5 a(i) = Val(InputBox("a(" + Str(i) + ")=")) Next i For i = 1 To 5/2 n = a(i) a(i) = a(6 - i) a(6 - i) = n Next i For i = 1 To 5 Print a(i); Nex...