更多"以下用户自定义函数 Function Func(a As Integ"的相关试题:
[单项选择]以下用户自定义函数
Function Func(a As Integer,b As Integer)As Integer
Static m As Integer.i As Integer
m=0:i=2
i=i+m+i
m=i+a-i-b
Func=m
End Function
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim k As Integer,m As Integer,p As Integer
k=4:m=1
P=Func(k,m)
Print P
End Sub
程序运行后,单击命令按钮,输出结果为
A. 8
B. 9
C. 10
D. 11
[单项选择]以下用户自定义函数
Function Func(a As Integer,b As Integer) As Integer
Static m As Integer,i As Integer
m=0:i=2
i=i+m+i
m=i+a+b
Func=m
End Function
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim k As Integer,m As Integer,p As Integer
k=4:m=1
P=Func(k,m)
Print p
End Sub
程序运行后,单击命令按钮,输出结果为
A. 8
B. 9
C. 10
D. 11
[单项选择]以下用户自定义函数
Function Func(a As Integer, b As Integer) As Integer
Static m As Integer, i As Integer
m=0:i=2
i=i+m+i
m=i+a+b
Func=m
End Function
在窗体上画一个命令按钮,然后编写如下事件过程:
Private Sub Command1_Click( )
Dim k As Integer,m As Integer,p As Integer
k=4:m=1
P=Func(k,m)
Print p
End Sub
程序运行后,单击命令按钮,输出结果为
A. 8
B. 9
C. 10
D. 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 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=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 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 func(n As Integer)As Integer
Sum = 0
For i = 1 To n
Sum = Sum + (i + 1)* i
Next i
func = Sum
End Function.
Private Sub Command1_Click ( )
Dim a As Integer
a= 5
s = func (
A. 60
B. 70
C. 15
[填空题]设有以下函数过程:
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 = sum
End Function
若在程序中用语句s=fun(10)调用此函数,则s的值为 _________。