vb设计 随机产生10个二位整数

来源：百度知道 编辑：UC知道 时间：2024/05/24 20:18:24
随机产生10个二位整数，放入数组a，从中选出一个最大的和最小的数打印出来。

代码如下
Private Sub Form_Click()

Dim a(9) As integer, i As Integer, j As Integer, temp As Integer ,n as integer
For i = 0 To 9

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

For i = 1 To 9
temp = a(i)
j = i - 1
Do While temp < a(j)
n = temp
a(j + 1) = a(j)
a(j) = n
j = j - 1
If j < 0 Then Exit Do

Loop
a(j + 1) = temp
Next i
Print "按从小到大排序的结果为："
For i = 0 To 9
Print a(i);
Next i
End Sub
我上面的是都打印出来的代码
如果想打印最大和最小的 只打印a(0)和a(9)好了
不知道你满意否