VB数组作业，江湖救急

Question

1、利用随机函数任意生成十个数，然后完成十个数的交换：第一个数和第十个数交换，第二个数和第九个数交换，第三个数和第八个数交换……

Answer 1

Private Sub Form_Resize()
  Randomize
  Dim a(9) As Integer
  For i = LBound(a) To UBound(a)
    a(i) = Int(Rnd * 900 + 100)
    Print a(i);
  Next i
  Print
  For i = LBound(a) To (UBound(a) - LBound(a)) \ 2
    t = a(i)
    a(i) = a(UBound(a) - i)
    a(UBound(a) - i) = t
  Next i
  For i = LBound(a) To UBound(a)
    Print a(i);
  Next i
End Sub

Answer 2

Module VBRandom
    Sub Main()
        Dim rm as New Random
        Dim arr(9) As Integer
        
        Console.WriteLine("产生随机数")
        For ctr As Integer = 0 To 9
            arr(ctr) = rm.next(1,100)
            Console.WriteLine("arr(" & ctr & ") = " & arr(ctr))
        Next
        
        Console.WriteLine("调整顺序后")
        For ctr As Integer = 0 To 4
            Dim t As Integer = arr(ctr)
            arr(ctr) = arr(9-ctr)
            arr(9-ctr) = t
        Next
        
        For ctr As Integer = 0 To 9
            Console.WriteLine("arr(" & ctr & ") = " & arr(ctr))
        Next
    End Sub
End Module

Answer 3

注意：Command1是一个控制整个程序的按钮，也就是生成和输出原数组，交换元素并输出交换元素后的数组，Label2这个是一个标签，功能是打印出生成的数组,Label4这个也是一个标签，功能是打印出交换元素后的数组,temp 是一个临时变量，用来临时存放需要交换的元素
Private Sub Command1_Click()
Dim i, temp, j, num(10) As Integer
j = 10
Label2.Caption = ""
Label4.Caption = ""
For i = 1 To 10
num(i) = Int(Rnd * (100 + 1))
Label2.Caption = Label2.Caption & num(i) & Space(4)
Next i
For i = 1 To 5
temp = num(i)
num(i) = num(j)
num(j) = temp
j = j - 1
Next i
For i = 1 To 10
Label4.Caption = Label4.Caption & num(i) & Space(4)
Next i
End Sub本回答被网友采纳