Question

vb取最大值最小值

在Text里输入一个数字n
然后生成n个1-100的随机数
再在下面的label框里显示最大数为多少 最小是多少
这是我写的代码
但是显示最大值和最小值不正确呢
显示的最大值有时候不是最大的
最小值有时候也不是最小的
不知道哪里错了
Private Sub Command1_Click()
Cls
Dim num%, i%, m%, n%
n = Val(Text1.Text)
Print
Print
Print
Print
Print
Print
Print
For i = 1 To n
Max = num
Min = num
num = Int(Rnd * 99 + 1)
Print num;

If num > Max Then
Max = num
Else
Min = num
End If
Label5.Caption = Max
Label6.Caption = Min
Label7.Caption = num + num
Next
End Sub

Private Sub Form_Load()

End Sub

Answer 1

你的错误在于每次循环都先修改了max、min的值，他们并没有记载当前的最大值和最小值。
正确的方法应该是：
Private Sub Command1_Click()
Dim num%, i%, m%, n%
Cls
n = Val(Text1)
num = Int(Rnd * 99 + 1)'先随即一个数
Print num;
Max = num'当前他最大
Min = num'同时也最小
For i = 2 To n
num = Int(Rnd * 99 + 1)'生成其余的随机数
Print num;
If num > Max Then'大于最大
Max = num
ElseIf Min > num Then'小于最小！这里还要判断，而不是直接else
Min = num
End If
Next
Label5 = "最大值为：" & Max'不要每次都改变，在循环完成后再显示。
Label6 = "最小值为：" & Min
End Sub

Answer 2

Private Sub Command1_Click()
Cls
Dim num%, i%, m%, n%
n = Val(Text1.Text)
Print
Print
Print
Print
Print
Print
Print
'在循环外面初始化
Max = num
Min = num
For i = 1 To n

num = Int(Rnd * 99 + 1)
Print num;

If num > Max Then
Max = num
Else
Min = num
End If
Label5.Caption = Max
Label6.Caption = Min
Label7.Caption = num + num
Next
End Sub

Answer 3

Private Sub Command1_Click()
Cls
Dim num%, i%, m%, n%
n = Val(Text1.Text)
Print
Print
Print
Print
Print
Print
Print
Max = -1: Min = 101
For i = 1 To n
num = Int(Rnd * 99 + 1)
Print num;

If num > Max Then
Max = num
End If
If num < Min Then
Min = num
End If
Label5.Caption = Max
Label6.Caption = Min
Label7.Caption = num + num
Next
End Sub

Answer 4

把If num > Max Then
Max = num
Else
Min = num
End If
放进循环里