2. 计算机
  3. 设有如下程序 Option Base 1 Private Sub Command1_Click() Dim arrl Dim Min As Integer，i As Integer arrl=Array(12，43

设有如下程序 Option Base 1 Private Sub Command1_Click() Dim arrl Dim Min As Integer，i As Integer arrl=Array(12，43

admin2010-03-30  40
问题 设有如下程序
   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
   End  Sub
   以上程序的功能是：用Arcay函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
选项
答案arrl(1)或12,Min=arrl(i)
解析 本题考查考生对简单算法的掌握。题目要求找出数组的最小值，利用一个For循环和条件语句来实现。首先应该给Min赋值，这里注意For循环是从i=2 To 8，并没有包含i=1，因此这里的初值应该是arrl(1)，也就是12。然后从数组的第2个元素开始和Min做比较，如果小于Min则应该将两者进行交换，即Min=arrl(i)。这样Min总是做过比较的元素的最小值，循环结束后，它也是整个数组的最小值。如果题目的For循环是Fori=1 To 8，那么 Min的初值可以是任意一个大于arrl最小值的数，而不一定是arr(1)。
转载请注明原文地址:https://kaotiyun.com/show/UBmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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