VB作业 会的进

来源：百度知道 编辑：UC知道 时间：2024/05/26 08:32:26
利用数组 求已知10个数的最大值和最小值 要求点击command后 在label上显示结果 (假设已知89,96,81,67,79,90,63,85,95,83这10个数)

Private Sub Command1_Click()
Dim a As Variant, Max As Integer, Min As Integer
a = Array(89, 96, 81, 67, 79, 90, 63, 85, 95, 83)
Max = 0
Min = 100
For i = 0 To UBound(a)
If Max <= Val(a(i)) Then Max = a(i)
If Min >= Val(a(i)) Then Min = a(i)
Next
Label1.Caption = "最大值：" & Max & " 最小值：" & Min
End Sub

Private Sub Command1_Click()
a = Array(89, 96, 81, 67, 79, 90, 63, 85, 95, 83)
Max = a(0): Min = a(0)
For i = 0 To 9
If Max < a(i) Then Max = a(i)
If Min > a(i) Then Min = a(i)
Next i
Label1.Caption = "max=" & Max
Label2.Caption = "min=" & Min
End Sub

我给你关键代码
dim Num(10) as long
Num(1)=89
Num(2)=96
...
Num(10)=83

dim Max as long,Min as long
Max=Num(1)
Min=Num(1)
for i=1 to 10
if Num(i)>Max then Max=Num(i)
if num(i)<Min then Min=Num(i)
Next
Print Max