2. 计算机
  3. 设有如下程序段，其功能是查找并输出该数组中的最小值。请在空白处填入适当的内容，将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integ

设有如下程序段，其功能是查找并输出该数组中的最小值。请在空白处填入适当的内容，将程序补充完整。 Option Base 1 Private Sub Command1_Click() Dim arr1 Dim Min As Integ

admin2010-09-11  64
问题 设有如下程序段，其功能是查找并输出该数组中的最小值。请在空白处填入适当的内容，将程序补充完整。
   Option Base 1
   Private Sub Command1_Click()
   Dim arr1
   Dim Min As Integer, i As Integer
       arr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)
       Min = arr1(1)
       For i=2 To 8
           If arr1(i)＜Min Then
       Next i
       Print "最小值是:"; Min
   End Sub
选项
答案Min=arr1(i)
解析 题目要求输出数组中的最小值，分析程序可知，本程序求数组最小值的算法是：假设最小值是第一个数组元素，并把它存在Min变量中，然后从数组的第二个元素开始逐个与Min变量对比，如果有比Min更小的数，则赋值给Min，这样对比到数组最后一个元素时，就能找到最小的元素；且它存储在Min变量中，因此最后只要输出Min变量值即可。
转载请注明原文地址:https://www.kaotiyun.com/show/j8mp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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