你可能感兴趣的试题

单项选择题
假定有如下事件过程：Private Sub Form_Click() Dim X As Integer,n As Integer x=2：n=0 Do While x＜28 x=x*3：n=n+1 loop Print x，nEnd Sub程序运行后，单击窗体，输出结果是
A．81 4
B．56 3
C．28 1
D．243 5
单项选择题
以下叙述中错误的是
A．标准模块文件的扩展名是．bas
B．标准模块文件是纯代码文件
C．在标准模块中声明的全局变量可以在整个工程中使用
D．在标准模块中不能定义过程
单项选择题
以下关于过程的叙述中，错误的是
A．在Sub过程中不能再定义Sub过程
B．事件过程也是Sub过程
C．过程调用语句的形参个数必须与实参个数相同
D．函数过程一定有返回值
单项选择题
设子程序过程定义的首部为：Public Sub S(X As Integer，Y As Single)则以下正确的调用形式为
A．Call S 5，4．8
B．CaU Sub(5，4．8)
C．Sub 5，4．8
D．S 5，4．8
单项选择题
在窗体上画两个标签和一个命令按钮，其名称分别为Label1、Label2和Command1，然后编写如下程序：Private Sub fune(L As Label) Private Sub Commandl_Click() L．Caption="1234" a=Val(Label2．Caption)End Sub Call func(Label1) Private Sub Form_Load() Label2．Caption=a Label 1．Caption="ABCDE" End Sub Label2．Caption=10End Sub 程序运行后，单击命令按钮，则在两个标签中显示的内容分别为
A．ABCD和10
B．1234和100
C．ABCD和100
D．1234和10
单项选择题
设有如下Commandl的单击事件过程及fun过程： Pfivate Sub Commandl_Click() Privme Sub fun(x As Integer) Dim x As Integer Ifx Mod 2=0 Then fun(x／2) x=Val(InputBox("请输入一个整数")) Print x； fun(x) End SubEnd Sub 执行上述程序，输入6，结果是
A．3 6
B．6 3
C．6
D．程序死循环
单项选择题
下面不能在信息框中输出“VB”的是
A．MsgBox"VB"
B．x=MsgBox("VB")
C．MsgBox("VB")
D．Call MsgBox"VB"
单项选择题
编写如下程序：Private Sub Command1_Click() Sub subf(s1 As String s2 As String) Dim str1 As String，str2 As String Dim temp As String str1InputBox("输入一个字符串") Static i As Integer i=i+1 subf str1，str2：Print str2 temp=Mid(s1，i，1)End Sub If temp＜＞""Then subf s1，s2 s2=s2&temp End Sub程序运行后，单击命令按钮Command1，且输入“abcdef”，则输出结果为
A．afbecd
B．cdbeaf
C．fedcba
D．adbecf
单项选择题
以下关于函数过程的叙述中，正确的是
A．函数过程形参的类型与函数返回值的类型没有关系
B．在函数过程中，过程的返回值可以有多个
C．当数组作为函数过程的参数时，既能以传值方式传递，也能以传址方式传递
D．如果不指明函数过程参数的类型，则该参数没有数据类型
单项选择题
在VB中，函数过程与子程序过程的区别之一是
A．函数过程必须有参数，而子程序过程可以没有
B．函数过程的参数传递只采用值传递，而子程序过程只采用地址传递
C．在程序中，子程序过程调用的代码可以写在表达式中，而函数过程不能
D．函数过程有返回值，而子程序过程没有
单项选择题
在窗体上画一个命令按钮(名称为Commandl)，并编写如下代码：Function Fun 1(ByVal a As Integer， Private Sub Commandl_Click() b As Integer)As Integer Dim x As Integer Dim t As Integer x=10 t=a－b：b=t+a：Fun1=t+b Print Fun1(Fun1(x，(Fun1(x，x－1)))，x－1)End Function End Sub程序运行后，单击命令按钮，输出结果是
A．10
B．0
C．11
D．21
单项选择题
有下面程序代码：Private Sub Commandl_Click() Dim aAs String a="COMPUTER"n=search(a，"T")：Print IIf(n=0，"未找到"，n) End Sub Private Function search(str As String，ch As String)As Integer For k=1 To Len(str) c=Mid(str，k，1) Ifc=ch Then search=k：Exit Function End If Next k search=0End Function程序运行后，单击命令按钮Commandl，输出结果是
A．0
B．8
C．6
D．未找到
单项选择题
现有如下程序：Private Sub Commandl_Click() Public Function f(x As Integer) s=0 If x＞=10 Then For i=1 To 5 t=x+1 s=s+f(5+i) ElseNext t=x+2Print s End IfEnd Sub f=t End Function运行程序，则窗体上显示的是
A．38
B．49
C．61
D．70
单项选择题
假定有以下通用过程：Function Fun(n As Integer)As Integer x=n*n：Fun=x－11End Function在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：Private Sub Commandl_Click()Dim i As IntegerFor i=1 To 2 y=Fun(i)Print y； Next iEnd Sub程序运行后，单击命令按钮，在窗体上显示的内容是
A．1 3
B．10 8
C．－10 －7
D．0 5
单项选择题
求1!+2!+……+10!的程序如下：Private Function s(x As Integer) Private Sub Commandl_Click() f=1 Dim i As Integer，y As Long For i=1 To x For i=1 To 10 f=f*i ( ) Next Next s=f Print yEnd Function End Sub为实现功能要求，程序的括号中应该填入的内容是
A．Call s(i)
B．Call s
C．y=y+s(i)
D．y=y+s
单项选择题
在窗体上画一个名称为Commandl的命令按钮，并编写如下程序：Function Fun(x) Private Sub Commandl_Click() y=0 n=InputBox("请输入一个数") Ifx＜10 Then n=Val(n) y=x P=Fun(n)：Print P Else End Sub y=y+10 End If Fun=yEnd Function运行程序，单击命令按钮，将显示输入对话框，如果在对话框中输入100，并单击“确定”按钮，则输出结果为
A．10
B．100
C．110
D．出错信息
单项选择题
设有如下事件过程：Private Sub Commandl_Click()Dim a Private Function fun(x，Y)As Integer a=Array(12，3，8，5，10，3，5，9，2，4) Do While x＞=y For k=1 To 9 x=x－y Print fun(a(k－1)，a(k))；""； Loop Next k fun=xEnd Sub End Function程序运行时的输出结果是
A．4 0 1 0 3 0 0 4 0
B．0 3 3 5 1 3 5 1 2
C．9-5 3-5 7-2-4 7-2
D．9 3 3 5 7 3 5 7 2
单项选择题
设有如下函数：Function DelSpace(ch As String)As IntegerDim n％，st＄，c＄st=""：n=0For k=1 To Len(ch) c=Mid(ch，k，1) Ifc＜＞""Then st=st&c Else n=n+1 End If Next k ch=st：DelSpace=nEnd Function该函数的功能是
A．统计并返回字符串ch中字符的个数
B．删除字符串ch中的空格符，返回删除字符的个数
C．统计并返回字符串ch中非空格字符数
D．删除字符串ch中除空格符外的其他字符，返回删除字符的个数
单项选择题
窗体上有一个名称为Commandl的命令按钮，其单击事件过程及相关的函数过程如下：Private Sub Commandl_Click() Private Function p(x As Integer)As Boolean Dim i As Integer Ifx Mod 7＜＞0 Then For i=1 To 500 p=True Ifp(i)Then s=s+1 Else Next p=False Print s End IfEnd Sub End Function关于上述程序，以下叙述中正确的是
A．程序功能是统计1-500范围内能被7整除的整数个数
B．Commandl Click事件过程中If语句的条件表达式不完整
C．Function过程定义有误，函数过程P的名称与该过程中的变量名P相同
D．函数过程P的返回值为Boolean类型
单项选择题
设有下面程序代码：Pfivme Sub Commandl_Click() Dim strAs String，ehAs String str="Visual Basic Programming"：ch="a" n=fun(ch，str)：Print str，n End Sub Private Function fun(ch As String，str As String)As Integer Dim strbufAs String，c As String，n As Integer For k=1 To Len(str) c=Mid＄(str，k，1) Ifc＜＞ch Then strbuf=strbuf&c Else strbuf=strbuf&UCase(c)：n=n+1 End If Next k str=strbuf：fun=nEnd Function程序运行时的输出是
A．Visual Basic Programming 0
B．VisuAl BAsic ProgrAmming 3
C．Visul Bsic Prograzming 3
D．VisualBasicProgramming 2
单项选择题
以下叙述中错误的是
A．在通用过程中，多个形式参数之间可以用逗号作为分隔符
B．在Print方法中，多个输出项之间可以用逗号作为分隔符
C．在Dim语句中，所定义的多个变量可以用逗号作为分隔符
D．当一行中有多个语句时，可以用逗号作为分隔符
单项选择题
以下关于过程及过程参数的描述中，错误的是
A．调用过程时可以用控件名称作为实际参数
B．用数组作为过程的参数时，使用的是“传地址”方式
C．只有函数过程能够将过程中处理的信息传回到调用的程序中
D．窗体(Form)可以作为过程的参数
单项选择题
下面是求最大公约数的函数的首部Function gcd(ByVal x As Integer，ByVal y As Integer)As Integer若要输出8、12、16这3个数的最大公约数，下面正确的语句是
A．Print gcd(8，12)，gcd(12，16)，gcd(16，8)
B．Print gcd(8，12，16)
C．Print gcd(8)，gcd(12)，gcd(16)
D．Print gcd(8，gcd(12，16))
单项选择题
为了通过传值方式来传送过程参数，在函数声明部分应使用的关键字为
A．Value
B．ByVal
C．ByRef
D．Reference
单项选择题
以下过程定义中正确的过程首行是
A．Private Sub Proc(Optional a as Integer，b as Integer)
B．Private Sub Proc(a as Integer)as Integer
C．Private Sub Proc(a()As Integer)
D．Private Sub Proc(ByVal a()As Integer)
单项选择题
某人编写了下面的程序Pfivate Sub Commandl_Click() Private Sub pro(n As Integer) Dim a As Integer，b As Integer While(n＞0) a=InputBox("请输入整数") Print n Mod 10；n=n＼10 b=InputBox("请输入整数") Wend pro a：pro b Print Call pro(a+b) End SubEnd Sub此程序功能是：输入2个正整数，反序输出这2个数的每一位数字，再反序输出这2个数之和的每一位数字。例如：若输入123和234，则应该输出：3 2 1 4 3 2 7 5 3但调试时发现只输出了前2行(即2个数的反序)，而未输出第3行(即2个数之和的反序)，程序需要修改。下面的修改方案中正确的是
A．把过程pro的形式参数n As Integer改为ByVal n As Integer
B．把Call pro(a+b)改为pro a+b
C．把n=n＼10改为n=n／10
D．在pro b语句之后增加语句c％=a+b，再把Call pro(a+b)改为pro c
单项选择题
有下面程序代码：Pfivate Sub Commandl_Click() Private Sub proc(ByVal a As Integer) Dim x As Integer，s As Integer Static x As Integer x=1 x=x+1：a=a+x For k=1 To 3 End Sub x=x+1：proc x：s=s+x Next k Print sEnd Sub程序运行后，单击命令按钮Commandl，输出结果是
A．6
B．9
C．15
D．19
单项选择题
编写如下程序：Pfivate Sub Commandl_Cliek()Dim x As Integer x=10 Print funl(x，12)+xEnd Sub Private Function fun1(m As Integer，n As Integer)As Integer Ifn＞10 Then m=n fun1=m+nEnd Function程序运行后，单击命令按钮Commandl，输出结果为
A．30
B．32
C．34
D．36
单项选择题
在窗体上画一个名称为Commandl的命令按钮，再画两个名称分别为Label1、Label2的标签，然后编写如下程序代码：Private X As IntegerPrivate Sub Commandl_Click() Private Sub proc(a As Integer， X=5：Y：3 ByVal b As Integer) Call proc(X，Y、) X：a*a：Y=b+b Label1．Caption=X End Sub Label2．Caption=YEnd Sub程序运行后，单击命令按钮，则两个标签中显示的内容分别是
A．25和3
B．5和3
C．25和6
D．5和6
单项选择题
设有如下通用过程：Public Function f(x As Integer) Dim y As Integer x：20：y=2：f=x*yEnd Function在窗体上画一个命令按钮，其名称为Commandl，然后编写如下事件过程：Private Sub Commandl_Click() Static x As Integer x=10：y=5：y=f(x)Print x；yEnd Sub程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A．10 5
B．20 40
C．20 5
D．10 40
单项选择题
命任何一个滚动条滚动框件过程如下：Private Sub Commandl_Click() Private Function f(y As Integer) x=10 Print f(x) f=y*yEnd Sub End Function运行上述程序，如下叙述中正确的是：
A．程序运行出错，x变量的类型与函数参数的类型不符
B．在窗体上显示100
C．函数定义错，函数名f不能又作为变量名
D．在窗体上显示10
单项选择题
编写如下程序：Private Sub Commandl_Click() Dim x As Integer, y As Integer x=InputBox("输入第一个数")：y=InputBox("输入第二个数") Call f(x，y) Print x，y End Sub Sub f(a As Integer，ByVal b As Integer) a=a*：x=a+b：b=b+100 End Sub程序运行后，单击命令按钮Commandl，并输入数值10和15，则输出结果为
A．10 1 15
B．20 11 5
C．35 15
D．20 15
单项选择题
现有程序如下：Option Base 1Private Sub Form_Click() Sub f(m As Integer，n As Integer， Dim x(5，6)As Integer，y(5)As Integer a()As Integer，b() As Integer) For i=1 To 5 For i=1 To m For j=1 To 6 b(i)=0 x(i，j)=Int(Rnd*9+1) For j=1 To n Nextj b(i)=b(i)+a(i，j) Next i Nextj Call f(5，6，x，y) Next i For i=l To 5 End Sub Print y(i)； Next iEnd Sub关于上述程序，以下叙述中正确的是
A．调用过程语句有错，参数不匹配
B．程序有错，数组下标越界
C．y数组中保存的是x数组每行数据之和
D．x数组中数据的取值范围是1．10
单项选择题
窗体上有一个名称为Commandl的命令按钮，一个名称为Text1的文本框。编写如下程序：Private Sub Commandl_Click() Private Function fun(ByRef n As Integer) Dim x As Integer If n MOd 3=0 Then x=Val(InputBox("输入数据")) n=n+n Text1=Str(x+fun(x)+fun(x)) ElseEnd Sub n=n*n End If fun=n End Function对于上述程序，以下叙述中错误的是
A．语句fun=n有错，因为n是整型，fun没有定义类型
B．运行程序，输入值为5时，文本框中显示655
C．运行程序，输入值为6时，文本框中显示42
D．ByRef表示参数按址传递
单项选择题
窗体上有一个名称为Commandl的命令按钮，并有如下程序代码：Private Sub Commandl_Click() Sub f(ByVal x，ByRef Y，z) Static a x=x+1：y=y+1：z=z+1 a=1：b=2：c=3 End Sub Call f(a，b，c) Print a；b；cEnd Sub 运行程序，单击命令按钮，窗体上显示的是
A．1 3 3
B．1 3 4
C．2 3 3
D．2 3 4
单项选择题
窗体上有一个名称为Commandl的命令按钮，其单击事件过程如下：Private Sub Commandl_Click() Dim x As Integer，y As Integer Static z As Integer x=3：y=5：z=y Call f(x，y，z) Print x；y；z End SubPrivate Sub f(ByVal a As Integer,ByRef b As Integer,c As Integer) a=a+a：b=b+b：c=c+cEnd Sub运行程序，单击命令按钮时，3个标签中显示的内容分别是
A．3 5 5
B．3 5 10
C．3 10 5
D．3 10 10
单项选择题
窗体上有一个名称为Commandl的命令按钮，其单击事件过程及相关的代码如下：Private Sub Commandl_Click() Dim x As Integer，y As Integer x=Val(InputBox("输入整数")) y=Val(InputBox("输入整数")) Print Str(fun(x，y)+x+y) End SubPrivate Function fun(ByRef m As Integer,ByVal n As Integer) m=m*m：n=n+n：fun=m+nEnd Function运行程序，单击命令按钮时，出现输入对话框，分别输入3、5，则窗体上显示的是
A．27
B．28
C．33
D．38
单项选择题
设有如下程序：Private Sub Inv(ByVal xStr As String，As String) Dim tStr As String Dim L AS Integer L=Len(xStr) Do While L＞=1 tStr=tStr+Mid(xStr，L，1)：L=L－1 Loop yStr=tStr End Sub Private Sub Form_Click() Dim S1 As String，S2 As String S1="abcdef"Inv S1，S2 Print S2End Sub运行程序，单击窗体，输出结果为
A．abcdef
B．afbecd
C．fedcba
D．defabc
单项选择题
设有如下程序： Private Sub sV(ByVal m As Integer，n As Integer) m=m*2：n=n－5：Print m；nEnd SubPrivate Sub Form_Click() Dim x As Intege，y As Integer x=10：y=15：sV x，y Print x；yEnd Sub 运行程序，单击窗体，输出结果为
A．20 10 10 10
B．10 15 20 10
C．20 15 10 15
D．20 10 20 10
单项选择题
由高中数学可知，对于连续函数f(x)，若f(x1)与f(x2)值的符号相反，则在x1和x2之间必存在x0，使得f(x0)=0(该点称为“零点”)。设有VB函数：Private Function f(x As Single) As Single可以返回f(x)的值(函数体没有给出)。下面程序的功能是从键盘输入2个实数x1、x2，判断在x1、x2之间是否存在零点。Private Sub Commandl_Click() Dim x1 As Single，x2 As Single x1=InputBox("请输入一个实数x1“) x2=InputBox("请再输入一个实数x2””)If(_________)Then Print"在"；x1；"与"；x2；"之间存在零点" Else Print"不能确定在"；x1；"与"；x2；"之间是否存在零点" End If End Sub Private Function f(x As Single)As Single …… End Function为使上面程序可以实现该功能，程序代码中横线处应填写的代码是
A．f(x1)＞0 Or f(x2)＜0
B．f(x1)＜0 And f(x2)＜0
C．f(x1)*f(x2)＜0
D．f(x1).f(x2)＞0
单项选择题
编写如下程序：Private Sub Commandl_Click() Private Function fun1(ByVal m As Integer， Dim x As Integer,y As Integer n As Integer)As Integer x=10：y=20 m=m*m：n=n+n Call funl(x，y) End Function Print x；yEnd Sub程序运行后，单击命令按钮Com_mandl，输出结果为
A．10 25
B．10 40
C．100 25
D．100 40
单项选择题
设有以下过程：Private Sub proc(x As Integer,Optional Y As Integer) Print x，yEnd Sub 针对此过程，下面正确的过程调用语句是
A．Call proc(a!，23)
B．Call proc x％，12
C．proc b％
D．x=proc(12)
单项选择题
以下关于过程及过程参数的描述中，错误的是
A．过程的参数可以是控件名称
B．调用过程时使用的实参的个数应与过程形参的个数相同(假定不含可变参数)
C．只有函数过程能够将过程中处理的信息返回到调用程序中
D．窗体可以作为过程的参数

首页

题库

网课

在线模考

你可能感兴趣的试题

假定有如下事件过程：Private Sub Form_Click() Dim X As Integer,n As Integer x=2：n=0 Do While x＜28 x=x*3：n=n+1 loop Print x，nEnd Sub程序运行后，单击窗体，输出结果是

以下叙述中错误的是

以下关于过程的叙述中，错误的是

设子程序过程定义的首部为：Public Sub S(X As Integer，Y As Single)则以下正确的调用形式为

设有如下Commandl的单击事件过程及fun过程： Pfivate Sub Commandl_Click() Privme Sub fun(x As Integer) Dim x As Integer Ifx Mod 2=0 Then fun(x／2) x=Val(InputBox("请输入一个整数")) Print x； fun(x) End SubEnd Sub 执行上述程序，输入6，结果是

下面不能在信息框中输出“VB”的是

以下关于函数过程的叙述中，正确的是

在VB中，函数过程与子程序过程的区别之一是

现有如下程序：Private Sub Commandl_Click() Public Function f(x As Integer) s=0 If x＞=10 Then For i=1 To 5 t=x+1 s=s+f(5+i) ElseNext t=x+2Print s End IfEnd Sub f=t End Function运行程序，则窗体上显示的是

求1!+2!+……+10!的程序如下：Private Function s(x As Integer) Private Sub Commandl_Click() f=1 Dim i As Integer，y As Long For i=1 To x For i=1 To 10 f=f*i ( ) Next Next s=f Print yEnd Function End Sub为实现功能要求，程序的括号中应该填入的内容是

设有如下事件过程：Private Sub Commandl_Click()Dim a Private Function fun(x，Y)As Integer a=Array(12，3，8，5，10，3，5，9，2，4) Do While x＞=y For k=1 To 9 x=x－y Print fun(a(k－1)，a(k))；""； Loop Next k fun=xEnd Sub End Function程序运行时的输出结果是

设有如下函数：Function DelSpace(ch As String)As IntegerDim n％，st＄，c＄st=""：n=0For k=1 To Len(ch) c=Mid(ch，k，1) Ifc＜＞""Then st=st&c Else n=n+1 End If Next k ch=st：DelSpace=nEnd Function该函数的功能是

以下叙述中错误的是

以下关于过程及过程参数的描述中，错误的是

下面是求最大公约数的函数的首部Function gcd(ByVal x As Integer，ByVal y As Integer)As Integer若要输出8、12、16这3个数的最大公约数，下面正确的语句是

为了通过传值方式来传送过程参数，在函数声明部分应使用的关键字为

以下过程定义中正确的过程首行是

有下面程序代码：Pfivate Sub Commandl_Click() Private Sub proc(ByVal a As Integer) Dim x As Integer，s As Integer Static x As Integer x=1 x=x+1：a=a+x For k=1 To 3 End Sub x=x+1：proc x：s=s+x Next k Print sEnd Sub程序运行后，单击命令按钮Commandl，输出结果是

编写如下程序：Pfivate Sub Commandl_Cliek()Dim x As Integer x=10 Print funl(x，12)+xEnd Sub Private Function fun1(m As Integer，n As Integer)As Integer Ifn＞10 Then m=n fun1=m+nEnd Function程序运行后，单击命令按钮Commandl，输出结果为

命任何一个滚动条滚动框件过程如下：Private Sub Commandl_Click() Private Function f(y As Integer) x=10 Print f(x) f=y*yEnd Sub End Function运行上述程序，如下叙述中正确的是：

窗体上有一个名称为Commandl的命令按钮，并有如下程序代码：Private Sub Commandl_Click() Sub f(ByVal x，ByRef Y，z) Static a x=x+1：y=y+1：z=z+1 a=1：b=2：c=3 End Sub Call f(a，b，c) Print a；b；cEnd Sub 运行程序，单击命令按钮，窗体上显示的是

设有如下程序： Private Sub sV(ByVal m As Integer，n As Integer) m=m*2：n=n－5：Print m；nEnd SubPrivate Sub Form_Click() Dim x As Intege，y As Integer x=10：y=15：sV x，y Print x；yEnd Sub 运行程序，单击窗体，输出结果为

编写如下程序：Private Sub Commandl_Click() Private Function fun1(ByVal m As Integer， Dim x As Integer,y As Integer n As Integer)As Integer x=10：y=20 m=m*m：n=n+n Call funl(x，y) End Function Print x；yEnd Sub程序运行后，单击命令按钮Com_mandl，输出结果为

设有以下过程：Private Sub proc(x As Integer,Optional Y As Integer) Print x，yEnd Sub 针对此过程，下面正确的过程调用语句是

以下关于过程及过程参数的描述中，错误的是