问一个简单编程

来源：百度知道 编辑：UC知道 时间：2024/05/14 09:19:19
编程实现随机产生10个100～200之间的整数，求最大值。把结果在窗体上输出即可。谢谢(定义变量时不要用简便符号，也不要用iff语句，谢谢）

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim MaxNum As Integer

For i = 1 To 10
j = Int(Rnd * 101 + 100)
Print "第"; i; "个数为:"; j
If j > Max Then Max = j
Next

Print "最大数为:"; Max;

End Sub