题号: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