随机产生n个1-100(包括1和100)的整数,求它们的最大值。 '------------------------------------------------- Dim n%, i%, max%, x% n = Val(InputBox(" 输入随机产生数据个数 :")) x = Int(Rnd * 100 + 1) max = x Print " 第 1 个数是 :" & x For i = 2 To n x = Int(Rnd * 100 + 1) Print " 第 " & i & " 个数是 :" & x If __________ Then max = x End If Next i Print " 最大值为 :"; max End Sub