2. 计算机
  3. 下面程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Text1中输出该数组中各元素的最小值。请依据上述功能将程序补充完整。 Option Base 1 Private Sub Command1_Click()

下面程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Text1中输出该数组中各元素的最小值。请依据上述功能将程序补充完整。 Option Base 1 Private Sub Command1_Click()

admin2010-03-22  64
问题 下面程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Text1中输出该数组中各元素的最小值。请依据上述功能将程序补充完整。
   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＝______
   For i＝2 To 8
   If arr l(i)＜Min Then______
   Next i
   Text1＝Min
   End Sub
选项
答案arr1(1) Min＝arr1(i)
解析 本题考查VBA中程序设计的知识。对于这个问题，需要把数组元素依次与最小值比较，如果比当前的最小值还小，则让这个数组元素成为新的最小值，然后继续比较，直至数组元素都比较一遍为止。由于比较的循环从2开始，显然是预先设置最小值为数组的第一个元素即arr1(1)；在比较循环内部如果符合If语句的条件，则让这个数组元素成为新的最小值，即Min＝arr1(i)
转载请注明原文地址:https://www.kaotiyun.com/show/BSwp777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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