Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim d As Integer
Dim e As Integer
Dim f As Integer
Dim g As Integer
Dim h As Integer
Dim i As Integer
Dim j As Integer
a = 441
b = 536
c = 78
d = 50
e = 654
f = 3
g = 85
h = 532
i = 413
j = 129
If a > b Then
Max= a
Else
Max = b
End If
If c > Max Then
Max = c
End If
If d > Max Then
Max = d
End If
If e > Max Then
Max = e
End If
If f > Max Then
Max = f
End If
If g > Max Then
Max = g
End If
If h > Max Then
Max = h
End If
If i > Max Then
Max = i
End If
If j > Max Then
Max = j
End If
Print Max
End Sub
这个程序是在求两个数的比较,三个数的比较的基础上写出来的。如果让我先写这个程序,我肯定写不出来。但是由于前两个程序打下的基础,所以这个程序写起来就不会太难。我发现这种方法其实挺好的。如果常用这种循序渐进的方法来学习VB,我想我的VB还有很大的提升空间的。