用VB：用随机函数产生20个两位的正整数，并要求从小到大顺序输出。

Question

选修课作业，求高手解答

Answer 1

Dim a(1 To 20) As Integer, i As Integer, j As Integer

Private Sub Command1_Click()

Randomize

Print "原始数据："

For i = 1 To 20

 a(i) = Int(Rnd * 90 + 10)

 Print a(i);

Next i

Print: Print

End Sub

Private Sub Command2_Click()

For i = 1 To 20

 For j = 1 To i - 1

  If a(j) > a(i) Then

    t = a(j)

    a(j) = a(i)

    a(i) = t

  End If

 Next j

Next i

Print "排序结果为："

For i = 1 To 20

 Print a(i);

Next i

Print: Print

End Sub

本回答被提问者采纳

Answer 2

“知道”里就有答案：
http://zhidao.baidu.com/question/429542713.html