设有如下程序:
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个元素的数组,然后查找并输出该数组中各元素的最小值。请填空。
第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
窗体打开运行后,单击命令按钮,则消息框的输出结果为______。
第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
第3题:
设有如下程序:
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
第4题:
设有如下程序:
Private Sub Form—Click()
Cls
a$=“ABCDFG”
For i=1 T0 6
Print Tab(12-i);【 】
Nexti
End Sub
程序运行后,单击窗体,结果如图所示,请填空。
第5题:
在窗体上画一个命令按钮,名称为Commandl,然后编写如下事件过程: Private Sub Commandl_Click() Dim() a=Array(”机床”,”车床”,”钻床”,”轴承”)Printa(2)EndSub程序运行后,如果单击命令按钮,则在窗体上显示的内容是( )。
A.机床
B.车床
C.钻床
D.轴承
第6题:
9)设有如下程序:
Private Sub Form_Click( )
Cls
a$="ABCDFG"
For i=1 To 6
Print Tab(12-i); 【9】
Next i
End Sub
程序运行后,单击窗体,结果如图所示,请填空。