设有以下函数过程：Function fun（m As Integer） As IntegerDim k As Integer, sum As Integersum = 0For k = m To 1 Step -2sum = sum + kNext kfun = sumEnd Function若在程序中用语句 s = fun（10） 调用此函数，则s的值为______。
题目
设有以下函数过程：
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的值为______。
相似考题
更多“设有以下函数过程：Function fun（m As Integer） As IntegerDim k As Integer, sum As Integersum = 0For k = m To 1 Step -2sum = sum + kNext kfun = sumEnd Function若在程序中用语句 s = fun（10） 调用此函数，则s的值为______。”相关问题
-
第1题：
在窗体上有一个命令按钮Commandl，通用过程fun和命令按钮的事件过程如下： Private Function fun(By m As Integer) If m Mod 2=0 Then fun=2 Else Fun=1 Else If End Funcion Private Sub Commandl_Click() Dim i Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，则窗体上输出A.6 B.7 C.8 D.9
正确答案：B
【解析】本题比较简单，只要根据程序的执行条件和顺序就可以运算出该程序的最后输出结果。程序运算过程为：当i=1时，s=s+fun(i)=1；当i=2时，s=s+fun(i)=3；当i=3时，s=s+fun(i)=4；当i=4时，s=s+fun(i)=6；当i=5时，s=s+fun(i)=7。 -
第2题：
有如下函数过程： Function fun1(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=fun1(a,B) Print x End Sub
A．0
B．25
C．50
D．100
正确答案：B
解析：可以通过两种方式来传递参数，即按值传递参数和按地址传递参数。按值传递参数时，传递的只是变量的副本。如果过程改变了这个值，则所作变动只影响副本而不会影响变量本身。用ByVal关键字指出参数是按值来传递的。按地址传递参数使过程用变量的内存地址去访问实际变量的内容，在将变量传递给过程时，通过过程可永远改变变量值。默认时是按地址传递参数。题中fun1函数的参数都是核值传送的，函数使用“过程名=表达式”的形式获得函数的返回值，如题中“fun1=x”语句。调用函数“x=fun1(a,B)”后，x=25。 -
第3题：
在窗体上画一个名称为Command1命令按钮，然后编写如下事件过程： Private Function fun1(n As Integer)As Integer Dim k As Integer If n = 1 Then k = 1 Else k = 1 + fun1(n - 1)* 2 End If fun1 = k End Function Private Sub Command1_Click () Dim m As Integer, x As Integer x = 4 m = fun1 (x) Print m End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是
A．4
B．6
C．9
D．15
正确答案：D
解析：fun1是一个递归过程，fun1函数过程共调用了5次，在Command1的单击事件中调用了fun1(4)，其他3次调用的分别是fun1(3)、fun1(2)和fun1(1)，由fun1函数过程自身调用。在fun1的调用过程中，相当于k=1、k=1+1×2=3、k=1+3×2=7、k=1+2×7=15。 -
第4题：
设有以下函数过程
Private Function Fun(a()As Integer，b As String)As Integer
Ehd Function
若已有变量声明：
Dim x(5)As Integer，n As Integer，ch As String
则下面正确的过程凋用语句是
A．x(0)=Fun(x，“ch”)
B．n=Fun(n，ch)
C．Call Fun x，“ch”
D．n=Fun(x(5)，ch)
正确答案：A
-
第5题：
有下列函数过程：
Function fun1(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=fun1(a,B)Print x
End Sub
A．0
B．25
C．50
D．100
正确答案：B
解析：可以通过两种方式来传递参数，即按值传递参数和按地址传递参数。按值传递参数时，传递的只是变量的副本。如果过程改变了这个值，则所作变动只影响副本而不会影响变量本身。用ByVal关键字指出参数是按值来传递的。按地址传递参数使过程用变量的内存地址去访问实际变量的内容，在将变量传递给过程时，通过过程可永远改变变量值。默认时是按地址传递参数。
题中fun1函数的参数都是按值传送的，函数使用“过程名=表达式”的形式获得函数的返回值，如题中“fun1=x”语句。调用函数“x=fun1(a,B)”后，x=25。
-
第6题：
有如下函数过程： Function Fun(By Val x As Integer，By Val y As Integer)As Integer Do While Y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下调用函数的事件过程，该程序的运行结果是 Private Sub Command7_Click() Dim a As Integer，b As Integer a=100:b=25 x=Fun(a,B) Print x End Sub
A．0
B．25
C．50
D．100
正确答案：B
解析：函数的参数传递分为按值传递和按地址传递两种。按值传递是指实参直接将值传递给形参，形参不改变实参的值；按地址传递是指实参将变量的地址传递给形参。在调用函数时要注意参数的传递方式，不同的传递方式使得语句执行结果不同。 -
第7题：
有如下的程序。
Private Sub Command1_Click()
Dim k As Integer, m As Integer
Dim P As Integer
k=4: m=1
P=Fun(k, m) : Print P;
P=Fun(k, m) : Print P
End Sub
Private Function Fun(a As Integer, b As Integer)
Static m As Integer, i As Integer
m=5: i=2
i=i + m + 1
m=i + a + b
Fun=m \ 2
End Function
单击命令按钮后,输出结果为
A．2 2
B．4 4
C．5 5
D．6 6
正确答案：D
解析：在Sub过程中,程序段先定义了3个Integer型变量k,m,p,并赋给k初值为4,m的初值为1,然后调用事件过程Fun,并将它的值赋给p;在事件过程Fun中定义了两个形参,参数的传送是通过引用实参,即将k,m的地址作为a,b的地址;在Fun中,将m,i定义为静态变量,所以第一次调用后的值仍然保留,但是m,i分别都有赋值语句,将它们的值变为5,2,所以返回值不变,都是6,6。 -
第8题：
有如下的程序。 Private Sub Commandl_Click( ) Dim k As Integer, m As Integer Dim P As Integer k=4: m=1 P=Fun(k, m) : Print P; P = Fun ( k, m) : Print P End Sub Private Function Fun( a As Integer, b As Integer) Static m As Integer, i As Integer m=5:i=2 i=i+m+1 m=i + a + b Fun=m\2 End Function 单击命令按钮后，输出结果为
A．2 2
B．4 4
C．5 5
D．6
正确答案：D
解析：在Sub过程中，程序段先定义了3个 Integer型变量k，m，P，并给A赋给初值4，m的初值为1，然后调用事件过程Fun，并将它的值赋给9；在事件过程 Fun中定义了两个形参，参数的传送是通过引用实参，即将k，m的地址作为a，b的地址；在Fun中，将m，i定义为静态变量，所以第一次调用后的值仍然保留，但是 m，i分别都有赋值语句，将它们的值变为5，2，所以返回值不变都是6 6。注意： 调用函数只能返回一个结果值。注意：函数调用、参数传递 -
第9题：
有如下函数过程。 Function Fun( By Val x As Integer,By Val y As Integer) As Integer Do While y ＜＞ 0 reminder = x Mod y xmy y = reminder Loop Fun = x End Function 以下调用函数的事件过程，该程序的运行结果是 Private Sub CommandT_Click( ) Dim a As Integer,b As Integer a = 100:b =25 x =Fun(a,B)Print x End Sub
A．0
B．25
C．50
D．100
正确答案：B
解析：函数的参数传递分为按值传递和按地址传递。按值传递是指，实参直接将值传递给形参，形参不改变实参的值；按地址传递是指，实参将变量的地址传递给形参。在调用函数时要注意参数的传递方式，不同的传递方式，语句执行结果不同。 -
第10题：
在窗体上有一个命令按钮Command1，通用过程fun和命令按钮的事件过程如下： Private Function fun(ByVal m As Integer) If m Mod 2 = 0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_Cliek() Dim i As Integer, s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，则窗体上输出( )。
A．6
B．7
C．8
D．9
正确答案：B
解析：本题比较简单，只要根据程序的执行条件和顺序就可以运算出该程序的最后输出结果。程序运算过程为：当i=1时，s=s+fun(i)=1当i=2时，s=s+fun(i)=3,当i=3时，s=s+fun(i)=4；当i=4时，s=s+fun(i)=6；当i=5时，s=s+fun(i)=7。 -
第11题：
在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为( )。 Private Function fun(x As Integer，y As Integer) Static m As Integer Static i As Integer i=i+2 i=i+m+1 m=i+x+y fun=m End Function Private Sub Command1_Click() Dim j As Integer，m As Integer,k As Integer j=4：m=1 k=fun(j,m) Print k； k=fun (j，m) Print k End Sub
A．8 18
B．7 17
C．7 19
D．8 19
正确答案：D
解析：当发生Command1的单击事件时，定义了两个变量j和m，并依次赋值为4和1，然后调用fun函数，把i和m按地址传递给x和y，进入fun函数执行。在fun函数中定义了两个静态变量m和i，执行三条赋值语句后i的值为3，m的值为8，通过给函数名赋值把8作为函数值返回并赋值给k，输出k的值为8；再一次调用函数fun，把j和m依次按地址传给x和y，进入fun函数执行，注意，由于m和i是静态变量，此时的值不再是0，而是上一次退出时的值为3和8。执行三条赋值语句后i的值为14，m的值为19，通过给函数名赋值，把19作为函数值返回并赋值给k，输出k的值为19。 -
第12题：
在应用程序中用Private Function fun（x As Integer，y AsInteger）定义了函数fun，调用函数fun的过程中的变量I，J均定义为Integer型，能正确引用函数fun的是（）。 ①fun（I，J） ②Callfun（I，3.65） ③fun（3.14，234） ④fun（245，231.5）
- A、①③
- B、②③④
- C、①②③
- D、①②③④
正确答案:D -
第13题：
有如下的程序：
Private Sub Command1_Click()
Dim k As Integer，m AB Integer
Dim P As Integer
k=4:m=1
P=Fun(k，m) =Print P；
P=Fun(k，m) :Print P
End Sub
Private Function Fun(a As Integer，b As Integer)
Static m As Integer，i As Integer
m=5:i=2
i=i+m+1
m=i+a+b
Fun=m\2
End Function
单击命令按钮后，输出结果为
A． 2 2
B．4 4
C．5 5
D．6 6
正确答案：D
解析：在Sub过程中，程序段先定义了3个Integer型变量k，m，F，并赋给k初值为4，m的初值为1，然后调用事件过程Fun，并将它的值赋给p；在事件过程Fun中定义了两个形参，参数的传送是通过引用实参，即将k，m的地址作为a，b的地址；在Fun中，将m，i定义为静态变量，所以第一次调用后的值仍然保留，但是m，i分别都有赋值语句，将它们的值变为 5，2，所以返回值不变，都是6，6。 -
第14题：
设有以下函数过程 Private Function Fun(a（ ）As Integer，b As String)As Integer … End Function 若已有变量声明： Dim x(5)As Integer，n As Integer，ch As String 则下面正确的过程调用语句是（ ）。
A.x(O)=Fun(x．"ch")
B.n=Fun(n．ch)
C.CallFun X，"ch"
D.n=Fun(x(5)，ch)
正确答案：A
A。【解析】函数调用时，必须保证实参类型和形参类型一致，只有A符合，B项第一个参数是整型，C项不符合函数调用的方式，D项是数组的一个元素。 -
第15题：
有如下函数过程: 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
正确答案：B
-
第16题：
设有以下函数过程：
Functiofun(m As Integer)As Integer
Dimk As Integer,sum As Integer
sum=0
Fork=m To 1 Step-2
sum=sum+k
Nextk
fun=sum
End Function
若在程序中用语句s=fun(10)调用此函数，则s的值为______。
正确答案：30
30 -
第17题：
有如下的程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim P As Integer k=4：m=1 P=Fun(k,m)：Print P； P=Fun(k,m)：Print P End Sub Private Function Fun(a As Integer，b As Integer) Static m As Integer，i As Integer in=5：i=2 i=i+m+1 m=i+a+b Fun=m\2 End Function 单击命令按钮后，输出结果为
A．2 2
B．4 4
C．5 5
D．6 6
正确答案：D
解析：在Sub过程中，程序段先定义了3个Integer型变量k,m,p，并赋给k初值为4,m的初值为1，然后调用事件过程Fun，并将它的值赋给p；在事件过程Fun中定义了两个形参，参数的传送是通过引用实参，即将k,m的地址作为a,b的地址；在Fun中，将m,i定义为静态变量，所以第一次调用后的值仍然保留，但是m,i分别都有赋值语句，将它们的值变为5,2，所以返回值不变，都是6,6。 -
第18题：
在窗体上画一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程； Private Function fun(ByVal m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Command1_C1ick() Dim i As Integer, s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是______。
A．6
B．7
C．8
D．9
正确答案：B
解析：子函数的功能为：当m为偶数时返回2，当m为奇数时返回1。1～5中有2个偶数，3个奇数，变量s的值为1+2+1+2+1=7。 -
第19题：
有如下函数： Function fun(a As Integer，n As Integer)As Integer Dim m AS Integer While a>=n a=a-n：m=m+1 Wend Fun=m End Function 该函数的返回值是。 A．a乘以n的乘积 B．a加n的和 C．a减n的差 D．a除以n的商(不含小数部分)
正确答案：D
-
第20题：
有下列函数过程： Function fun1(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
A．0
B．25
C．50
D．100
正确答案：B
解析： 可以通过两种方式来传递参数，即按值传递参数和按地址传递参数。按值传递参数时，传递的只是变量的副本。如果过程改变了这个值，则所作变动只影响副本而不会影响变量本身。用ByVal关键字指出参数是按值来传递的。按地址传递参数使过程用变量的内存地址去访问实际变量的内容，在将变量传递给过程时，通过过程可永远改变变量值。默认时是按地址传递参数。 -
第21题：
有如下函数过程:
Function Fun(By Val x As Ingeger, ByVal y As Integer)As Integer
Do While … y <>0
reminder=x Mod y
x=y
y=reminder
Loop
Fun=x
End Function
以下是调用该函数的事件过程,该程序的运行结果是
Private Sub Command1
Dim a As Integer
Dim b As Integer
a=100:b=25
x=Fun(a,b)
Print x
End Sub
A．0
B．25
C．50
D．100
正确答案：B
解析：本题的难点是子函数的调用过程。子函数Fun的功能是求x和y的公约数,由"欧几里德"求最大公约数的算法可知,当余数r为0时,x为x和y的最大公约数。变量x的值通过子函数名Fun返回。 -
第22题：
有如下函数过程： Function Fun (By Val x As Ingeger, ByVal y As Integer)As Integer Do While…y＜＞0 reminder=x Mod y x=y y=reminder Loop Fun=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a=100:b=25 x=Fun(a，b)Print x End Sub
A．0
B．25
C．50
D．100
正确答案：B
解析：本题的难点是子函数调用过程。子函数Fun的功能是求x和y的公约数，由“欧几里德”求最大公约数的算法可知，当余数r为0时，x为x和y的最大公约数。变量，的值通过子函数名Fun返回。 -
第23题：
（23）设有以下函数过程
Private Function Fun(a() As Integer, b As String) As Integer
...
End Function
若已有变量声明：
Dim x(5）As Integer, n As Integer, ch As String
则下面正确的过程调用语句是
A）x(o)＝Fun(x, "ch")
B）n＝Fun(n, ch
C）Call Fun x, "ch"
D）n＝Fun(x(5), ch)
正确答案：A