急求VB题目答案!

来源：百度知道 编辑：UC知道 时间：2024/07/13 20:35:42
随机产生10-100间的整数存到数据中,并且存到数组中,并且输出到FORM,按从小到大排序后在另一行重新输出这10个数.

这里的数由你自己定义

Private Sub Command1_Click()
Dim n, j, k As Integer
Dim a() As Integer
n = InputBox("输入你想要产生的数") '输入产生数个数
ReDim a(n) As Integer
For j = 0 To n - 1 '生成数
a(j) = 10 + Rnd() * 90
Print a(j);
Next
Print
Dim temp As Integer '排序
For j = 0 To n
For k = j To n - 1
If a(k) < a(k + 1) Then
temp = a(k)
a(k) = a(k + 1)
a(k + 1) = temp
End If
Next
Next

For j = 0 To n - 1 '输出数
Print a(j);
Next
End Sub

没分！