【单选题】设有如下程序: 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 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程序运行后,单击窗体,在窗体上显示的内容为______。