【简答题】设有如下程序 Option Base 1 Private Sub Command1_Click() Dim arrl Dim Min As Integer,i As Integer arrl=Array(12,435,76,-24,78,54, 866, 43) Min=____ For i=2 To 8 If arrl(i)<Min Then Next i Print “最小值是:”;Min E...
【单选题】设有如下程序: Option Base 1 Private Sub Command1 Click() Dim a(10) As Integer Dim n As Integer n=InputBox(“输入数据”) If n< 10 Then Call,GetArray(a, n) End If End Sub Private Sub GetArray(b() As Integer, n As I...
【单选题】设有如下程序Option Base 1Dim a As VariantPrivate Sub Cmd1_Click() Dim n As Integer a = Array(12, 9, 13, 5, 8, 16, 7, 3, 18, 3) Call geta(n) Print nEnd SubPrivate Sub geta(j As Integer) Dim n As Integer, c()...