更多"有如下函致： Function fact(x As Integer)"的相关试题:
[单项选择]有如下函致： Function fact(x As Integer)As Long Dim p As Long，i As Integer p=1 For i=1 To x p=p*1 Next fact=p End Function 调用它的事件过程如下： Private Sub Command1_Click（ ） i=Val(Inputbox("请输入数据")) a=fact((i)) Print a End Sub 若输入数据5，则运行结果为
A. 120
B. 60
C. 80
D. 100
[单项选择]有如下函数过程：
Function f1(x As Integer)As Long
Dim s As Long
Dim i As Integer
s=0
For i=1 To x
s=s+i
Next i
f1=s
End Function
在窗体上添加一个命令按钮，名为Command1，并编写事件过程调用该函数，则输出结果为( )。
Private Sub Command1_Click（ ）
Dim i As Integer
Dim sum As Long
For i=1 To 5
sum=sum+f1(i)
Next i
Print sum
End Sub
A. 25
B. 35
C. 45
D. 55
[填空题]
设有以下函数过程：
Function fun(m As Integer)As Integer
Dim k As Integer, sum As Integer
sum=0
For k=m To 1 Step-2
sum=sum+k
Next k
fun=stlm
End Function
若在程序中用语句s=fun(10)调用此函数，则s的值为（）。
[单项选择]设有如下通用过程：
Public Function f(x As Integer)
Dim y As Integer
x = 10： y = 5
f = x * y
End Function
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Static x As Integer
x = 2：y = 6
y = f(x)
Print x； y
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A. 2 6
B. 10 5
C. 10 50
D. 6 10
[单项选择]设有如下通用过程：
Public Function f(x As Integer)
Dim y As Integer
x = 20
y = 2
f = x * y
End Function
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Commandl Click（ ）
Static x As Integer
x = 10
y = 5
y = f(x)
Print x；y
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A. 10 5
B. 20 5
C. 20 40
D. 10 40
[单项选择]设有如下通用过程：
Public Function f(X As Integer)
Dim y As Integer
x=20
y=2
f=x*y
End Function
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Static x As Integer
x=10
y=5
y=f(x)
Print x；y
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是( )。
A. 10 5
B. 20 5
C. 20 40
D. 10 40
[单项选择]有如下函数过程:
Function lj(x As Integer) As Long
Dim s As Long
Dim i As Integer
s=0
For i = 1 To x
s=s+ i
Next i
1j= s
End Function
在窗体上添加一个命令按钮，名为Command1, 编写事件过程调用该函数：
Private Sub Command1 Click（ ）
Dim i As Integer
Dim sum As Long
For i = 1 To 5
sum = sum + 1j(i)
Next i
Print sum
End Sub
A. 25
B. 35
C. 45
D. 55
