BadAngel_10
幼苗
共回答了15个问题采纳率:86.7% 举报
Private Function max(ByVal a As Integer, ByVal b As Integer) As Integer
If a > b Then max = a Else max = b
End Function
Private Function min(ByVal a As Integer, ByVal b As Integer) As Integer
If a > b Then min = b Else min = a
End Function
Private Sub Command1_Click()
Dim a, b, c
a = 3
b = 5
c = 7
Print a; b; c; "中最大数为:"; max(a, max(b, c))
Print a; b; c; "中最小数为:"; min(a, min(b, c))
End Su
1年前
追问
7