[单项选择]有如下的函数过程： Function Func2(a As Integer, b As Integer)’As Integer Static m As Integer, i As Integer m=0 i=2 a=i+m+1 b=i+a+b Func2=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（　） Dim p As Integer, k As Integer, m As Integer k=4 m=1 p=Fune2(k, m) Print k; m p = Func2(k, m) Print k; m End Sub 程序运行后，单击命令按钮，输出结果为( )。
A. 3 6＜CR＞3 6
B. 3 6＜CR＞3 11
C. 3 11＜CR＞3 6
D. 3 11＜CR＞3 11

更多"有如下的函数过程： Function Func2(a As Int"的相关试题:

[单项选择]若有如下的函数过程：
Function Func2(a As Integer, b As Integer)As Integer
Static m As Integer, i As Integer
m=0
i=2
a=i+m+1
b=i+a+b
Func2 = m
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（　）
Dim p As Integer, k As Integer, m As Integer
k=4
m=1
p = Func2(k, m)
Print k; m
p = Func2(k, m)
Print k; m
End Sub
程序运行后，单击命令按钮，输出结果为( )。
A. 3 6＜CR＞3 6
B. 3 6＜CR＞3 11
C. 3 11＜CR＞3 6
D. 3 11＜CR＞3 11

查看答案

[单项选择]有如下的函数过程： Function Func2(a As Integer,b As Integer) ’As Integer Static m As Integer,i As Integer m=0 i=2 a=i+m+1 b=i+a+b Func2=m End Function 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click（　） Dim p AS Integer,k As Integer,m As Integer k=4 m=1 p=Func2(k,m) Print k; m p=Func2(k,m) Print k; m End Sub 程序运行后，单击命令按钮，输出结果为( )。
A. 3 6＜CR＞3 6
B. 3 6＜CR＞3 11
C. 3 11＜CR＞3 6
D. 3 11＜CR＞3 11

查看答案

[单项选择]有下列函数过程：

Function Func2(a As Integer,b As Integer)As Integer

Staticm As Integer,i As Integer

m=0

i=2

a=i+m+1

b=i+a+b

Func2=m

End Function

在窗体上画一个命令按钮，然后编写下列事件过程：

Private Sub Command1_Click（　）

Dim p As Integer,k As Inmger,m As Integer

k=4

m=1

p=Func2(k,m)

Prim k;m

p=Func2(k,m)

Print k;m

End Sub

程序运行后，单击命令按钮，输出结果是( )。
A. 3 6＜CR＞3 6
B. 3 6＜CR＞3 11
C. 3 11＜CR＞3 6
D. 3 11＜CR＞3 11

查看答案

[单项选择]有下列函数过程：
Function Func2(a As Integer, b As Integer)As Integer
Static m As Integer，i AS Integer
m=0
i=2
a=i+m+1
b=i+a+b
Func2=m
End Function
在窗体上画一个命令按钮，然后编写下列事件过程：
Private Sub Command1_Chck（　）
Dim P As Integer, k As Integer, m As Integer
k=4
m=1
P=Func2(k，m)
Print k；m
P=Func2(km)
Print k=m
End Sub
程序运行后，单击命令按钮，输出结果是( )。
A. 3 6＜CR＞3 6
B. 3 6＜CR＞3 11
C. 3 11＜CR＞3 6
D. 3 11＜CR＞3 11

查看答案

[单项选择]有如下函数过程：　　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 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 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 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

查看答案

我来回答:

提交