【正确答案】正确答案：(1) 【操作步骤】 步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，去掉程序中的注释符“'”，将问号改为正确的内容。 Option Base 1 Private Sub Commandl_Click() Dim arrN(30)As Integer Dim Min As Integer Randomi ze For i=1 To 30 arrN(i)=Int(Rnd*1000) Next i Min=arrN(1)’将第一个数赋给Min，以提供判断 For i=2 To 30 If arrN(i) ＜Min Then'比较最小值与其他数值，找出最小值 Min=arrN(i) End If Next i Print Min End Sub 步骤3：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤1：打开本题工程文件。 步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。 Function Fun() Dim s As Integer，i As Integer For i=0 To 1000’求0—1000中满足条件的数 If i Mod 7<>0 Then s=s+1'将满足条件的数的个数累加 End If Next i Fun=s'返回结果 End Function 步骤3：调试并运行程序，关闭程序后按题目要求存盘。