Private Sub Command一_Click() Dim a(一 To 四) As Integer Dim i As Integer, j As Integer Dim intMax As Integer strMsg = "随机产一0一0-一00数：" + vbCrLf Randomize '初始化随机数 For i = 一 To 四 a(i) = Int(Rnd * 吧99) + 一00 Next For i = 一 To 三 For j = i + 一 To 四 If a(i) > a(j) Then c = a(i) a(i) = a(j) a(j) = c End If Next j Next i intMax =a(四) End Su
内容全部来源于网络收集，如有侵权，请联系网站删除！
QQ：24596024