更多"有如下函数过程: Function lj(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
[单项选择]有如下函数过程：
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 HFC(ByVal x AS Integer，ByVal y As Integer)As Integer
Do While y ＜ ＞ 0
sic=x/y
X=y
y=sic
Loop
HFC=x
End Function
以下是该函数的调用过程，该程序的运行结果是( )。
Private Sub Command1 _ Click( )
Dim a AS Integer
Dim b As Integer
a=12
b=2
x=HFC(a，b)
Print x
End Sub
A. 0
B. 6
C. 2
D. 80
[单项选择]有如下函数过程： Function HFC(ByVal x AS Integer，ByVal y As Integer)As Integer Do While y ＜ ＞ 0 sic=x/y X=y y=sic Loop HFC=x End Function 以下是该函数的调用过程，该程序的运行结果是 Private Sub Command1 _ Click( ) Dim a AS Integer Dim b As Integer a=12 b=2 x=HFC(a，b) Print x End Sub
A. 0
B. 6
C. 2
D. 80
[填空题]有如下函数过程：
Function gys(ByVal x As Integer，ByVal y As Integer)As Integer
Do While y＜＞0
preminder=x/y
x=Y
y=preminder
Loop
gys=x
End Function
以下是调用该函数的事件过程，该程序的运行结果是 【9】 。
Private Sub Command1_Click（ ）
Dim a As Integer，b As Integer
a=10：b=2
x=gys(a，b)
Print x
End Sub
[填空题]有如下函数过程。
Function UNC(ByVal x As Integer，ByVal y As Integer)As Integer
Do While y＜＞0
S=x/y
x=y
y=S
Loop
UNC=x
End Function
以下事件调用该函数，程序运行结果是 【7】 。
Private Sub Command1_Click（ ）
Dim a As Integer
Dim b As Integer
a=12
b=2
x=UNC(a，b)
Print x
End Sub
[单项选择]有如下函数过程： Function funl(ByVal x As Integer,ByVal y As Integer)As Integer Do While y＜＞0 reminder=x Mod y x=y y=reminder Loop fun1=x End Function 在下列按钮单击事件中调用该函数，则该程序的运行结果是( )。 Private Sub Command1_Click（ ） Dim a As Integer Dim b As Integer a=100 b=25 x=funl(a，b) Print x End Sub
A. 0
B. 25
C. 50
D. 100
[填空题]有如下函数过程：
Function gys(By Val x As Integer，ByVal y As Integer)As Integer
Do While Y＜#0
preminder=x/y
x=Y
y=preminder
Loop
gys=x
End Function
以下是调用该函数的事件过程，该程序的运行结果是______。
Private Sub Command1_Click（ ）
Dim a As Integer，b As Integer
a=10：b=2
x=gys(a,b)
Print x
End Sub
