（11）设有下列程序查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。 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(1)<Min Then Next i Print"最小值："；Min End Sud
题目
（11）设有下列程序查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。 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(1)<Min Then Next i Print"最小值："；Min End Sud
相似考题
更多“(11)设有下列程序查找并输出该数组中的最小值,请在空白处填上合适的代码,将程序补充完整。 Option ”相关问题
-
第1题：
在程序中添加一个命令按钮，并编写如下代码。己知程序的运行结果为如下矩阵，请在[ ]和[ ]处填上正确答案使程序完整。
1 0 0 0
0 1 1 0
0 1 1 0
1 0 0 1
正确答案：i=i Or j=4-i+l j=1 To 4
i=i Or j=4-i+l , j=1 To 4 解析：本题中第一个双重循环的功能是为一个二维数组赋初值。内层循环中if语句的功能是：使数组两条对角线上的元素值为1，其他元素为0；第二个双重循环的功能是打印数组，内层循环控制打印每行的每一列，外层循环控制打印4行。这样输出的结果为上面所述。空打印Print操作是换行。 -
第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题：
下面的程序代码执行之后，输出如下结果，请填写空白处将程序补充完整：
正确答案：
i>=j i<j Print
【解析】观察题目中要求的图形，再接合程序段中第1个双重for循环的作用是给x二维数组的元素赋值，可以看出当数组下标i<j时，数组元素赋给-1；当数组下标i>=j时，数组元素赋给1。第3个空显然是使用Print语句实现换行。 -
第4题：
设有如下代码：
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。 -
第5题：
下面这个Sub过程的功能是统计字符串中“a”的个数，请在空白处填上合适的代码完成程序。
Private Sub numCount()
Dim hum As Integer
s＄ = "software And hardware"
num = Len(s$)
For i = 1 To hum
b$=______
If b$ = "a" Then x = x+1
Next i
Print "x="; x
End Sub
正确答案：Mid(s$i1)
Mid(s$,i,1) 解析：分析题目和程序段可知，空白处的作用是取出字符串s中的第i个字符。这里可以使用Mid函数来取出第i个字符，然后对比该字符是否是字符a。如果是，则变量x加1；如果不是，则跳过if后面的语句继续循环，最后输出x。