题号:8042 ' 题目:(事件)单击窗体。 ' (响应)给定程序的功能是:随机产生n个1~100(包括1和100)的整数,求它们的最大值。 ' ------------------------------------------------- Private Sub Form_Click() Dim n%, i%, max%, x% n=Val(InputBox(" 输入随机产生数据个数 :")) '**********Fill********** x = _________________ max = x Print " 第 1 个数是 :" & x ' **********Fill********** For i=2 To ____________ x=Int(Rnd * 100 + 1) Print " 第 " & i & " 个数是 :" & x '**********Fill********** If __________ Then max = x End If Next i Print " 最大值为 :"; max End Sub