Question

用VB编写程序,随机产生4个两位数正整数,显示出其中最大的数字和最小的数字.

Answer 1

Option Base 1 Private Sub Command1_Click() Dim a(4) As Integer For i = 1 To 4 a(i) = Int(Rnd * 90 + 9) Next i For i = 1 To 4 For j = i + 1 To 4 If a(i) > a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i Print "最大值是：" & a(4) Print "最少值是：" & a(1) End Su