随机产生10个从下界m到上界n之间的整数，并取得最大值，将结果显示在窗体上。

来源：百度知道 编辑：UC知道 时间：2024/05/15 16:32:02
第一种代码：
Dim m%, n%: Dim x(1 To 10) As Integer

Private Sub Form_Load()
Form1.AutoRedraw = True
Cls
m = Val(InputBox("vjf"))
n = Val(InputBox("vjf"))
Call s(m%, n%)
Print Max
End Sub

Private Sub fact(m%, n%)
For i = 1 To 10
x(i) = Int((m - n + 1) * Rnd + m)
Next i
End Sub

Private Sub s(m%, n%)
Max = x(1)
Call fact(m%, n%)

For i = 2 To 10
If x(i) > Max Then Max = x(i)
Next i

End Sub
第二种代码：
Dim a(1 To 10) As Integer
Private Sub Command1_Click()
Cls
Dim m%, n%
m = Val(Text1(0).Text)
n = Val(Text1(1).Text)
If m > n Then
MsgBox "下界值大于上界值，请重新设定", vbOKOnly
Text1(0).SetFocus
Else
Call MaxFun(m, n)
End If

End Sub
Private Sub RndFun(m%, n%)
Randomize
For i = 1 To 10
a(i) = Int(Rnd * (n - m) + m)
Print a(i);
Next
End Sub

第一种代码：
生成随机数是Int((n-m+1)*Rnd+m)，不过前提是要n>m
另外，print的max要像数组变量x一样，设置为通用变量，不然打印不出来的

第二种代码：
生成随机数也要改成 Int(Rnd * (n - m+1) + m)

第一段生成随机数的地方错了，应该是Int((n-m+1)*Rnd+m)
其它地方两段代码没什么区别吧。