在vb中如何对“随机产生四个数显示最大数”进行编程

Private Sub Command1_Click()
Dim b, i, k, d, temp As Integer
Dim a(4) As Integer
For i = 1 To 4
a(i) = Int(Rnd * 20 + 1)

Print "第" & i & " 个数"; a(i)
Next i
For k = 1 To 4
For d = 1 To 4 - k
If a(d) < a(d + 1) Then
temp = a(d)
a(d) = a(d + 1)
a(d + 1) = temp
End If
Next d
Next k
Print "最大的数" & a(1)
End Sub

这个可以

Private Sub Form_Load()

Dim a(4) As Double
Dim t#
Print "四个数是："
For i=0 To 3
Randomize
a(i)=Rnd
Print a(i);
Next i
For b=0 To 2
If a(b)>a(b+1) Then t=a(b):a(b)=a(b+1):a(b+1)=t
Next b
Print "最大数是：" & a(3)

'搞个窗口，拷贝进去下面的代码,运行！

Private Sub Form_Load()
Dim iA As Integer
Dim iV(0 To 4) As Integer
'产生4个随机数
For iA = 0 To 3
Randomize
iV(iA) = Rnd() * 100
Next
'取出最大数
Me.Show
For iA = 0 To 3

If iV(4) < iV(iA) Then iV(4) = iV(iA)
Me.Print "随机数" & iA & "= " & iV(iA)
Next

Me.Print "最大的随机数= " & iV(4)

End Sub