2. 计算机
  3. 下面程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Text1中输出该数组中各元素的最小值。请填空。 Option Base 1 Private Sub Commandl Click() Dim arrl

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

admin2013-01-07  75
问题 下面程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Text1中输出该数组中各元素的最小值。请填空。
    Option Base 1
    Private Sub Commandl Click()
    Dim arrl()
    Dim Min As Integer，i As Integer
    arr1=Array(12，-24，435，76，866，78，43，54)
    Min=________
    For i=2 To 8
    If art1(i)＜Min Then______
    Next i
    Textl=Min
    End Sub
选项
答案arrl(1) Min=arrl(i)
解析 本题中，需要把数组元素依次与最小值比较，如果比之前的最小值还小，则让这个数组元素成为新的最小值，然后继续比较，直至数组元素都比较完为止。由于比较的循环从2开始，预先设置最小值为数组的第一个元素即arr(1)，在比较循环内部如果符合条件语句的条件，则让这个数组元素成为新的最小值，即Min=arr1(i)。
转载请注明原文地址:https://kaotiyun.com/show/u3up777K
本试题收录于： 二级Access题库NCRE全国计算机二级分类
0

二级Access

NCRE全国计算机二级

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