VB编程:键盘上输入10个整数,放入一个一维数组中,然后将其5个元素与后5个元素对换,即:第一个元素与第十个元素互换,第

问题描述:

VB编程:键盘上输入10个整数,放入一个一维数组中,然后将其5个元素与后5个元素对换,即:第一个元素与第十个元素互换,第二个元素与第九个元素互换,...,第五个元素与第六个元素互换.分别输出数组原来的各元素的值和对换后各元素的值.
1个回答 分类:综合 2014-12-09

问题解答:

我来补答
Option Explicit
Dim arr(100) As Integer
Dim arr1(100) As Integer
Dim i As Integer
Private Sub Command1_Click()
For i = 1 To 10
arr(i) = Val(InputBox("请输入您需要的数字:"))
Next i
For i = 1 To 10
arr1(11 - i) = arr(i)
Next i
For i = 1 To 10
Print arr(i);
Next i
Print
For i = 1 To 10
Print arr1(i);
Next i
End Su
 
 
展开全文阅读
剩余:2000
下一页:原创8