设有如下程序段，其功能是查找并输出该数组中的最小值。请在空白处填入适当的内容，将程序补充完整。Option Base 1Private Sub Command1_Click()Dim arr1Dim Min As Integer, i As Integerarr1 = Array(12, 435, 76, -24, 78, 54, 866, 43)Min = arr1(1)For i=2 To 8If arr1(i)＜Min ThenNext iPrint "最小值是:"; MinEnd Sub
题目
设有如下程序段，其功能是查找并输出该数组中的最小值。请在空白处填入适当的内容，将程序补充完整。
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变量中，然后从数组的第二个元素开始逐个与Min变量对比，如果有比Min更小的数，则赋值给Min，这样对比到数组最后一个元素时，就能找到最小的元素；且它存储在Min变量中，因此最后只要输出Min变量值即可。
更多“设有如下程序段,其功能是查找并输出该数组中的最小值。请在空白处填入适当的内容,将程序补充完整。 ”相关问题
-
第1题：
下面程序的功能是单击窗体时在消息框中输出1000以内能同时被3、5和7整除的整数。请在‘空白处填入适当语句将程序补充完整。
Private Sub Form_Click()
sum＝0
For i＝1 To 1000
If______Then
sum＝sum+i
End If
Next i
MsgBox sum
End Sub
正确答案：I Mod 3＝0 And i Mod 5＝0And i Mod 7＝0
I Mod 3＝0 And i Mod 5＝0And i Mod 7＝0 解析：本题考查VBA中书写条件表达式的知识。本题需要补充完整的空白处恰好就是这个程序的关键所在，也就是如何判断i能同时被3、5和7整除。判断整除我们一般使用两个数相除求余数，然后通过判断余数是否为0来实现。由于需要同时被3、5和7整除，所以三个判断的表达式之间应该是“与”的关系，最终结果为i Mod 3＝ 0 And i Mod 5＝0 And i Mod 7＝0。 -
第2题：
设有如下代码：
x＝0
Do
x＝x+1
Loop While x＞＝______
运行程序，要求循环体执行4次后结束循环，请在空白处填入适当语句使程序完整。
正确答案：4
4 解析：本题考查VBA中循环的知识。对于这种循环结构，首先看条件判断在循环体的前面还是后面，如果是先判断条件，则有可能一次也不执行循环体；如果是后判断条件，则无论条件如何至少执行一次循环体。在Until循环中条件为False肘执行循环体，条件为True时退出循环；在While循环中条件为True时执行循环体，条件为 False时退出循环，这一点要注意区分清楚。本题中先执行循环体，要求循环体执行4次也就是第3次循环后x＝3时还满足循环条件，而第4次循环后x＝4时就不满足循环条件，所以条件可以设为x＞3或x＞叫。根据题意此空填4。 -
第3题：
以下方法的功能是统计字符串中数字字符的个数。请在空白处填入适当内容，把程序补充完整。 static int count（string s) { int r=0; for（int i=0;i＜s.Length;i++) { if（＿＿＿＿＿＿＿) ＿＿r++＿＿＿; } return r; }
B 过程中对传人的字符串的字符一个个取出，判断如果不是空格则依次连接到一个字符串变量中，如果是空格则计数加1。最后，返回不包含空格的字符串和空格的个数。因此选项B正确。 -
第4题：
下列程序功能为：弹出一个对话框询问用户是否输出，如果是，则输出；否则结束。请在程序空白处填入适当内容使程序完整。
Sub PrintOut()
Dim a As Integer
a = MsgBox("输出结果?", vblnformation + vbYesNo, "提示：")
If a = ______ Then
Print "Myresult"
End If
End Sub
正确答案：vbYes(或6)
vbYes(或6) 解析：MsgBox函数在对话框中显示消息，等待用户单击按钮，并返回一个Integer告诉用户单击哪一个按钮。返回值是一个整数，这个整数与选择的按钮有关，如下表所示。
-
第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)。