下面程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并在文本框Text1中输出该数组中各元素的最小值。请填空。 Option Base 1 Private Sub Command1_Click() Dim ar

admin2013-01-07  28

问题 下面程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并在文本框Text1中输出该数组中各元素的最小值。请填空。
    Option Base 1
    Private Sub Command1_Click()
      Dim arrl()
      Dim Min As Integer,i As Integer
      arr1=Array(12,435,76,-24,78,54,866,43)
      Min=_________
      For i=2 To 8
         If arrl(i)<Min Then________
      Next i
      Text1=Min

选项

答案arrl(1) Min=arrl(i)

解析 对于本题,需要把数组元素依次与最小值比较,如果比当前的最小值还小.则让这个数组元素成为新的最小值,然后继续比较,直至数组元素都比较一遍为止。由于比较的循环从2开始,显然是预先设置最小值为数组的第一个元素即arr1(1);在比较循环内部如果符合If语句的条件,则让这个数组元素成为新的最小值,即Min=arr1(i)。
转载请注明原文地址:https://kaotiyun.com/show/Nkup777K
0

随机试题
最新回复(0)