更多"有如下函数过程: Function f1(x As Integer)"的相关试题:
[单项选择]有如下函数过程: Function lj(x As Integer)As Long Dims As Long Dimi As Integer s=0 Fori=1 To x s=s+i Nexti lj=s End Funcfion 在窗体上添加一个命令按钮,名为Commandl,编写事件过程调用该函数,输出结果为 ( )。 Private Sub Commandl_lick( ) Dimi As Integer Dim sum As Long Fori=1 To 5 sum=sum+lj(i) Nexti Print sum End Sub
A. 25
B. 35
C. 45
D. 55
[单项选择]有如下函数过程:
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
[单项选择]设有如下通用过程: 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 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 fun(a As Integer, b As Integer)
Dim c As Integer
If a<b Then
c=a:a=b:b=c
End If
c=0
Do
c=c+a
Loop Until c Mod b=0
fun=c
End Function
若调用函数fun时的实际参数都是自然数,则函数返回的是
A. a、b的最大公约数
B. a、b的最小公倍数
C. a除以b的余数
D. a除以b的商的整数部分