题目内容

如果存在如下过程:
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
单击命令按钮,其输出结果为【】。

查看答案

搜索结果不匹配？点我反馈

更多问题

Who has been working at the making of the atomic bomb from beginning to end'？

Albert Einstein.
B. Harold C. Urey.
C. Ernest O. Lawrence.
D. J. Robert Oppenheimer.

函数过程Fun1的功能是:如果参数b为奇数,则返回值为1,否则返回值为0。
Function Fun1(b As Integer)
if _____ Then
Fun1=0
Else
Fun1=1
End If
End Function
使该功能完整,应在空行处填入以下哪条语句

A. b Mod 2＜＞0
B. b Mod 2=0
C. b / 2=1
D. b

下面运行程序后,单击命令按钮,输出的结果是【】。
Private Sub Command1_Click()
Dim a%(1 To 5),i%, s#
For i=1 To 5
a(i)=i
Next
s=Fun(a)
Print "s="; s;
End Sub
Function Fun(a() As Integer)
Dim t#, i%
t=1
For i=LBound(a) To UBound(a)
t=t  a(i)
Next
Fun=t
End Function

编写如下事件过程:
Private Sub Form_keyDown(KeyCode As Integer,Shift As Integer)
Print Chr(KeyCode)
End Sub
Private Sub Form_Keypress(KeyAscii As Integer)
Print Chr(KeyAscii)
End Sub
在一般情况下(即不按住Shift键和锁定大写键时) 运行程序,若按"T"键,则程序输出的结果是

A. T T
B. t T
C. T T
D. t t