2. 计算机
  3. 设有如下程序： 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,4

设有如下程序： 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,4

admin2009-02-10  49
问题 设有如下程序：
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 Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
选项
答案arrl(1) , Min=arrl(i)
解析 由于有Option Base 1语句，所以数组下标是从1开始。本题的功能是查找8个数中的最小值，首先使用Array语句给数组赋值，然后把第一个值赋值给最小值变量，及Min=arrl(1)，然后从第二个数开始循环与最小值比较，如果比最小值小，则把这个值赋值给Min，即Min=arrl(i)。
转载请注明原文地址:https://www.kaotiyun.com/show/rd2p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)