![[填空题] 设有如下程序:Option Base 1Private Sub Commandl Click()Dim arrlDim Min As Integer,i As Integerarrl=Ar,第1张 [填空题] 设有如下程序:Option Base 1Private Sub Commandl Click()Dim arrlDim Min As Integer,i As Integerarrl=Ar,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E8%AE%BE%E6%9C%89%E5%A6%82%E4%B8%8B%E7%A8%8B%E5%BA%8F%EF%BC%9AOption+Base+1Private+Sub+Commandl+Click%28%29Dim+arrlDim+Min+As+Integer%EF%BC%8Ci+As+Integerarrl%3DAr.png)
[填空题] 设有如下程序:Option base 1Private Sub Commandl Click()Dim arrlDim Min As Integer,i As Integerarrl=Array(12,435,76,-24,78,54,866,43)Min=()For i=2 To 8If arrl(i)<Min Then()NextPrint"最小值是:";MinEnd Sub以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中各元素的最小值。请填空。
正确答案:arrl(1);Min=arrl(i)
参考解析:[评析] 由于有Option base 1语句,所以数组下标是从1开始。本题的功能是查找8个数中的最小值,首先使用Array语句给数组赋值,然后把第一个值赋值给最小值变量,及Min=arrl(1),然后从第二个数开始循环与最小值比较,如果比最小值小,则把这个值赋值给Min,即Min=arrl(i)。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)