vb:编写一程序 产生10个100~200间的随机整数，找出其中的最大数和最小数。

来源：百度知道 编辑：UC知道 时间：2024/05/26 09:10:03
不知道代码是什么，求助各位大虾，谢谢！
随机产生10个[0，100)的整数，存入数组a，并显示到窗体上；然后将a的10个元素排序，在屏幕上显示由低到高。

Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i, min, max As Integer
For i = 1 To 10
a(i) = Int((200 - 100 + 1) * Rnd + 100)
Next i
max = a(1)
min = a(1)
For i = 2 To 10
If max < a(i) Then max = a(i)
If min > a(i) Then min = a(i)
Next i
Print "最大数是" & max
Print "最小数是" & min
End Sub

下次再折腾人拒绝回答

Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i, j, t As Integer
For i = 1 To 10
a(i) = Int((100 - 0 + 1) * Rnd + 0)
Next i
For i = 1 To 10
Print a(i);
Next i
Print

For i = 1 To 9
For j = 1 To 9
If (a(j) > a(j + 1)) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j
Next i

For i = 1 To 10
Print a(i);
Next i
End Sub