vb编程:随机产生10个1到20之间的整数，放在数组A中，然后将A的元素倒序存放，即第一个变为最后

Question

vb编程:随机产生10个1到20之间的整数，放在数组A中，然后将A的元素倒序存放，即第一个变为最后一个，第二个变为倒数第二个。

Answer 1

Private Sub Command1_Click()

  Dim a(10) As Integer

  Randomize

  Print "原来的数："

  For i = 1 To 10

    a(i) = Int(Rnd * 20) + 1

    Print a(i);

  Next i

  Print

  Print "交换以后的数："

  i = 1: j = 10

  Do While i < j

    t = a(i): a(i) = a(j): a(j) = t

    i = i + 1: j = j - 1

  Loop

  For i = 1 To 10

    Print a(i);

  Next i

  Print: Print

End Sub

Answer 2

Private Sub Form_click() '单击窗体
Dim a(1 To 10)
Randomize
Print "原数组：";
For i = 1 To 10
a(i) = Int(Rnd * 20 + 1)
Print a(i); " ";
Next
Print
Print "调换后：";
For i = 1 To 5
t = a(i)
a(i) = a(11 - i)
a(11 - i) = t
Next
For i = 1 To 10
Print a(i); " ";
Next
End Sub

双击窗体 打开代码窗口 清楚里面所有内容 复制上面代码进去~ 按F5运行 点击窗体 显示效果本回答被网友采纳

Answer 3

Option Base 1
Private Sub Command1_Click()
Dim s(10) As Integer
For i = 1 To 10
s(i) = Rnd() * 10+10
Print s(i)
Next i
Print "以上是初始的10个随机整数"
For a = 10 To 1 Step -1
Print s(a)
Next a
Print "以上逆转顺序后的10个随机整数"
End Sub追问

请问用vb怎么编程？

追答

你刚学吗？

追问

嗯嗯

嗯嗯

追答

以前学过其他的没

追问

没有

追答

你还是多看看网上的教程，买本书，理解其中的规则

你还是多看看网上的教程，买本书，理解其中的规则