itgle.com
设有如下程序：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个元素的数组，然后查找并输出
题目
设有如下程序：
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
Print "最小值是："; Min
End Sub
以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
相似考题
更多“设有如下程序: OptionBase1PrivateSubCommand1_Click() Dimarr1 DimMinAsInteger,iAsInt ”相关问题
-
第1题：
设有如下程序段，其功能是查找并输出该数组中的最小值。请在空白处填入适当的内容，将程序补充完整。
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 = arr1(1)
For i=2 To 8
If arr1(i)＜Min Then
Next i
Print "最小值是:"; Min
End Sub
正确答案：Min=arr1(i)
Min=arr1(i) 解析：题目要求输出数组中的最小值，分析程序可知，本程序求数组最小值的算法是：假设最小值是第一个数组元素，并把它存在Min变量中，然后从数组的第二个元素开始逐个与Min变量对比，如果有比Min更小的数，则赋值给Min，这样对比到数组最后一个元素时，就能找到最小的元素；且它存储在Min变量中，因此最后只要输出Min变量值即可。 -
第2题：
设有以下程序：
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个元素的数组，然后查找并输出该数组中元素的最大值。 -
第3题：
设有如下程序段
A.A
B.B
C.C
D.D
正确答案：A
本题主要考查的是字符数组、字符串和字符指针的一些概念。数组元素个数，是在定义数组的时候确定的，本题的S数组元素个数是20。而字符串长度是从该字符串的第1个字符开始，一直到“＼0”字符为止，所历经的字符个数，“＼0”不算在内。所以本题P所指字符串(”Beijin9”)的长度为7。因此选项B)的叙述不正确。s是数组名，而不是指针变量，因此选项C)不正确。数组s中除了包含字符串“Beijin9”外，还包含其后的20个以内字节的内容，而指针变量p中包含的只是数组s的首地址。因此选项D)的说法也不正确。 -
第4题：
下面程序的功能是：用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) -
第5题：
设有程序：
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)。