下面程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并在文本框Textl中输出该数组中各元素的最小值。请填空。End Sub

题目

下面程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并在文本框Textl中输出该数组中各元素的最小值。请填空。

End Sub


相似考题
更多“ 下面程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并在文本框Textl中输出该数组中各元素的最小值。请填空。End Sub ”相关问题
  • 第1题:

    下面程序的功能是:用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)
    arr1(1) Min=arr1(i) 解析:本题考查VBA中程序设计的知识。对于这个问题,需要把数组元素依次与最小值比较,如果比当前的最小值还小,则让这个数组元素成为新的最小值,然后继续比较,直至数组元素都比较一遍为止。由于比较的循环从2开始,显然是预先设置最小值为数组的第一个元素即arr1(1);在比较循环内部如果符合If语句的条件,则让这个数组元素成为新的最小值,即Min=arr1(i)

  • 第2题:

    设有程序:

    Option Base 1

    Private Sub Command1_Click()

    Dim arr1,Max as Integer

    arr1=Array(12,435,76,24,78,54,866,43)

    【 】=arr1(1)

    For i=1 To 8

    If arr1(i)>Max Then【 】

    Next i

    Print"最大值是:";Max

    End Sub

    以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。请填空。


    正确答案:MaxMax=arr1(i)
    Max,Max=arr1(i) 解析:程序中用Array函数给变体变量 arr1赋了一组数,由于程序有Option Base 1语句,因此,数组元素的下标下界从1开始,接着把第一个数组元素赋给变量Max,这样为进行比较创造了条件,程序中的For循环控制比较次数,每次循环中,根据题目要求,若arr1(i)>Max,则arr1(i)较大,应该用arr1(i)替代 Max,所以程序中[13]处应填语句Max=arr1 (i)。

  • 第3题:

    编程实现使用冒泡排序法对具有12个数组元素的一维整型数组array[12] = {96,35,12,58,78,90,587,21,0,-65,106,52}按照由大到小的排序进行排序,输出排序前后的数组,并查找90是否在该数组中,若再该数组中,输出90在该数组中的位置,否则输出“90不在数组array中”,要求:使用指针在函数中实现排序和查找的功能,在主函数中调用这两个函数。


    答: int [] array = new int [] ; int temp = 0 ; for (int i = 0 ; i array.Length - 1 ; i++) { for (int j = i + 1 ; j array.Length ; j++) { if (array[j] array[i]) { temp = array[i] ; array[i] = array[j] ; array[j] = temp ; } } }

  • 第4题:

    设有以下程序:

    Option Base 1

    Private Sub Command1_Click( )

    Dim arr1 ,Max as Integer

    art1 = Array(12,435,76,24,78,54,866,43)

    【 】= arr1(1)

    For i = 1 To 8

    If arrl(i)>Max Then【 】

    Next i

    Print "最大值:"; Max

    End Sub

    以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。


    正确答案:Max Max=arr1(i)
    Max , Max=arr1(i) 解析:Max=arr1(1)是先将第1个元素设为最大值,然后在循环中逐一和数组元素arr1(i)进行比较,如果比当前的Max值大,则更新Max。以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中元素的最大值。

  • 第5题:

    设有如下程序:

    Option Base 1

    Private Sub Commandl Click()

    Dim arrl

    Dim Min As Integer,i As Integer

    arrl=Array(12,435,76,-24,78,54,866,43)

    Min=【 】

    For i=2 To 8

    If arrl(i)<Min Then【 】

    Next

    Print"最小值是:";Min

    End Sub

    以上程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并输出该数组中各元素的最小值。请填空。


    正确答案:arrl(1) Min=arrl(i)
    arrl(1) , Min=arrl(i) 解析:由于有Option Base 1语句,所以数组下标是从1开始。本题的功能是查找8个数中的最小值,首先使用Array语句给数组赋值,然后把第一个值赋值给最小值变量,及Min=arrl(1),然后从第二个数开始循环与最小值比较,如果比最小值小,则把这个值赋值给Min,即Min=arrl(i)。