Question

vb试编程实现以下功能：随机产生一个数组，并且将数组元素逆序存放。（一维数组）

Answer 1

 

 

Private Sub Command1_Click()

Dim b(0 To 10) As Integer, mp As Integer, i As Integer, x As Integer

Randomize

For i = 0 To 10

b(i) = Int(Rnd * (100 - 1 + 1) + 1)

Print b(i);

Next

Print

For i = 10 To 0 Step -1

Print b(i);

Next i

 

End Sub

Answer 2

Option Explicit

Private Sub Command1_Click()
    Dim S() As Long, tS As Long, SL As Long, tSL As Long
    SL = 12
    tSL = SL + 1
    ReDim S(tSL)
    Dim i As Long
   
    Print "数组个数: " & tSL, "最小下标: " & 0 & "  最大上标： " & SL
    For i = 0 To tSL
        S(i) = Rnd * 100
        Print S(i);
    Next
    Print

    For i = 0 To tSL / 2
        tS = S(i)
        S(i) = S(tSL - i)
        S(tSL - i) = tS
    Next
    For i = 0 To tSL
        Print S(i);
    Next
   
End Sub

Answer 3

这个就是这个拍方法数据的问题啊，很简单的！RND和Randomize 函数