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

admin2013-01-07  46

问题 下面程序的功能是:用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://jikaoti.com/ti/wDw0FFFM
0

最新回复(0)