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

题目

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

End Sub

相似考题

1.设有如下程序Option Base 1Private Sub Command1_Click()Dim arrlDim Min As Integer，i As Integerarrl=Array(12，435，76，-24，78，54， 866， 43)Min=____For i=2 To 8If arrl(i)＜Min ThenNext iPrint “最小值是：”；MinEnd Sub以上程序的功能是：用Arcay函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。

2.阅读以下说明和C语言函数，将应填入(n)处的字句写在对应栏内。【说明】下面一段程序从给定的数组b中找出值最小的元素，并输出该元素的数组下标、内存地址minaddr以及元素值本身。函数findmin负责在给定的数组中查找最小值，并返回最小值所在的内存地址，函数有三个参数：array是所要处理的数组；size是数组的大小；index负责从函数返回具有最大值的元素在数组中的数组下标。请填充空白，使其成为一个合乎要求的完整程序。【程序】//程序开始include＜iostream.h＞int *findmin(int *array, int size, int &index);void main(){/****** 变量定义部分 ***********/int b[10] = {34, 34, 23, 89, 1, 2, 13, 42, 5, 54};(1);int idx;/******* 寻找最小值 ************/minaddr = findmin(b, sizeof(b)/sizeof(int), idx);/******* 输出最小值的有关信息 ************/cout ＜＜ "Min value index: "＜＜idx＜＜end1＜＜"Min value address: "＜＜minaddr＜＜end1＜＜"Min value: "＜＜(2)＜＜end1;}/******* 函数findmin的定义部分 ************int *findmin(int *array, int size, int &index){int min = 0;//max 是当前具有最小值的数组元素下标值for(int i = 1;(3); i++){if(array[i]＜(4))min = i;}(5);return array + min;//返回最小值所在内存地址}

3.下列程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Text l中输出该数组中各元素的最小值。请填空。Option Base 1Private Sub Command1_Click()Dim arr1()Dim Min As Integer,i As IntegerArr1=Array(12,435,76,-24,78,54,866,43)Min=______For i=2 To 8If arr1(i)＜Min Then______Next iText1=MinEnd Sub

4.设有如下程序：Option Base 1Private Sub Command1_Click（）Dim arr1Dim Min As Integer, i As Integerarr1 = Array（12, 435, 76, -24, 78, 54, 866, 43）Min = ______For i = 2 To 8If arr1（i） < Min Then______NextPrint "最小值是："; MinEnd Sub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。

更多“ 下面程序的功能是：用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)。

相关内容