vb编程：从键盘上输入10个整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，即：第1个元素与第10个元素互换，第2个元素与第9个元素互换……第10个元素与第1个元素互换。分别输出数组原来各元素的值和对换后各元素的值。

以下是此题的【VB源代码】
Private Sub Form_Click()
 
    arr = Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10)
    Print "原来数组："
    For i = 0 To 9
        Print arr(i);
    Next i
    Print
    For i = 0 To 4
        For j = 5 To 9
            t = arr(i)
            arr(i) = arr(j)
            arr(j) = t
        Next j
    Next i
    Print "对换后数组："
    For i = 0 To 9
        Print arr(i);
    Next i
   
 End Sub

运行此VB源码后，点击窗体，结果情况如下图所示：

 
新世纪计算机基础教育丛书 丛书主编：谭浩强
Visual Basic 程序设计教程 题解与上机指导（第四版） 刘炳文 编著

来源：visual basic程序设计教程第四版答案(刘炳文)

本文链接：http://www.wb98.com/vb1/post/vb_8.4.html