随机生成包含六个元素(全为一位正整数)的数组,要求交换对称位置的元素并在窗

Question

如题所述

Answer 1

VB生成随机值的函数是RND。随机生成包含六个元素(全为一位正整数)的数组。这是先定义数组然后生成随机数吗？交换对称位置的元素是指首尾对称吗？

Private Sub Command1_Click()

  Dim a(6) As Integer

  Randomize

  Print "原来的数组："

  For i = 1 To 6

    a(i) = Rnd * 9 + 1

    Print a(i);

  Next i

  Print

  Print "交换以后的数组："

  For i = 1 To 3

    t = a(i)

    a(i) = a(7 - i)

    a(7 - i) = t

  Next

  For i = 1 To 6

    Print a(i);

  Next

  Print

End Sub