更多"如果存在如下过程：
Private Function FMa"的相关试题:
[填空题]如果存在如下过程：
Private Function FMax( a( ) As Integer)
Dim First As Integer, Last As Integer, i As Integer
First = LBound(a)
Last = UBound(a)
Max = a(First)
For i = First To Last
If a (i)＞Max Then Max=a (i)
Next
FMax = Max
End Function
Private Sub Commandl Click( )
ReDim m (1 To 4) As Integer
re(1) =20: m(2) =30: m(3) =50: m(4) =100
c = FMax(m)
Print c
End Sub
单击命令按钮，其输出结果为 【13】 。
[填空题]如果存在如下过程：
Private Function FMax(a( )As Integer)
Dim First As Integer，Last As Integer，i As Integer
First=LBound(A)
Last=UBound(A)
Max=a(First)
For i=First To Last
If a(i) ＞ Max Then Max=a(i)
Next i
FMax=Max
End Function
在窗体上添加一个命令按钮，然后编写如下事件过程：
Private Sub Command1 Click( )
ReDim m(1 To 4) As Integer
m(1)=20：m(2)=30：m(3)=50：m(4)=100
c=FMax(m)
Print c
End Sub
单击命令按钮，其输出结果为【 】。
[填空题]如果存在如下过程：
Private Function Fun( a( ) As Integer)
Dim First As Integer, Last As Integer, i As Integer
First = LBound(a)
Last=UBound (a)
Max = a(First)
For i=First To Last
If a(i)＞Max Then Max =a(i)
Next
Fun=Max
End Function
在窗体上添加一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（ ）
ReDim m(1 To 4) As Integer
m(1) =20: m(2) =30: m(3) =50: m(4) =100
c =Fun(m)
Print c
End Sub
单击命令按钮，其输出结果为 【10】 。
[填空题]如果存在如下过程：
Private Function FMaxla（ ） As Integer)
Dim First As Integer,Last As Integer,i As Integer
First=LBound(a)
Last=UBound(a)
Max=a(First)
For i=First To Last
If a(i)＞Max Then Max=a(i)
Next i
FMax=Max
End Function
在窗体上添加一个命令按钮，然后编写如下事件过程：
Private Sub Command_Click（ ）
ReDim m(1 To 4)As Integer
m(1)=20:m(2)=30:m(3)=50:m(4)=100
C=FMax(m)
Print C
End Sub
单击命令按钮，其输出结果为 (8) 。
[填空题]如果存在如下过程：
Private Function Fun( a( ) As Integer)
Dim First As Integer, Last As Integer, i As Integer
First = LBound(a)
Last=UBound (a)
Max = a(First)
For i=First To Last
If a(i)＞Max Then Max =a(i)
Next
Fun=Max
End Function
在窗体上添加一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（ ）
ReDim m(1 To 4) As Integer
m(1) =20: m(2) =30: m(3) =50: m(4) =100
c =Fun(m)
Print c
End Sub
单击命令按钮，其输出结果为 【10】 。
[单项选择]设有如下程序：
Private Static Function Fac(n As Integer)As Integer
Dim f As Integer
f=f+n
Fac=f
End Function
Private Sub Form_Click( )
Dim I As Integer
For 1=2 To 3
Print"#"；I&“=”&Fac(1)
Next I
End Sub
程序运行后，单击窗体，在窗体上显示的是
A. #2=2
B. #2=2
C. #；2=2
D. #；2=2
