【正确答案】正确答案：(1)步骤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

【答案解析】解析：(1)Rnd()函数用于产生一个小于1但大于或等于0的随机数。 本题程序用变量Max记录最大数，最初把数组的第～个元素的值赋给Max，然后通过For循环语句将其后的元素依次与之比较，如果其值大于Max则将其赋值给Max，依次类推，最终Max的值就是数组各元素中的最大值。 (2)本题要求的是1000以内能被5或7整除的数的个数。在Visual Basic中，使用Mod运算符来判断一个数是否可以被另一个数整除，如果计算结果为0，则表示可以整除，否则不能整除。