itgle.com
下列程序的功能是：用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
题目
下列程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Text l中输出该数组中各元素的最小值。请填空。
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 arr1(i)＜Min Then______
Next i
Text1=Min
End Sub
相似考题
更多“下列程序的功能是:用Array函数建立一个含有8个元素的数组,然后查找并在文本框Text l中输出该数组 ”相关问题
-
第1题：
下面程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并在文本框Textl中输出该数组中各元素的最小值。请填空。
End Sub
正确答案：
arrl(1)Min=arrl(i)【解析】本题考查VBA中程序设计的知识。对于这个问题，需要把数组元素依次与最小值比较，如果比当前的最小值还小，则让这个数组元素成为新的最小值，然后继续比较，直至数组元素都比较一遍为止。由于比较的循环从2开始，显然是预先设置最小值为数组的第一个元素即arrlfl)；在比较循环内部如果符合If语句的条件，则让这个数组元素成为新的最小值，即Min=arrl(i)。 -
第2题：
设有如下程序：
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)。 -
第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
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)。 -
第5题：
在考生文件夹下有一个工程文件sjt5．vbp，其窗体上画有两个名称分别为Text1、Text2的文本框，其中Text1可多行显示。请画两个名称为Command1、Command2，标题为“产生数组”、“查找”的命令按钮。如图8所示。程序功能如下： ①单击“产生数组”按钮，则用随机函数生成10个0～100之间(不含0和100)互不相同的数值，并将它们保存到一准数组a中，同时也将这10个数值显示在Text1文本框内； ②单击“查找”按钮将弹出输入对话框，接收用户输入的任意一个数，并在一维数组a中查找该数，若查找失败，则在Text2文本框内显示该数“不存在于数组中”；否则显示该数在数组中的位置。 要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其实现上述功能，但不能修改窗体文件中已经存在的控件和程序。最后把修改后的文件按原文件名存盘。
正确答案：
【知识点拔】Rnd函数用于产生个小于1但大于或等于0的随机数值，为了生成某一范围内的随机整数，呵使用以下公式：
Int((upperbound-lowerbound+1)*Rnd+Iowerboundl
这里，upperbound足随机数范围的上限，而lowerbound则是随机数范围的下限。
【审题分析】本题在“生成数组”按钮的单击事件过程中，通过For循环生成10个0～100之间(不含0和100)互不相同的随机数，并存入数组a，其叶生成函数的表达式应为：Fix(Rnd*99+1)。为防止生成相同的随机数值，每新生成一个随机数后，都通过For 循环让其与之前生成的一个随机数逐一比较，若新生成的随机数已存在，则将当前循环变量i的值减1，重新为数组元素a(i)生成随机数。
在“查找”按钮的单击事件过程中，通过For循环让数组a中的元素逐一与用户在输入对话框中输入的数相比较，若条件表达式a(1)=num成立，则表示怠到相同的数，并在文本框Text2中显示相关信息。若没找到相同函数，循环结束后循环变量i>i0，则在Text2 文本框内显示该数“不存在于数组中”。
【操作步骤】
步骤1：打开考生文件夹中的本题工程文什sjt5．vbp， 在窗体上画两个命令按钮，属性及其值如表1-23所示。
步骤2：在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。
参考代码：
步骤3：按要求将文件保存至考生文件夹中。