网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
有如下的函数过程： 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 6B．3 6＜CR＞3 11C．3 11＜CR＞3 6D．3 11＜CR＞3 11 ” 相关考题
考题
以下用户自定义函数Function Func(a As Integer，b As Integer) As IntegerStatic m As Integer，i As Integerm=0:i=2i=i+m+im=i+a+bFunc=mEnd Function在窗体上画一个命令按钮，然后编写如下事件过程：Private Sub Command1_Click()Dim k As Integer，m As Integer，p As Integerk=4:m=1P=Func(k,m)Print pEnd Sub程序运行后，单击命令按钮，输出结果为A．8B．9C．10D．11
考题
（ 29 ）有如下函数：Function fun(a As Integer,n As Integer) As IntegerDim m As IntegerWhile a =na=a-nm= m+1Wendfun=mEnd Function该函数的返回值是A ） a 乘以 n 的乘积B ） a 加 n 的和C ） a 减 n 的差D ） a 除以 n 的商（不含小数部分）
考题
设有以下函数过程：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的值为______。
考题
有如下函数过程： FunctiOngyS(By Val X As Integer，ByValy As Integer)As Integer DOWhiley＜＞0 reminder=x Mody X=y y=reminder Loop gys=x End FunctiOn 以下是调用函数的事件过程，该程序的运行结果是，( )。 PriVate Sub Command7_Click() DimA．0B．25C．50D．100
考题
以下用户自定义函数 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．8B．9C．10D．11
考题
（27）下列函数过程 Function Func（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 End Sub程序运行后，单击命令按钮，输出结果是 A.3 6CR3 6 B.3 6CR3 11C.3 11CR3 6 D.3 11CR3 11
考题
有如下函数过程： 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 SubA．0B．25C．50D．100
考题
数组A在子过程或函数中定义为形参,正确的语句是( )。
A、Private Sub sele(ByVal A( ) As integer)B、Private Function sale(A() As Integer) As StringC、Private Sub sale(A() As Integer) As IntegerD、Private Sub sale(A(i) As Integer)
考题
有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim p As Integer k=4：m=1 p=PC(k，m)：Print p； p=PC(k，m)：Print p End Sub Private Function PC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i + m + 1 m=i + a + b PC=m End Function 程序运行后，输出的结果为A．4 6B．6 6C．8 8D．10 12
考题
有下列函数过程：Function Func2(a As Integer,b As Integer)As IntegerStaticm As Integer,i As Integerm=0i=2a=i+m+1b=i+a+bFunc2=mEnd Function在窗体上画一个命令按钮，然后编写下列事件过程：Private Sub Command1_Click()Dim p As Integer,k As Inmger,m As Integerk=4m=1p=Func2(k,m)Prim k;mp=Func2(k,m)Print k;mEnd Sub程序运行后，单击命令按钮，输出结果是( )。A．3 6＜CR＞3 6B．3 6＜CR＞3 11C．3 11＜CR＞3 6D．3 11＜CR＞3 11
考题
有以下函数过程： Function Gys (ByVal x As Integer， ByVal y As Integer) As Integer Do While y＜＞0 Reminder = x Mod y x = y y= Reminder Loop Gys=x End Function 以下是调用该函数的事件过程，该程序的运行结果是 Private Sub Command1_Click() Dim a As Integer Dim b As Integer a = 50 b = 10 x=Gys (a，B)Print x End SubA．0B．10C．50D．100
考题
有如下程序： Private Sub Command1_Click() Dim k As Integer，m As Integer Dim op As Integer k=4:m=1 p=PPC(k,m):Print op； p=PPC(k.m):Print op End Sub Private Function PPC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0:i=2 i=i+m+1 m=i+a+b PPC=m End Function 程序运行后，输出的结果为A．4 6B．6 6C．8 8D．10 12
考题
在窗体上有1个名称为Commandl的命令按钮，并有如下事件过程和函数过程：Private Sub Commandl Click()Dim P As Integerp=m(1)+m(2)+m(3)Print PEnd SubPrivate Function m(n As Integer)As IntegerStatic s As IntegerFor k=1 To ns=s+lNextm=sEnd Function运行程序，单击命令按钮Commandl后的输出结果为
考题
有如下函数过程： 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 SubA．0B．25C．50D．100
考题
有如下的程序： 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 2B．4 4C．5 5D．6 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 SubA．0B．25C．50D．100
考题
有如下事件过程： Function UNC (ByVal x As Integer，ByVal y As Integer) As Integer Do While y＜＞0 sic=x/y x=y y=sic Loop UNC=x End Function 以下是该函数的调用过程，该程序的运行结果是 PriVate Sub COmmand1_Click() Dim a As Integer Dim b As Integer a=12 b=2 x=UNC (a，B)Print x End SubA．0B．6C．2D．80
考题
有如下函数： 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的商(不含小数部分)
考题
有如下函数过程。 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 SubA．0B．25C．50D．100
考题
有如下函数:Private Function firstfunc(x As Integer, y As Integer) As Integer Dim n As Integer Do While n ＜= 4 x=x +y n=-+1 Loop firstfunc = x End Function调用该函数的事件过程如下:Private Sub Command1_lick() Dim x As Integer Dim y As Integer Dim n As Integer Dim z As Integer x=1 y=1 For n = 1 To 3 z = firstfunc(x, y) Next n Print z End Sub该事件过程的执行结果是 ______。A．1B．3C．16D．9
考题
有如下的函数过程： 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 6B．3 6＜CR＞3 11C．3 11＜CR＞3 6D．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 6B．3 6＜CR＞3 11C．3 11＜CR＞3 6D．3 11＜CR＞3 11
考题
有如下函数过程： Function gys(ByVal x As Integer，ByVal y As Integer) As Integer Do While y＜＞0 reminder = x Mod y x=y y=reminder Loop gys=x End Function以下是调用该函数的事件过程，该程序的运行结果是______。 Private Sub Command7_Click() Dim s As Integer Dim b As Integer a=100 b=25 x=gys(a，B)Print x End SubA． 0B．25C．50D．100
考题
有如下程序：Private Sub Command1_Click() Dim k As Integer，m As Integer Dim op As Integer k=4：m=1 op：PPC(k，m)：Print op； op：PPC(k，m)：Print opEnd SubPrivate Function，PPC(a As Integer，b As Integer) Static m As Integer，i As Integer m=0：i=2 i=i+m+1 m=i+a+b PPC=mEnd Function程序运行后，输出的结果为A．4 6B．6 6C．8 8D．10 12
考题
有如下函数过程： 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 SubA．0B．25C．50D．100
考题
有如下函数过程： 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 SubA．0B．25C．5OD．100
考题
下列定义Funct函数过程的语句，错误的是（）A、Private Public Funct（a）As IntegerB、Static Function Funct（a）C、Private Function Funct（a As Single）D、Function Funct（a As Integer）As Integer
考题
单选题下列定义Funct函数过程的语句，错误的是（）A
Private Public Funct（a）As IntegerB
Static Function Funct（a）C
Private Function Funct（a As Single）D
Function Funct（a As Integer）As Integer
热门标签
最新试卷