[填空题] 设有如下程序:Option Base 1Private Sub Command1_Click() Dim arr1 Dim Min As Integ
2021-07-20
[填空题] 设有如下程序:Option Base 1Private Sub Command1_Click() Dim arr1 Dim Min As Integer, i As Integerarr1 = Array(12, 435, 76, -24, 78, 54, 866, 43) Min = _________For i = 2 To 8If arr1(i)
正确答案:arrA(A) , Min = arrA(i)
参考解析:由于有 Option Base 1 语句,所以数组下标是从 1 开始。本题的功能是查找 8 个数中的最小值,首先 使用 Array 语句给数组赋值,然后把第一个值赋值给最小值变量,及 Min = arr1(1),然后从第二个数开始循 环与最小值比较,如果比最小值小,则把这个值赋值给 Min,即 Min = arr1(i)。
词条内容仅供参考,如果您需要解决具体问题
(尤其在法律、医学等领域),建议您咨询相关领域专业人士。
