网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
阅读程序： 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)Next i End Sub 运行上面的程序，单击命令按钮，输出结果为 ______。
A．4 4 4
B．4 5 6
C．4 6 8
D．4 7 9
参考答案
更多 “ 阅读程序： 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)Next i End Sub 运行上面的程序，单击命令按钮，输出结果为 ______。A．4 4 4B．4 5 6C．4 6 8D．4 7 9 ” 相关考题
考题
阅读程序：Function fac(ByVal n As Integer)As IntegerDim temp As Integertemp=1For i％=1 To ntemp=temp*i％Next i％fac=tempEnd FunctionPrivate Sub Form_Click()Dim nsum As Integernsum=1For i％=2 To 4nsum=nsum+fac(i％)Next i％print nsumEnd Sub程序运行后，单击窗体，输出结果是A．35B．31C．33D．37
考题
下面子过程语句说明合法的是( )。A．Function f1(By Valn%)B．Sub f1(n%)As IntegerC．Function f1%(f1%)D．Sub f1(ByValn%())
考题
下列子过程语句中正确的是 A.Sub f1(By Val()As Integer) B.Sub f1(n()As Integer)As Integer C.Function f1(f1 As Integer)As Integer D.Function f1(By Val f As Integer)
考题
（33）下列子过程语句的说明正确的是A.Sub f1(By Val x()As Integer) B.Sub f1(X%())As IntegerC.Function f1l%(f1%) D.Function f1%(x As Integer)
考题
（28）阅读下列程序： Private Sub Commandl_Click() Dim i As Integer,k As Integer k=2 For i=1 To 3 PrintH(K)； Next i End Sub Function H(j As Integer) Static b a=0 a=a+1 b=b+1 H=a*b+jEnd Function 单击命令按钮，执行程序，输出结果是A.2 3 4 B.3 4 5 C.5 6 7 D.3 5 6
考题
在窗体上画一个命令按钮，命名为Command1。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则F1返回1，否则返回0。能够正确实现上述功能的代码是 。A．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB．Private Sub Command1_Click() x=InputBox("请输入整数") a=F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 0 Else F1= 1 End If End FunctionC．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1= 1 Else F1= 0 End If End FunctionD．Private Sub Command1_Click() x=InputBox("请输入整数") F1（Val（x）） Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
考题
下面子过程说明合法的是( )。
A、Sub f1(ByVal n%())B、 Sub f1(%)As integerC、 Function f1%(f1%)D、 Function f1(ByVal n%)
考题
在窗体中添加一个名称为Command1的命令按钮，然后编写如下代码： 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 Dim b As Integer a=2 For i=1 To 3 b=F(A) Print b Next i End Sub 程序运行后，如果单击按钮，则在窗体上显示的内容是A．4 4 4B．4 5 6C．5 6 7D．5 5 5
考题
有如下程序： 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)； Next i End Sub 运行上面的程序，单击两次命令按钮，在窗体上输出结果为A．4 4 4B．4 5 6C．5 7 9D．11 13 15
考题
设有如下程序： Private Static Function Fac(n As Integer)As Integer Dim f As Integer f=f+n Fac=f End Function Private Sub Form_Click( ) Dim I As Integer For 1=2 To 3 Print"#"；I“=”Fac(1) Next I End Sub 程序运行后，单击窗体，在窗体上显示的是A．#2=2 #3=3B．#2=2 #3=5C．#；2=2 #；3=3D．#；2=2 #3；=5
考题
现有如下程序： Private Sub Command1_Click() s=0 For i=1 To 5 s=s+f(5+i) Next Print s End Sub Public Function f(x As Integer) If x＞=10 Then t=x+1 Else t=x+2 End If f=t End Function 运行程序，则窗体上显示的是( )。A．38B．49C．61D．70
考题
阅读下列程序： Private Sub Command1_Click( ) Dim i As Integer，k As Integer k=2 For i=1 To 3 Print H(k)； Next i End Sub Function H(j As Integer) a=0 Static b a=a+1 b=b+1 H=a*b+j End Function 程序运行后，单击命令按钮输出结果是A．234B．345C．567D．356
考题
在窗体上画一个命令按钮，命名为CommandI。程序运行后，如果单击命令按钮，则显示一个输入对话框，在该对话框中输入一个整数，并用这个整数作为实参调用函数过程 F1，在F1中判断所输入的整数是否是奇数，如果是奇数，过程F1返回1，否则返回0。 能够正确实现上述功能的代码是A．Privme Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End FunctionB．Private Sub Command1_Click() x=InputBox(“请输入整数”) a=F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=0 Else F1=1 End If End FunctionC．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1(Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then F1=1 Else F1=0 End If End FunctionD．Private Sub Command1_Click() x=InputBox(“请输入整数”) F1 (Val(x)) Print a End Sub Function F1(ByRef b As Integer) If b Mod 2=0 Then Return 0 Else Return 1 End If End Function
考题
阅读程序： 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) ； Next End Sub 运行上面的程序，单击命令按钮，输出结果为A．8 16B．9 18C．10 20D．7 14
考题
有如下一个函数过程： 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)； Next End Sub 运行该程序，单击命令按钮，输出结果是A．4 4 4B．4 5 6C．6 7 8D．4 7 9
考题
下面子过程语句说明合法的是A．Sub f1(s1 As String*8)B．Sub f1(n()As Integer)As IntegerC．Function f1(f1 As Integer)As IntegerD．Function f1(By Val n As Integer)
考题
下列子过程语句中正确的是( )。A．Sub f1(ByVal() As Integer)B．Sub f1(n() As Integer)As IntegerC．Function f1(f1 As Integer)As IntegerD．Function f1(ByVa1 f as Integer)
考题
在窗体中添加—个名称为Command1的命令按钮，然后编写如下代码： 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 Dim b As Integer a=2 For i=l To 3 b=F(A)Print b Next i End Sub 程序运行后，如果单击按钮，则在窗体上显示的内容是A．4 4 4B．4 5 6C．5 6 7D．5 5 5
考题
有如下一个函数过程:Function Fun(a As Integer)Static cb=0:b=b+1:c=c+1Fun=a+b+cEnd Function在窗体上添加一个命令按钮,事件过程如下:Private Sub Command1_Click()Dim a As Integera=2For i=1 To 3Print Fun(a);NextEnd Sub运行该程序,单击命令按钮,输出结果是A．4 4 4B．4 5 6C．6 7 8D．4 7 9
考题
阅读程序： 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 Print F(A)Next i End Sub 运行上面的程序，单击命令按钮，输出结果为 ______。A．4 4 4B．4 5 6C．4 6 8D．4 7 9
考题
阅读程序： Function Fun( a As Integer) Static c b=0:b=b+2:c=c+2 F=a*b*c End Function Private Sub Commandl _ Click( ) Dim a As Integer a=2 For i = 1 To 2 Print Fun (a); Next End Sub 运行上面的程序，单击命令按钮，输出结果为A．8 16B．9 18C．10 20D．7 14
考题
阅读程序：Function Fun(a As Integer)Static c，b=0:b=b+2:c=c+2F=a*b*cEnd FunctionPrivate Sub Command1_Click()Dim a As Integera=2For i=1 To 2Print Fun(A)；NextEnd Sub运行上面的程序，单击命令按钮，输出结果为A．8 16B．9 18C．10 20D．7 14
考题
下列子过程语句的说明正确的是( )。A．Sub f1(ByVal x()As Integer)B．Sub f1(x%())As IntegerC．Function f1%(f1%)D．Function f1%(x As Integer)
考题
阅读程序： 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) Next i End Sub运行上面的程序，单击命令拄钮，输出结果为______ 。A．4 4 4B．4 5 6C．4 6 8D．4 7 9
考题
阅读程序：Function fac(ByVal As Integer)As IntegerDim temp As Integertemp=1For i％=1 To ntemp=temp*i％Next i％fac=tempEnd FunctionPrivate Sub Form. Click（ ）Dim nsum As Integernsum=1For i％=2 T0 4nsum=nsum+fac(i％)Next i％Print nsumEnd Sub程序运行后，单击窗体，输出结果是（ ）。A.35B.31C.33D.37
考题
以下是子过程或函数过程定义中的开始语句，错误的为（）。A、Private Function f（ x As String ） As SingleB、Private Function f（ x As String ）C、Private Sub f（ x As String ） As SingleD、Private Sub f（ x As String ）
考题
单选题以下是子过程或函数过程定义中的开始语句，错误的为（）。A
Private Function f（ x As String ） As SingleB
Private Function f（ x As String ）C
Private Sub f（ x As String ） As SingleD
Private Sub f（ x As String ）
热门标签
最新试卷
