Question

VB问题 求解

谢谢

Answer 1

Dim a(10) As Integer

Sub make()

  Randomize

  For i = 1 To 10

    a(i) = (Rnd * 100)

    Print a(i);

  Next i

  Print

End Sub

Sub prt()

  For i = 1 To 10

    Print a(i);

  Next i

  Print

End Sub

Private Sub Command1_Click()

  Call make

  For i = 1 To 9

    k = i

    For j = i + 1 To 10

      If a(j) > a(k) Then k = j

    Next j

    t = a(i): a(i) = a(k): a(k) = t

    Call prt

  Next i

End Sub

Private Sub Command2_Click()

  Me.Cls

  Call make

  For i = 1 To 9

    For j = 1 To 10 - i

      If a(j) < a(j + 1) Then

        t = a(j): a(j) = a(j + 1): a(j + 1) = t

      End If

    Next j

    Call prt

  Next i

End Sub

Private Sub Command3_Click()

  Me.Cls

End Sub

Answer 2

解决问题这些，然后QQ的话放在开头看的这么调压的方法都是不一样的，每个人想的都是。

Answer 3

被问题求解，肯定要解释好才行啊，是不是？

Answer 4

未必问题是达到一定的标准才能非常靠谱。

Answer 5

一问题求解你可以把他俩互算