设有如下程序: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)
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 为字符串表达式,其最右边的字符被返回。