【正确答案】[操作步骤]
步骤1:打开本题工程文件。
步骤2:分析并编写程序代码。
程序提供代码
Option Base 1
Private Sub Command1_Click()
Dim arrN(30) As Integer
Dim Max As Integer
Randomize
For i=1 To 30
'arrN(i)=Int(Rnd*?)
Next i
'?=arrN(1)
For i=2 To 30
'If ? Then
Max=arrN(i)
End If
Next i
Print Max
End Sub
程序结束
第1个?处填入:1000
第2个?处填入:Max
第3个?处填入:arrN(i)>Max或Max<arrN(i)
步骤3:调试并运行程序,关闭程序后按题目要求存盘。