【简答题】设有如下程序 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()...
【单选题】设有如下程序: 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 Int...
【简答题】设有如下程序: Option Base 1 Private Sub Commandl 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 Print'最小值是:';Min End...
【单选题】设有如下程序: Option Base 1 Private Sub Form. Click() Dim arr arr = Array(10, 20, 'ABCDE') For i = 3 To 1 Step -1 Print arr(i); Next i End Sub程序运行后,单击窗体,在窗体上显示的内容为______。