在应用程序中用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、①②③④

题目

在应用程序中用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、①②③④
相似考题

1.有如下函数过程：Function Fun(By Val x As Ingeger，ByVal y As Integer) As IntegerDO While …y＜＞0reminder=x Mod yx=yy=reminderLoopFun=xEnd Function以下是调用该函数的事件过程，该程序的运行结果是Private Sub Command1_Click()Dim a As IntegerDim b As Integera=100:b=25x=Fun(a,B)Print xEnd SubA．0B．25C．50D．100

2.设有以下函数过程：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的值为______。

3.下列程序运行后，单击命令按钮，窗体显示的结果为( )。 Private Function pl(x As Integer,y As Integer,z As Integer) pl=2*x+y+3*z End Function Private Function p2(X As Integer,y As Integer,z As Integer) p2=p1(z,y,x)+x End Function Private Sub Commandl_Click()A．23B．19C．21D．22

4.在窗体上画一个名称为Commandl的命令按钮，然后编写如下通用过程和命令按钮的事件过程： Private Function fun(By Val m As Integer) If m Mod 2=0 Then fun=2 Else fun=1 End If End Function Private Sub Commandl_Click() Dim i As Integer,s As Integer s=0 For i=1 To 5 s=s+fun(i) Next Print s End Sub 程序运行后，单击命令按钮，在窗体上显示的是______。A． 6B．7C．8D．9

更多“在应用程序中用Private Function fun（x A”相关问题

  • 第1题：

    下列程序运行后的输出结果是 Function Fun(n) x=n*n Fun=x一11 End Function Private Sub Command1_Click() For k=1 To 2 Y=Fun(k)：Print Y Next End Sub

    A． -10 -7

    B．10 8

    C．1 3

    D．0 4


    正确答案：A

  • 第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题：

    设有以下函数过程 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项是数组的一个元素。

  • 第4题：

    在窗体上画一个名称为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。

  • 第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题：

    有下列函数过程： 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关键字指出参数是按值来传递的。按地址传递参数使过程用变量的内存地址去访问实际变量的内容，在将变量传递给过程时，通过过程可永远改变变量值。默认时是按地址传递参数。

  • 第8题：

    程序如下：Private Sub form_ Activate() Dim a As Integer for i=4 To 5 a=fun(i) Print a, Next iEnd SubPrivate Function fun(n)As Integer if n ＞0 then fun =n* fun(n-1) Else fun=1 End ifEnd Function 程序最后打印结果是______。

    A．4 5

    B．12 120

    C．24 120

    D．24 60


    正确答案：C
    解析：函数的调用，通过函数的返回值。子过程是个递归过程，其功能是计算阶乘，即 4!=24，5!=120。

  • 第9题：

    在窗体上有一个命令按钮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。

  • 第10题：

    窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序 Dim y As Integer Private Sub Command1_Click() Dim x As Integer X=2 Text1.Text=Fun2(Fun1(x)，y) Text2.Text=Fun1(x) End Sub Private Function Fun1(x As Integer)As Integer x=x+y:y=x+y Fun1=x+y End Function Private Function Fun2(x As Integer，y As Integer)As Integer Fun2=2*x+y End Function 当单击1次和单击2次命令按钮后，文本框Textl和Text2内的值分别是

    A．2 4 2 4

    B．2 4 4 8

    C．10 10 58 58

    D．4 4 8 8


    正确答案：C
    解析：函数Fun1和Fun2都是传值调用，其中，Text1文本框中的内容使用了嵌套调用。实参X是过程变量，实参Y是窗体变量。

  • 第11题：

    以下是子过程或函数过程定义中的开始语句，错误的为（）。

    • A、Private Function f（ x As String ） As Single
    • B、Private Function f（ x As String ）
    • C、Private Sub f（ x As String ） As Single
    • D、Private Sub f（ x As String ）

    正确答案:C

  • 第12题：

    单选题
    定义两个过程Private Sub Fun 1（S as String）和Private Sub Fun2 (a（　）as String*6),在调用过程中用Dim St (6) as String*6定义了一个字符串数组。下面调用语句中正确的有（）。 ①Call Fun1（St（3）） ②Call Fun2（St） ③Call Fun1（St） ④Call Fun2（st（6））
    A

    ①②

    B

    ①③

    C

    ②③

    D

    ②


    正确答案： A
    解析： 暂无解析

  • 第13题：

    （27）有下列函数过程（ ）。 Function fun1(By Val x As Integer,By Valy As Integer) As Integer Do While y<>0 reminder=x Mody x=y y=reminnder 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


    正确答案：B
    【解析】可以通过两种方式来传递参数，即按值传递参数和按地址传递参数。按值传递参数时，传递的只是变量的副本。如果过程改变了这个值，则所作变动只影响副本而不会影响变量本身。用ByVal关键字指出参数是按值来传递的。按地址传递参数使过程用变量的内存地址去访问实际变量的内容，在将变量传递给过程时，通过过程可永远改变变量值。默认时是按地址传递参数。
    　　题中fun1函数的参数都是按值传送的，函数使用“过程名=表达式”的形式获得函数的返回值，如题中“fun1=x”语句。调用函数“x＝fun1(a,b)”后，x=25。

  • 第14题：

    窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为“计算”的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。

    Private Sub Command1_Click()

    Dim x As Integer

    x=Val(InputBox(“输入数据”))

    Text1=Str(fun(x)+fun(x)+fun(x))

    End Sub

    Private Function fun(ByRef n As Integer)

    Ifn Mod 3=0 Then

    n=n+n

    Else

    n=n*n

    End If

    ________=n

    End Function

    当单击命令按钮，在输入对话框中输入2时，文本框中显示的是_______。


    正确答案：fun 276
    fun 276 解析：因为fun是个求值函数，故通过函数名返回值，所以第一空填fun。本题中fun函数的参数n是按地址传送的(即此值不会在函数结束后被销毁)，所以语句Str(fun(x)+fun(x)+fun(x))，据题意可知第一个fun(x)结果为4，第二个fun(x)结果为16，第三次fun(x)结果为256，所以第二空填276。

  • 第15题：

    在窗体上画一个命令按钮(名称为Command1)，并编写下列代码： Function Fun1(ByVa1 a As Integer，b As Integer)As Integer Dim t As Integer t=a-b b=t+a Fun1=t+b End Function Private Sub Command1Click（ ） Dim X As Integer x=10 Print Fun1(Vun1(X，(Fun1(x，x-1)))，x-1) End Sub 程序运行后，单击命令按钮，输出结果是（ ）。

    A.10

    B.0

    C.11

    D.21


    正确答案：B
    B。【解析】在VisualBasic中，参数通过两种方式传送，即传地址和传值。其中，传地址习惯上称为引用，当通过引用来传送实参时，可以改变传送给过程的变量值；传值就是把需要传送的变量复制到一个临时的单元中，然后把该临时单元的地址传送给被调用的通用过程，它不会改变原来变量的值，所有的变化都是在变量的副本上进行的。本题自定义函数Fun1的第1个参数按值传递，第2个参数虽然按址传递，但调用该函数时第2个参数均为表达式，因此变量x的值不受调用函数的影响。第1次调用Funl函数时，Fun1(10，9)=12；第2次调用Fun1函数时，Fun1(10，12)：16；第3次调用Fun1函数时，Fun1(6，9)=0。

  • 第16题：

    设有以下函数过程

    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

  • 第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 Sub Command1_Click () Dim a As Integer, b As Integer, c As Integer a = 1: b = 2: c = 3 Print fun2 (c, b,A)End Sub Private Function funl (x As Integer, y As Integer, z As Integer) fun1 = 2 * x + y + 3 * z End Function Private Function fun2(x As Integer, y As Integer, z As Integer) fun2 = fun1(z, x, y)+ x End Function程序运行后，单击命令按钮，则窗体上显示的内容是

    A．7

    B．14

    C．17

    D．30


    正确答案：B
    解析：对于多个过程或函数依次调用的处理和简单过程调用处理一样，本题先调用函数fun2，而函数fun2又调用函数fun1，结果返回的顺序是从fun1到fun2，fun2计算后输出到调用的地方。只要注意函数的调用关系依次处理即可解决此类问题。

  • 第19题：

    有如下函数过程。 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
    解析：函数的参数传递分为按值传递和按地址传递。按值传递是指，实参直接将值传递给形参，形参不改变实参的值；按地址传递是指，实参将变量的地址传递给形参。在调用函数时要注意参数的传递方式，不同的传递方式，语句执行结果不同。

  • 第20题：

    在窗体上画一个按钮，然后编写如下事件代码。单击按钮，输出为 ______。 Private Function fun3(x As Integer) Static t As Integer t = t + 3 t = t + x fun3 = t End Function Private Sub Commandl Click() Dim a As Integer, b As Integer, c As Integer a = 2 : b = 1 c = fun3 (A)c = fun3 (B)Print c End Sub

    A．6

    B．8

    C．9

    D．12


    正确答案：C
    解析：当单击按钮时，首先调用fun3函数过程，把a的值按地址传递给形参x，在fun3函数中首先定义了一个静态变量t，通过两条赋值语句使t的值变为5，5作为函数的返回值并赋值给c；再一次调用fun3函数，此时需注意，静态变量依旧保持上次退出时的5，所以执行下面的两条语句后，a的值是9，把9作为函数的返回值并赋值给c，因此c的输出值为9。

  • 第21题：

    在窗体上画一个按钮，然后编写如下的事件代码。在按钮上单击，输出为( )。 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。

  • 第22题：

    有如下函数过程： 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．5O

    D．100


    正确答案：B
    解析：可以通过两种方式来传递参数，即按值传递参数和按地址传递参数。按值传递参数时，传递的只是变量的副本。如果过程改变了这个值，则所作变动只影响副本而不会影响变量本身．用ByVel关键字指出参数是按值来传递的。按地址传递参数使过程用变量的内存地址去访问实际变量的内容，在将变量传递给过程时，通过过程可，永远改变变量值．默认时是按地址传递参数。题中fun1函数的参数都是按值传送的，函数使用“过程名=表达式”的形式获得函数的返回值，如愿中“fun1=x”语句。调用函数“x=fun1(s,b)”后，x=25。

  • 第23题：

    单选题
    在应用程序中用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

    ①②③④


    正确答案： B
    解析： 暂无解析

相关内容