itgle.com
设有如下程序：Option Base 1Private Sub Commandl 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 Then【 】NextPrint"最小值是:";MinEnd Sub以上程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
题目
设有如下程序：
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) 解析：由于有Option Base 1语句，所以数组下标是从1开始。本题的功能是查找8个数中的最小值，首先使用Array语句给数组赋值，然后把第一个值赋值给最小值变量，及Min=arrl(1)，然后从第二个数开始循环与最小值比较，如果比最小值小，则把这个值赋值给Min，即Min=arrl(i)。
更多“设有如下程序:Option Base 1Private Sub Commandl Click()Dim arrlDim Min As Integer,i As Inte ”相关问题
-
第1题：
在窗体中添加一个名称为Commandl的命令按钮，然后编写如下程序：
Pfivme Sub f(ByVal x As Integer)
x＝x+4
End Sub
Pfivate Sub Commandl_Click()
i＝3
Call f(i)
Ifi>4 Then i＝i*2
MsgBOx I
End Sub
窗体打开运行后，单击命令按钮，则消息框的输出结果为______。
正确答案：3
3 解析： 本题考查VBA中参数传递的知识。在VBA的过程调用时，参数有两种传递方式：传址传递和传值传递。如果在过程声明时形参用ByVal声明，说明此参数为传值调用；若用ByRef声明，说明此参数为传址调用；没有说明传递类型，则默认为传址传递。本题中在定义子过程f的时候用ByVal声明了形参x，说明为传值调用，此时对x的任何更改不会影响调用它的实参i，所以执行完Call f(i) 这条语句后i的值不变仍为 3，当然也不满足If语句的条件，故此最后输出结果为3。 -
第2题：
在窗体上面一个名称为Commandl的命令按钮，然后编写如下程序： Option.Base 1 Private Sub Command1_Click() Dim a As Variant a=Array(1，2，3，4，5) Sum = 0 For i = 1 To 5 Sum=Sum+a(i) Next i x=Sum/5 For i=1 To 5 If a(i) ＞x Then Print a(i)； Next i End Sub 程序运行后，单击命令按钮，在窗体上显示的内容是
A．1 2
B．1 2 3
C．3 4 5
D．4 5
正确答案：D
解析：本题主要考查考生对程序代码的阅读理解能力。用Array函数为数组a(5)赋值，其元素分别为1、2、3、4、5。第一个For i循环把a(i)数组中的元素逐个加到变量Sum上，然后求出Sum浮点除5的结果(为3)，赋值给变量x。第二个Fori循环表示当a(i)大于3时，则用Print语句输出该元素。据此，正确答案为D。 -
第3题：
设有如下程序: Private Sub Form. Click( ) Dim i As Integer,x As String,y As String x="设有如下程序：
Private Sub Form. Click（ ）
Dim i As Integer，x As String，y As String
x="ABCDEFG"
For i=4 To 1Step-1
y=Mid(X，i，i)+y
Next i
Print y
End Sub
程序运行后，单击窗体，输出结果为（ ）。
A.ABCCDEDEFG
B.AABBCDEFG
C.ABCDEFG
D.AABBCCDDEEFFGG
正确答案：A
A。【解析】本题也是考查字符串的取值，当i=4时，y=Mid(x，4，4)+y=DEFG，当i=3时，Y=Mid(X，3，3)q-y=CDEDEFG，当i=2时，y=Mid(X，2，2)+y=BCCDEFG，当i=1时，y=Mid(x，1，1)+Y=ABCCDEFG，所以答案选择A。 -
第4题：
设有如下程序：
Private Sub Form—Click()
Cls
a$=“ABCDFG”
For i=1 T0 6
Print Tab(12-i)；【 】
Nexti
End Sub
程序运行后，单击窗体，结果如图所示，请填空。
正确答案：Right(a $．i)
Right(a $．i) 解析：mght函数用语从字符串右边返回指定数目的字符。格式为：Right(string，length)，参数string为字符串表达式，其最右边的字符被返回。 -
第5题：
在窗体上画一个命令按钮，名称为Commandl，然后编写如下事件过程： Private Sub Commandl_Click（） Dim（） a=Array（”机床”，”车床”，”钻床”，”轴承”）Printa（2）EndSub程序运行后，如果单击命令按钮，则在窗体上显示的内容是（ ）。
A.机床
B.车床
C.钻床
D.轴承
正确答案：C
暂无解析，请参考用户分享笔记 -
第6题：
9）设有如下程序：
Private Sub Form_Click( )
Cls
a$="ABCDFG"
For i=1 To 6
Print Tab(12-i); 【9】
Next i
End Sub
程序运行后，单击窗体，结果如图所示，请填空。
正确答案：
（9）【答案】Right(a $,i)
【解析】Right函数用于从字符串右边返回指定数目的字符。格式为：Right（string,length）.其中，参数string 为字符串表达式，其最右边的字符被返回。