更多"阅读程序: Function Fun( a As Integer)"的相关试题:
[单项选择]阅读程序:
Function Fun(a As Integer)
Static c,
b=0:b=b+2:c=c+2
F=a*b*c
End Function
Private Sub Command1_Click( )
Dim a As Integer
a=2
For i=1 To 2
Print Fun(
A. ;
[单项选择]阅读程序:
Function F(a As-Integer)
b=0
Static c
b=b+1
c=c+1
F=a+b+c
End Function
Private Sub Command1_Click( )
Dim a As Integer
a=2
For i=1 To 3
Prim F(
A. 4 5 6
B. 4 6 8
C. 4 7 9
[单项选择]有如下一个函数过程:
Function Fun(a As Integer)
Static C
b=0:b=b+1:c=c+1
Fun=a+b+c
End Function
在窗体上添加一个命令按钮,事件过程如下:
Private Sub Command1_Click( )
Dim a As Integer
a=2
For i=1 To 3
Print Fun(
A. ;
[单项选择]有如下一个函数过程:
Function Fun(a As Integer)
Static c
b=0:b=b+1:c=c+1
Fun=a+b+c
End Function
在窗体上添加一个命令按钮,事件过程如下:
Private Sub Command1_Click( )
Dim a As Integer
a=2
For i=1 To 3
Print Fun(
A. ;
[单项选择]有如下程序:
Function F(a As Integer)
b = 0
Static c
b = b + 1
c = c + 2
F = a + b + c
End Function
Private Sub Command1_Click( )
Dim a As Integer
a = 2
For i = 1 To 3
Print F
A. ;
[单项选择]阅读程序:
Function F(a As Integer)
b=0
Static c
b=b+1
c=c+1
f=a+ b+ c
End Function
Private Sub Command1_Click( )
Dim S As Integer
a=2
For i=1 To 3
Print P(
A. 4
B. 4
C. 4
[填空题]设有以下函数过程:
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的值为 _________。