VB选择题
单项选择 VisualBasic是用于开发_____环境下的应用程序的工具。
A、UNIX B、Windows C、DOS D、DOS和Windows 答案：
B VisualBasic程序设计时常用的Print、Cls属于_____。
A、方法 B、事件 C、打印字库 D、属性 答案：
A 对象在响应某个事件时，计算机要执行一段程序，以完成相应的操作，这样的程序片段叫做_____过程。
A、调动 B、事件 C、方法 D、编译 答案：
B 以下关于方法的叙述中，错误的_____。
A、方法是一种特殊的过程或函数 B、方法是构成对象实体的一个部分 C、调用方法的一般格式是：对象名称．方法名称［参数］ D、在调用方法时，对象名称是不可缺少的 答案：
D 一只白色的足球踢进球门，则白色、足球、踢、进球门是________。
A、对象、属性、方法、事件 B、属性、对象、方法、事件 C、对象、属性、事件、方法 D、属性、对象、事件、方法 答案：
D 在窗体中有一个命令按钮，该命令按钮的Click事件过程中有以下语句：
Command1.Caption = "OK";若本语句执行前，命令按钮的Caption属性取缺省值，则该命令按钮的名称属性和Caption属性在执行 本语句前的取值分别为_____。
A、Caption、Command1
B、Command1、Command1 C、Command1、Caption D、Command1、OK 答案：
B 任何控件都具有_____属性。
A、Name B、Text C、Caption D、ForeColor 答案：
A 当对象失去焦点时，将会发生_____事件。
A、LostFocus B、Focus C、SetFocus D、GetFocus 答案：
A 窗体Form1的名称属性是frm，它的Load事件过程名是_____。
A、frm_Load B、Me_CmdOK C、Form-Load D、Form_Load 答案：
D 引用列表框(List1)最后一个数据项应使用_____。
A、List1.List(List1.ListCount)B、List1.Lis(ListCount)C、List1.List(ListCount-1)D、List1.List(List1.ListCount-1)答案：
D 有变量定义语句Dim a, b As integer, 变量a的类型和初值是________。
A、String,""B、Integer,0 C、Long,0,0 D、Variant,空值 答案：
D
下面正确的赋值语句是____________。
A、x+y=30 B、3y=x C、y=π*r*r D、y=x+30 答案：
D 语句x=x+1的正确含义是__________.A、将变量X的值存在X+1中去 B、将变量X的值加1后赋给变量X C、变量X的值与X+1的值相等 D、变量X的值为1 答案：
B VisualBasic认为下面___________组变量是同一个变量。
A、A1 和A_1 B、A1和a1 C、Sum 和Summary D、Aver 和 Average 答案：
B 在程序中将变量Inta、Bl、St、D分别定义为Integer类型、Boolean类型、String类型和Date类型，下列赋值语句中，正确的是______。
A、Bl=#True# B、D=#10/05/01# C、Inta= "333"+ "22"D、St=5+ "abc"答案：
B 语句Print “Int(-13.2)=”;Int(-13.2)的输出结果为__________.A、Int(-13.2)=13.2 B、Int(-13.2)=-14 C、Int(-13.2)=-13.2 D、Int(-13.2)=-13 答案：
B 赋值语句：a=123+MID("123456",3,2)执行后，a变量中的值是____________。
A、123 B、"12334"C、157
D、12334 答案：
C 以下说法不正确的是____________。
A、Val()函数用来把自变量字符串转换为数值 B、Log()函数产生一个0-1之间的单精度浮点数 C、Chr＄()函数的作用是把自变量表达式的值转换为相应的ASCII码 D、Rnd()函数产生一个0-1之间的单精度浮点数 答案：
C 以下不合法的常量是_____________.A、10^2 B、100 C、10E+01 D、100.0 答案：
A 下列叙述不正确的是___________.A、代码中加入注释语句的目的的提高程序的可读性 B、注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译 C、注释语句可以放在代码中的任何位置 D、注释语句不能放在续行符的后面 答案：
C 有如下程序：
Private Sub Command1_Click()score=65 select Case score Case Is<60 a$="F"Case 60 To 69 a$="D"Case 70 To 79 a$="C"Case 80 To 89 a$="B"Case else a$="A"End Select MsgBox a$ End Sub 程序运行后，消息对话框中显示的内容为_____。
A、D
B、B C、A D、C 答案：
A 在窗体Form1上，有一个列表框控件List1，在窗体的Click事件中有如下代码: Private Sub Form_Click()Dim k As Integer Dim entry As String, item As String entry = "EDCBA"For k = Len(entry)To 1 Step-1 item = LCase(Mid(entry, k, 1))&k List1.AddItem item Next k End Sub 运行此程序，单击窗体,列表框第4行为_____。
A、d2 B、b2 C、b4 D、d3 答案：
A 设有如下语句：
strl=InputBox("输入","","练习")从键盘上输入字符串"示例"后，strl的值是_____。
A、“练习” B、“示例” C、“输入” D、“” 答案：
B 设a为Integer型变量，s为Single型变量，把3.75赋值给s后，再执行下列某一语句，则在文本框中显示 的结果与执行语句a=s:Text1=a的结果相同的有_____个。
①a=Int(s):Text1=a ②a=Fix(s):Text1=a ③a=CInt(s):Text1=a ④a=Format(s,"#####"):Text1=a A、4 B、1 C、2 D、3 答案：
C
以下_____程序段可以实施X，Y变量值的变换.A、Y=X:X=Y B、Z=X:X=Y:Y=Z C、Z=X:Y=Z:X=Y D、Z=X:W=Y:Y=Z:X=Y 答案：
B 当Form1_Click事件发生时，程序的输出结果是_____。
Private Sub Form_Click()Dim M As Integer,k As Integer,t As Integer M=5 : k=7 Select Case M case 1 To 10 t=M: M=k: k=t Case Else M=k Mod 3 End Select Print M, k, t End Sub A、7 5 5 B、7 5 7 C、5 7 5 D、5 5 7 答案：
A 下列程序：
Private Sub Form_Click()For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub 运行后输出的结果是_____。
A、15 B、1 C、90 D、120 答案：
A 假定时钟控件的Interval属性为1000，Enabled属性为True，并且有下面的事件过程，则1秒钟的时候 窗体上将输出_____个字母"a"。
Private Sub Timer1_Timer()For i = 1 To 10 Print "a"
Next i End Sub A、10次 B、10000次 C、以上都不对 D、1 000次 答案：
A 下列程序的输出结果是_____。
Dim y As Integer y=10 Do While y<>0 y=y-1 Loop Print "y=";y A、y=-1 B、y=0 C、y=随机值 D、y=1 答案：
B 下面程序的内层循环次数是_____。
For i=1 TO 3 For j=1 TO i For k=j TO 3...Next k Next j Next i A、3 B、14 C、9 D、21 答案：
B 在窗体上画一个命令按钮名为Command1，然后编写如下事件过程: Option Base 0 Private Sub Command1_Click()Dim city As Variant city = Array("Beijing", "Shanghai", "NewYork", "London")Print city(4)End Sub 程序运行后，屏幕显示________ A、出错 B、空白 C、London
D、Beijing Shanghai NewYork London 答案：
A 如下二维数组声明语句，________正确。
A、Dim a(34)As Integer B、Dim a(n，n)As Integer C、Dim a(3，4)As Integer D、Dim a[3，4] As Integer 答案：
C 用"冒泡"法将数组a中的10个整数按升序排列。所谓"冒泡"法就是从第一个数依次比较相邻数，若不符合排序要求则互换值，直到最后一个数；然后再开始第二轮的比较，至所有数全部比较结束。排序过程中大数后退，小数前行，犹如水泡往上冒。请完善以下程序段________。
For i= 1 to 9 For j= 1 to 10-i If ____________ Then ……"互换语句 End If Next j Next i A、a(i)
B 下列程序段的执行结果是________。
Dim A(3,3)For M=1 TO 3 For N=1 TO 3 If N=M Or N=3-M+1 Then A(M,N)=1 Else A(M,N)=0 End If Next N Next M For M=1 TO 3 For N=1 TO 3 Print A(M,N);Next N Print Next M A、0 0 0 0 0 0 0 0 0
B、1 1 1 1 1 1 1 1 1 C、1 0 0 0 1 0 0 0 1 D、1 0 1 0 1 0 1 0 1 答案：
D 下列程序的输出结果是____________。
Dim i As Integer, k As Integer Dim a(10)As Integer, p(3)As Integer k = 5 For i = 0 To 9 a(i)= i Next i For i = 0 To 2 p(i)= a(i *(i + 1))Next i For i = 0 To 2 k = k + p(i)* 2 Next I Print k A、23 B、21 C、22 D、17 答案：
B 以下程序输出的结果是____________。
Dim a a=Array(1,2,3,4,5,6,7)For i=Lbound(a)To Ubound(a)a(i)= a(i)*a(i)Next i Print a(i)A、49 B、程序出错 C、不确定 D、0 答案：
B
下面关于动态数组的叙述中，不正确的是__________。
A、用ReDim语句重新定义动态数组时，不能改变数组的数据类型，除非是Variant变量所包含的数组 B、用ReDim Preserve重新定义的动态数组，当前存储在数组中的值全部丢失，重新定义的数组被赋予该类型变量的初始值 C、用数组说明语句定义一个不指明大小的数组，VB就将它视为一个动态数组 D、在重新定义动态数组时，变量不可以出现在维界表达式中 答案：
B 下列程序段的输出结果是____________。
Dim i As Integer Dim a(8)As Integer y = 18: i = 0 Do a(i)= y Mod 2 i = i + 1 y = y 2 Loop Until y <1 For j = i-1 To 0 Step-1 Print a(j);Next j A、1 0 0 1 0 B、0 0 1 1 0 C、1 0 1 0 0 D、1 0 0 0 0 答案：
A 以下有关数组的说明中，错误的是________。
A、在过程中，不能用Private语句定义数组。
B、数组重新定维后，原有的数组元素内容将不予保留。
C、利用ReDim语句重新定维时，不得改变已经说明过的数组的数据类型。
D、根据数组说明的方式，可将数组分为动态数组和静态数组。
答案：
B 当发生Command1_Click事件后，程序结果是_______。
Option Base 1 Private Sub Command1_Click()Dim a(4, 4)As Integer, i As Integer, s As Integer s=0 For i=1 To 4 For j=1 To 4 a(i, j)=(i-1)*4+j*2 Next j Next i For i = 1 To 4 s=s+a(i, i)Next i
Print s End Sub A、44 B、32 C、28 D、30 答案：
A 在应用程序中用"PrivateFunctionFun(X As Integer,Y As Single)"定义了函数Fun。调用函数Fun的过程中的变量I、J均定义为Integer型，能正确引用函数Fun的是______.①Fun(I,J)②Call Fun(I,3.65)③Fun(3.14,234)④Fun("245","231.5")A、①,②,③,④ B、①,②,③ C、②,③,④ D、①,③ 答案：
C 一般来说，当变量名称相同而作用域不同时，局限性_____________的变量总会用"阴影"遮住局限性不太大的变量。
A、大 B、更小 C、比较小 D、小 答案：
A 在窗体模块的通用声明处用下面的语句声明变量、数组，正确语句有________个。
①Public A(5)As Integer ②Public N As Integer ③Public St As String ④Private b()As Integer A、4 B、3 C、2 D、1 答案：
B 在调用Sub过程或Function过程时，采用________________传送相应过程的变量名、数组名、常数或表达式。
A、形式参数 B、对象参数 C、实际参数 D、数组参数 答案：
C
在窗体上添加一个命令按钮，名为Command1，事件过程如下。执行结果是________。
Sub pb(b()As Integer)For i=1 To 4 B(i)=2*i Next i End Sub Private Sub Command1_Click()Dim a(1 To 4)As Integer a(1)=5:a(2)=6: a(3)=7:a(4)=8 pb a For i=1 To 4 Print a(i);Next i End Sub A、3 6 6 12 B、1 3 5 7 C、4 8 12 16 D、2 4 6 8 答案：
D 下面的过程定义语句中合法的是________________________。
A、Sub Procl(ByVal n())B、Function Procl(ByVal n)C、Function Procl(Procl)D、Sub Procl(n)As Integer 答案：
A 以下有关变量作用域的说明中，错误的是_______。
A、只有在标准模块中用Public语句说明的变量才是全局变量。
B、在标准模块的通用声明处可用Private语句说明模块级变量。
C、在窗体的通用声明处可用Private语句说明窗体级变量。
D、在过程中不能使用Public语句说明全局变量。
答案：
A 在Cmdl_C1ick事件中有效的地址传递的调用语句是________。
Public Sub Fl(n%)n =3*n+4 End Sub Private Sub Cmdl_Click()Dim n%, m% n=3 :m=4 …"调用F1语句 End Sub A、F1 m+5 B、F1 m
C、F1 n+m D、F1 5 答案：
B 如果在被调用过程中改变了形参值，只影响副本，而不会影响实参的变量本身，这种参数传递方式称为___________传递。
A、按地址 B、ByRef C、按值 D、按形参 答案：
C 窗体的Name属性为Frm1，在窗体模块通用声明处和过程Sub1中分别用Public K As Integer,Dim K As Integer声明了两个同名变量K，则在过程Sub1中要访问全局变量K，可采用 ________。
A、Frm1.K B、Form1.K C、Form.K D、K 答案：
A 以下有关对象属性的说法中正确的是_____。
A、对象的某些属性即可在属性窗口设置，也可以通过属性代码设置或改变。
B、不同对象不可能有同名属性 C、对象所有的属性都罗列在属性窗口列表 D、不同对象的同名属性取值一定相同 答案：
A _____在用户的应用程序执行期间发生，比如鼠标单击或敲击键盘。
A、事件 B、工程 C、属性 D、方法 答案：
A VisualBasic是一种面向_____的程序设计语言。
A、过程 B、用户 C、工程 D、对象 答案：
D
能被对象所识别的动作与可执行的活动分别称为对象的_____。
A、方法、事件 B、过程、方法 C、事件、方法 D、事件、属性 答案：
C VB的使用目的是______。
A、制作WAV文件 B、开发Windows应用程序 C、文字处理 D、图像处理 答案：
B 任何控件都具有_____属性。
A、Name B、Text C、Caption D、ForeColor 答案：
A 使用_____方法，可以将列表框List1中的所有项删除掉。
A、AddItem B、RemoveItem C、List1.Txt=""D、Clear 答案：
D 在VisualBasic中最基本的对象是_____，它是应用程序基石，也是其它控件的容器。
A、窗体 B、文本框 C、命令按钮 D、标签 答案：
A 在多窗体的应用程序中，当前窗体模块的Form_Click事件过程中包含如下语句，单击该窗体，其中_____ 一定可以将Hello显示在当前窗体上。
A、Form2.Print "Hello"B、Me.Print "Hello"C、Form1.Print "Hello"D、Debug.Print "Hello"
答案：
B 如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的CmdOK_Click（）事件，则命令按钮控件的名称属性和Caption属性分别为_____。
A、OK,CmdOK B、CmdOK,OK C、Cmd,OK D、OK,Cmd 答案：
B 执行语句 Print Format(1234.567,“##,##0.00”)后，输出结果是____________。
A、1,234.57 B、1,234.56 C、1，234.567 D、1234.57 答案：
A 表达式X+1>X是_____________.A、字符串表达式 B、非法表达式 C、算术表达式 D、关系表达式 答案：
D 函数Cint(-3.5)，Int(-3.5)，Fix(-3.5)的值分别是________。
A、-3，-4，-3 B、-4，-4，-3 C、-3，-4，-4 D、-4，-3，-3 答案：
B x+y小于10且x-y大于0的逻辑表达式是________。
A、x+y <10 And x-y>0 B、x+y <10.And.x-y >0 C、(x+y)<10 :(x-y)>0 D、x+y <10 Or x-y>0 答案：
A 下面____________是合法的变量名。
A、X-Y B、X_yz C、integer D、123abc 答案：
B 日期类型（Date）在程序中运用时，日期类型必须用______符号括起来。
A、＄ B、% C、# D、@ 答案：
C 在一个语句行内写多条语句时，语句之间应该用___________分隔。
A、逗号 B、顿号 C、分号 D、冒号 答案：
D 语句Print "5*20"输出的结果是________。
A、"5*20"B、5*20 C、出现错误信息 D、100 答案：
B 语句x=x+1的正确含义是__________.A、将变量X的值存在X+1中去 B、将变量X的值加1后赋给变量X C、变量X的值与X+1的值相等 D、变量X的值为1 答案：
B 在程序中将变量Inta、Bl、St、D分别定义为Integer类型、Boolean类型、String类型和Date类型，下列赋值语句中，正确的是______。
A、Bl=#True# B、D=#10/05/01# C、Inta= "333"+ "22"D、St=5+ "abc"答案：
B
执行了下面的程序后，列表框中的数据项有_____。
Sub Form_Click()For i = 1 To 6 List1.AddItem i Next i For i = 1 To 3 List1.RemoveItem i Next i End Sub A、2 4 6 B、1 3 5 C、1 5 6 D、4 5 6 答案：
B VB也提供了结构化程序设计的三种基本结构，这三种基本结构是_____。
A、递归结构、选择结构、循环结构 B、选择结构、循环结构、顺序结构 C、过程结构、输入输出结构、转向结构 D、选择结构、过程结构、顺序结构 答案：
B Dim y As Integer m = 1 Do While m <= 3 m = m + 1 Print m;Loop A、2 B、2 3 4 C、2 3 D、2 3 4 5 答案：
B 下列循环能正常结束循环的是_____。
A、i=5
Do i=i+1 Loop Until i<0 B、i=6 Do i=i-2 Loop Until i=1 C、i=1 Do i=i+2 Loop Until i=10 D、i=10 Do i=i+1 Loop Until i>0 答案：
D 下面程序的运行结果是_____。
Private Sub Command1 Click()x=1: y=1 For i=1 TO 3 x=x+y: y=y+x Next i Print x;y End Sub A、34 35 B、5 8 C、6 6 D、13 21 答案：
D 运行程序产生死循环时，按_____键可以终止程序的运行。
A、Ctrl +Z B、Ctrl+Break C、单击停止运行按钮 D、Ctrl+C 答案：
B 下面程序是一个求最大公约数的程序，执行程序后，m的值为_____ Dim m As Integer, n As Integer m=200 n=150 If n*m=0 Then Exit Sub If m Do r=m Mod n m=n n=r Loop While r<>0 Text3=m A、50 B、100 C、200 D、150 答案： A 执行以下语句后，a的值为_____。 Dim a As Integer a=1 Do Until a=100 a=a+2 Loop A、溢出 B、100 C、99 D、101 答案： A 下面程序段，显示的结果是_____。 Dim x x=Int(Rnd)+5 select Case x Case 5 print "优秀"Case 4 print "良好"Case 3 print "通过"Case Else print "不通过"End Select A、通过 B、不通过 C、良好 D、优秀 答案： D 在窗体中添加一个命令按钮，并编写如下程序代码： Private Sub Command1_Click() Dim y As Integer y = 0 Do While y<7 y=y+3 Loop MsgBox y End Sub 程序运行后，消息对话框中显示_____。 A、8 B、9 C、7 D、6 答案： B 下列语句中的语句可以用来正确地声明一个动态数组。 A、Dim A()As Integer B、Private A(n)As Integer C、Dim A(,)As Integer D、Dim A(1 to n)答案： A 以下程序输出的结果是____________。 Dim a a=Array(1,2,3,4,5,6,7)For i=Lbound(a)To Ubound(a)a(i)= a(i)*a(i)Next i Print a(i)A、49 B、程序出错 C、不确定 D、0 答案： B 用复制粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是________。 A、命令按钮的大小都相同 B、命令按钮的所有Caption属性都是Command1 C、命令按钮共享相同的事件过程 D、在代码中访问命令按钮只需使用名称Command1 答案： D 如下二维数组声明语句，________正确。 A、Dim a(34)As Integer B、Dim a(n，n)As Integer C、Dim a(3，4)As Integer D、Dim a[3，4] As Integer 答案： C Option Base 1 Private Sub Command1_Click()Dim a%(3, 3)For i = 1 To 3 For j = 1 To 3 If j >1 And i >1 Then a(i, j)= a(a(i-1, j-1), a(i, j-1))+ 1 Else a(i, j)= i * j End If Print a(i, j);"";Next j Print Next i End Sub A、1 2 3 2 4 6 3 6 9 B、1 2 3 1 2 3 1 2 3 C、1 1 1 2 2 2 3 3 3 D、1 2 3 2 3 1 3 2 3 答案： D 如下数组声明语句，则数组a包含元素的个数有____________。 Dim a(3 ,-2 to 2 , 5)A、75 B、13 C、60 D、120 答案： D 下列有关数组的说法中，不正确的是________。 A、语句Dim X(3.6+2)As Integer定义了一个维上界是6的一维的整型数组 B、形参数组的类型可以是定长符串类型 C、可以使用Erase语句释放所有数组所占据的存储储空间 D、在窗体模块中不可以定义全局数据组 答案： C 要分配存放如下方阵的数据，____________数组声明语句能实现(不能浪费空间)。每行三个元素，第一行为：1.1 2.2 3.3第二行为：4.4 5.5 6.6第三行为：7.7 8.8 9.9 A、Dim a(3，3)As Single B、Dim a(-1 To l，-5 To-3)As Single C、Dim a(-3 To-1，5 To 7)As Integer D、Dim a(9)As Single 答案： B 在窗体模块的通用声明处有如下语句，会产生错误的语句是___。 ①Const a as Integer=25 ②Public St As String * 8 ③ReDim B(3)As Integer ④Dim Const X As Integer=10 A、①③ B、②③④ C、①②③ D、①② 答案： B 用"冒泡"法将数组a中的10个整数按升序排列。所谓"冒泡"法就是从第一个数依次比较相邻数，若不符合排序要求则互换值，直到最后一个数；然后再开始第二轮的比较，至所有数全部比较结束。排序过程中大数后退，小数前行，犹如水泡往上冒。请完善以下程序段________。 n=1O For i= 1 to n-1 For j= 1 to n-i If ____________ Then ……"互换语句 End If Next j Next i A、a(i) B 在参数传递过程中，使用关键字________________来修饰参数，可以使之按值传递。 A、Value B、ByRef C、Reference D、ByVal 答案： D 下面的过程定义语句中合法的是_______。 A、Sub Procl(n)As Integer B、Function Procl(ByVal n)C、Function Procl(Procl)D、Sub Procl(ByVal n())答案： B Sub过程和Function过程最根本的区别是________________。 A、Sub过程的过程名不能返回值，而Function过程能通过过程名返回值 B、Function过程可以有参数，Sub过程不可以 C、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以 D、两种过程参数的传递方式不同 答案： A 调用由语句Private Sub Convert(Y As Integer)定义的Sub过程时，以下不是按值传递的语句是____________。 A、Convert(X)B、Call Convert(X*1)C、Call Convert((X))D、Convert X 答案： D 在窗体上画一个名称Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序： Private Sub Command1_Click()Dim x, y, z As Integer x = 5: y = 7: z = 0 Text1.Text = ""Call p1(x, y, z)Text1.Text = Str(z)End Sub Private Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer)c = a + b End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的内容是________。 A、12 B、没有显示 C、Str(z)D、0 答案： A 在应用程序中用"PrivateFunctionFun(X As Integer,Y As Single)"定义了函数Fun。调用函数Fun的过程中的变量I、J均定义为Integer型，能正确引用函数Fun的是______.①Fun(I,J)②Call Fun(I,3.65)③Fun(3.14,234)④Fun("245","231.5")A、①,②,③,④ B、①,②,③ C、②,③,④ D、①,③ 答案： C 执行以下程序，在窗体上显示的第二行内容是_________。 Private Sub Command1_Click()Dim x%, y% x = 10 y = 15 Call value(x, y)Print x;y End Sub Private Sub value(ByVal m%, n%)m = m * 2 n = n-5 Print m;n End Sub A、10 10 B、20 15 C、20 10 D、10 15 答案： A 要想在过程调用后返回两个结果，下面的过程定义语句合法的是_______。 A、Sub Procl(ByVal n , ByVal m)B、Sub Procl(ByVal n , m)C、Sub Procl(n , ByVal m)D、Sub Procl(n , m)答案： D 窗体的Name属性为Frm1，在窗体模块通用声明处和过程Sub1中分别用Public K As Integer,Dim K As Integer声明了两个同名变量K，则在过程Sub1中要访问全局变量K，可采用 ________。 A、Frm1.K B、Form1.K C、Form.K D、K 答案： A 设有下列程序代码，在单击命令按钮时的输出结果是________。 Sub SS(ByVal x, ByRef y, z) x=x+1 y=y+1 z=z+1 End Sub Private Sub Command1_Click()A=1: B=2 :C=3 Call SS(A,B,C)Print A,B,C End Sub A、2 2 4 B、1 2 3 C、1 3 3 D、1 3 4 答案： D 一只白色的足球踢进球门，则白色、足球、踢、进球门是________。 A、对象、属性、方法、事件 B、属性、对象、方法、事件 C、对象、属性、事件、方法 D、属性、对象、事件、方法 答案： D 保存新建的工程时，默认的路径是_____。 A、 B、Windows C、VB98 D、MyDocuments 答案： C 对象在响应某个事件时，计算机要执行一段程序，以完成相应的操作，这样的程序片段叫做_____过程。 A、调动 B、事件 C、方法 D、编译 答案： B VisualBasic是一种面向_____的程序设计语言。 A、过程 B、用户 C、工程 D、对象 答案： D 任何控件都具有_____属性。 A、Name B、Text C、Caption D、ForeColor 答案： A 当文本框的ScrollBars属性设置了非零值，却没有效果，原因可能是_____。 A、文本框的MultiLine属性为False B、文本框中没有内容 C、文本框的MultiLine属性为True D、文本框的Locked属性为True 答案： A 对于一个含有计时器控件的窗体，每经过一段由_____属性指定的时间间隔，就会产生一个Timer事件。 A、Interval B、Enabled C、Name D、Caption 答案： A 应用程序窗体的名称属性为Frm1，窗体上有一个命令按钮，其名称属性为Cmd1，窗体和命令按钮的 Click事件过程名分别为_____。 A、Frm1_Click()Cmd1_Click()B、Form_Click()Command1_Click()C、Frm1_Click()Command1_Click()D、Form_Click()Cmd1_Click()答案： D 使用_____方法，可以将列表框List1中的所有项删除掉。 A、AddItem B、RemoveItem C、List1.Txt=""D、Clear 答案： D 下列不正确的变量名是________。 A、Arry@ B、Text C、Command D、Form 答案： A 下列程序的执行结果是____________。 x=-6^2 Print Sgn(x)+Abs(x)+Int(x)A、0 B、-1 C、-72 D、-36 答案： B x+y小于10且x-y大于0的逻辑表达式是________。 A、x+y <10 And x-y>0 B、x+y <10.And.x-y >0 C、(x+y)<10 :(x-y)>0 D、x+y <10 Or x-y>0 答案： A 函数Int(Rnd*11)+10的值的范围是____________。 A、[0，20] B、[10，10] C、[10，11] D、[10，20] 答案： D 在程序中分别将变量Inta、Bl、St、D定义为整型、布尔型、字符串型和日期型，下列赋值语句在执行 时会出错的是________。 A、Bl=#True# B、Inta=4.6 C、D=#10/05/01# D、St=5 &123.5 答案： A 求解超越方程的根、求定积分、解微方程属于_____算法。 A、网络管理 B、非数值计算 C、通信 D、数值计算 答案： D 用Msgbox "你好", vbokonly, "Hello"显示的消息对话框窗口的标题是_____。 A、你好 B、vbokonly C、Hello D、Ok 答案： C 下面程序段运行后，显示的结果是_____。 Dim x If x Then Print x Else Print x +1 A、-1 B、0 C、1 D、显示出错信息 答案： C 执行了下面的程序后，列表框中的数据项有_____。 Sub Form_Click()For i = 1 To 6 List1.AddItem i Next i For i = 1 To 3 List1.RemoveItem i Next i End Sub A、2 4 6 B、1 3 5 C、1 5 6 D、4 5 6 答案： B 假定时钟控件的Interval属性为1000，Enabled属性为True，并且有下面的事件过程，则1秒钟的时候 窗体上将输出_____个字母"a"。 Private Sub Timer1_Timer()For i = 1 To 10 Print "a"Next i End Sub A、10次 B、10000次 C、以上都不对 D、1 000次 答案： A 下面程序是一个求最大公约数的程序，执行程序后，m的值为_____ Dim m As Integer, n As Integer m=200 n=150 If n*m=0 Then Exit Sub If m A 在文本框Text1中输入数字12，Text2中输入数字34，执行以下语句，只有_____。可使文本框Text3中显示46。 A、Text3.Text=Val(Text1.Text)&Val(Text2.Text)B、Text3.Text=Text1.Text &Text2.Text C、Text3.Text=Val(Text1.Text)+Val(Text2.Text)D、Text3.Text=Text1.Text+Text2.Text 答案： C 如下数组声明语句，则数组a包含元素的个数有____________。 Dim a(3 ,-2 to 2 , 5) A、75 B、13 C、60 D、120 答案： D 要分配存放如下方阵的数据，____________数组声明语句能实现(不能浪费空间)。每行三个元素，第一行为：1.1 2.2 3.3第二行为：4.4 5.5 6.6第三行为：7.7 8.8 9.9 A、Dim a(3，3)As Single B、Dim a(-1 To l，-5 To-3)As Single C、Dim a(-3 To-1，5 To 7)As Integer D、Dim a(9)As Single 答案： B 下列有关数组的说法中，不正确的是________。 A、语句Dim X(3.6+2)As Integer定义了一个维上界是6的一维的整型数组 B、形参数组的类型可以是定长符串类型 C、可以使用Erase语句释放所有数组所占据的存储储空间 D、在窗体模块中不可以定义全局数据组 答案： C 在窗体模块的通用声明处有如下语句，会产生错误的语句是___。 ①Const a as Integer=25 ②Public St As String * 8 ③ReDim B(3)As Integer ④Dim Const X As Integer=10 A、①③ B、②③④ C、①②③ D、①② 答案： B 在窗体中添加一个命令按钮，并编写如下程序代码： Private Sub Command1_Click()Dim y As Integer y = 0 Do While y<7 y=y+2 Loop MsgBox y End Sub 程序运行后，消息对话框中显示__________。 A、0 B、8 C、7 D、2 答案： B 运行以下程序段，输出结果是____。 Dim a(1 To 10)Dim p(1 To 4)k = 5 For i = 1 To 4 p(i)= i * 2 Next I For i = 1 To 4 k = k + p(i)* 2 Next I Print k A、30 B、45 C、32 D、48 答案： B 某过程的说明语句中，正确的数组说明语句是____________。Const N as integer=4 Dim L as integer ①.Dim X(L)As Integer ②.Dim A(K)As Integer Const K As Integer=3 ③.Dim B(N)As Integer ④.Dim Y(2000 To 2008)As Integer A、②③ B、③④ C、①②④ D、①③④ 答案： B 在过程调用中，参数的传递可以分为________________和________________两种方式。 A、按地址传递 按参数传递 B、按位置传递 按参数传递 C、按值传递 按地址传递 D、按参数传递 按值传递 答案： C 程序中的不同过程之间，不能通过____________进行数据传递。 ①全局变量 ②窗体或模块级变量 ③形参与实参结合 ④静态变量 A、②④ B、④ C、①②④ D、①②③ 答案： B Sub过程和Function过程最根本的区别是________________。 A、Sub过程的过程名不能返回值，而Function过程能通过过程名返回值 B、Function过程可以有参数，Sub过程不可以 C、Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以 D、两种过程参数的传递方式不同 答案： A 下面的过程定义语句中合法的是________________________。 A、Sub Procl(ByVal n())B、Function Procl(ByVal n)C、Function Procl(Procl)D、Sub Procl(n)As Integer 答案： A 一般来说，当变量名称相同而作用域不同时，局限性_____________的变量总会用"阴影"遮住局限性不太大的变量。 A、大 B、更小 C、比较小 D、小 答案： A 以下说法正确的是____________。 A、在VB中，过程不可以嵌套定义但可以嵌套调用 B、在VB中，过程可以嵌套定义但不可以嵌套调用 C、在VB中，过程不可以嵌套定义也不可以嵌套调用 D、在VB中，过程可以嵌套定义也可以嵌套调用 答案： A 调用由语句Private Sub Convert(Y As Integer)定义的Sub过程时，以下不是按值传递的语句是____________。 A、Convert(X)B、Call Convert(X*1)C、Call Convert((X))D、Convert X 答案： D 设有下列程序代码，在单击命令按钮时的输出结果是________。 Sub SS(ByVal x, ByRef y, z)x=x+1 y=y+1 z=z+1 End Sub Private Sub Command1_Click()A=1: B=2 :C=3 Call SS(A,B,C)Print A,B,C End Sub A、1 3 4 B、2 2 4 C、1 3 3 D、1 2 3 答案： A 执行以下程序，在窗体上显示的第二行内容是_________。 Private Sub Command1_Click()Dim x%, y% x = 10 y = 15 Call value(x, y)Print x;y End Sub Private Sub value(ByVal m%, n%)m = m * 2 n = n-5 Print m;n End Sub A、10 10 B、20 15 C、20 10 D、10 15 答案： A 在窗体上画一个名称Command1的命令按钮和一个名称为Text1的文本框，然后编写如下程序： Private Sub Command1_Click()Dim x, y, z As Integer x = 5: y = 7: z = 0 Text1.Text = ""Call p1(x, y, z)Text1.Text = Str(z)End Sub Private Sub p1(ByVal a As Integer, ByVal b As Integer, c As Integer)c = a + b End Sub 程序运行后，如果单击命令按钮，则在文本框中显示的内容是________。 A、12 B、没有显示 C、Str(z) D、0 答案： A 工程资源管理器用来显示和管理工程所包含的_____等全部项目。 A、变量和数组 B、变量和常数 C、过程和事件 D、窗体和模块 答案： D 执行VB工程时第一次出现的窗体称启动窗体，关于该窗体的叙述不正确的是_____。 A、若不对启动窗体进行设置，工程中的第一个窗体默认为启动窗体 B、启动窗体和其他窗体一样可以隐藏和关闭 C、启动窗体一般作为用户工作的界面，不可更改 D、启动窗体可进行设置，设置方法是执行“工程”菜单中的“属性” 答案： C 在设计列表框时，若实现输入多行文字的目的，应使用_____键实现文本的换行。 A、Alt+Enter B、Enter C、Ctrl+Enter D、Ctrl+Shift+Enter 答案： C 以下使用方法的语句中，正确的是_____。 A、Form1.Clear B、List1.Clear C、Combo1.Cls D、Picture1.Clear 答案： B 有应用代码：Text1.Text="VisualBasic"，其中的Text1、Text和"VisualBasic"分别代表_____。 A、对象、方法、属性 B、属性、对象、值 C、对象、属性、值 D、对象、值、属性 答案： C 当对象失去焦点时，将会发生_____事件。 A、LostFocus B、Focus C、SetFocus D、GetFocus 答案： A 使用_____方法，可以将列表框List1中的所有项删除掉。 A、AddItem B、RemoveItem C、List1.Txt=""D、Clear 答案： D 设X=2.0,Y=8.0,Z=6.0,L=True,则下列VB表达式中值为True的是____________。 A、Y+X>=Z+X AND NOT L B、NOT(Z+X>Y)AND L C、NOT L OR(L=Y+X=Z)D、X+Z>Y AND L 答案： B 要判断月收入在2000元以上（含2000元）且5000元以下（不含5000元的职工，应该使用的逻辑表达式 是____________。 A、M>2000 Or M<=5000 B、M>=2000 Or M<5000 C、M>2000 AND M<=5000 D、M>=2000 AND M<5000 答案： D 窗体上有一个文本框控件Text1，假设已存在三个整型变量a、b和c，且变量a的值为5，变量b的值为7，变量c的值为12。以下_____语句可以使文本框内显示的内容为：5+7=12 A、Text1.Text=a+b=c B、Text1Text="a+b=c〞 C、Text="a"&"+"&"b"&"="&"c"D、Text1=a &"+"&b &"="&c 答案： D 在窗体上面一个文本框（其中Name属性为Text1），然后编写如下事件过程： Private Sub Command1_Click()Text1.Text=""For i=1 To 10 Sum=Sum+i Next i Text1.Text=Sum End Sub 上述程序的运行结果是_____。 A、在文本框中Text1中输出0 B、出错 C、在文本框中Text1中输出不定值 D、在文本框中Text1中输出55 答案： D Dim y As Integer m = 1 Do While m <= 3 m = m + 1 Print m;Loop A、2 B、2 3 4 C、2 3 D、2 3 4 5 答案： B 在窗体模块的通用声明处有如下语句，会产生错误的语句是___。 ①Const a as Integer=25 ②Public St As String * 8 ③ReDim B(3)As Integer ④Dim Const X As Integer=10 A、①③ B、②③④ C、①②③ D、①② 答案： B 在窗体上画一个命令按钮，然后编写如下事件过程： Option Base 1 Private Sub Command1_Click()Dim a As Variant a = Array(1,2,3,4)j = 1 For i = 4 To 1 Step-1 s = s + a(i)*j j = j * 10 Next i Print s End Sub 运行程序，单击命令按钮，其输出结果是_______。 A、1234 B、12 C、4321 D、34 答案： A 运行以下程序段，输出结果是____。 Dim a(1 To 10)Dim p(1 To 4)k = 5 For i = 1 To 4 p(i)= i * 2 Next I For i = 1 To 4 k = k + p(i)* 2 Next I Print k A、30 B、45 C、32 D、48 答案： B 用复制粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是________。 A、命令按钮的大小都相同 B、命令按钮的所有Caption属性都是Command1 C、命令按钮共享相同的事件过程 D、在代码中访问命令按钮只需使用名称Command1 答案： D 参数传递有值传递和地址传递，_________关键字表示地址传递。 A、ByVal B、ByRef C、Value D、Refrence 答案： B 下面的过程定义语句中合法的是________________________。 A、Sub Procl(ByVal n())B、Function Procl(ByVal n)C、Function Procl(Procl)D、Sub Procl(n)As Integer 答案： A 有关过程的说法中错误的是________。 A、递归过程既可以是递归Function过程，也可以是递归Sub过程 B、在Sub或Function过程中不能再定义其他Sub或Function过程 C、在调用过程时，形参为数组的参数对应的实参只能是数组 D、在调用过程时，与使用ByRef说明的形参对应的实参只能按地址传递方式结合 答案： D 通用过程可以通过执行"工具"菜单中的____________命令来建立。 A、添加过程 B、添加模块 C、通用过程 D、添加窗体 答案： A 表达式X+1>X是_____________.A、字符串表达式 B、非法表达式 C、算术表达式 D、关系表达式 答案： D 与数学表达式(ab/3cd)对应，VB的不正确表达式是____________。 A、a*b/3*c*d B、a*b/3/c/d C、a*b/(3*c*d)D、a/3*b/c/d 答案： A x+y小于10且x-y大于0的逻辑表达式是________。 A、x+y <10 And x-y>0 B、x+y <10.And.x-y >0 C、(x+y)<10 :(x-y)>0 D、x+y <10 Or x-y>0 答案： A 下列叙述不正确的是___________.A、代码中加入注释语句的目的的提高程序的可读性 B、注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译 C、注释语句可以放在代码中的任何位置 D、注释语句不能放在续行符的后面 答案： C 如果将布尔常量False赋值给一个整形变量，则整型变量的值为____________。 A、0 B、-1 C、False D、True 答案： A 下列程序 Private Sub Command1_Click()a=InputBox("请输入")b=InputBox("请输入")Print a+b End Sub 运行时输入3和4输出的结果是 _____。 A、7 B、3+4 C、出错 D、34 答案： D 在窗体（Name属性为Fomal）上画两个文本框（Name属性分别为Fext1和Text2）和一个命令按钮（Name属性为Command1），程序如下。执行后结果为_____。 Private Sub Command1_Click()a=Text1.Text+Text2.Text Print a End Sub Private Sub Form_load()Text1.Text="123"Text2.Text="321"End Sub A、132231 B、444 C、123321 D、321123 答案： C 以下有关控件数组的说法中错误的是________。 A、控件数组由一组具有共同名称和相同类型的控件组成 B、控件数组中的每个元素的下标由控件的Index属性指定 C、同一控件数组中的元素只能有相同的属性设置值 D、控件组中的每一个控件共享同样的事件过程 答案： C Option Base 1 Private Sub Command1_Click()Dim a As Variant a = Array(1,2,3,4)j = 1 For i = 4 To 1 Step-1 s = s + a(i)*j j = j * 10 Next i Print s End Sub 运行上面的程序，单击命令按钮，其输出结果是_____________。 A、1234 B、34 C、12 D、4321 答案： A 下列有关数组的说法中，不正确的是________。 A、语句Dim X(3.6+2)As Integer定义了一个维上界是6的一维的整型数组 B、形参数组的类型可以是定长符串类型 C、可以使用Erase语句释放所有数组所占据的存储储空间 D、在窗体模块中不可以定义全局数据组 答案： C Private Sub Command1_Click()Dim x As Integer, y As Integer x=1:y=1 For n=1 TO 3 z=FirstFunc(x, y)Print n, z , Next n End Sub Private Function FirstFunc(x As Integer, y As Integer)As Integer Dim n As Integer Do While n <= 4 x=x+y n=n+1 Loop FirstFunc=x End Function A、1 2 3 4 5 6 B、1 6 2 11 3 16 C、2 1 3 1 3 3 D、2 6 1 3 11 16 答案： B 在窗体模块的通用声明处有如下语句，会产生错误的语句是____________。 ①Const A As Integer=25 ②Public St As String * 8 ③ReDim B(3)As Integer ④Dim Const X As Integer=10 A、②③④ B、①③ C、①② D、①②③ 答案： A 以下有关变量作用域的说明中，错误的是_______。 A、只有在标准模块中用Public语句说明的变量才是全局变量。 B、在标准模块的通用声明处可用Private语句说明模块级变量。 C、在窗体的通用声明处可用Private语句说明窗体级变量。 D、在过程中不能使用Public语句说明全局变量。 答案： A 设有下列程序代码，在单击命令按钮时的输出结果是________。 Sub SS(ByVal x, ByRef y, z)x=x+1 y=y+1 z=z+1 End Sub Private Sub Command1_Click()A=1: B=2 :C=3 Call SS(A,B,C)Print A,B,C End Sub A、2 2 4 B、1 2 3 C、1 3 3 D、1 3 4 答案： D 将调试通过的工程经"文件"菜单的"生成.exe文件"编译成.exe后，将该可执行文件到其他机器上不能 运行的主要原因是____________。 A、该可执行文件有病毒 B、运行的机器上无VB系统 C、缺少.frm窗体文件 D、以上原因都不对 答案： B 以下四个说法中不正确的是_____。 A、可以通过双击工具箱中的控件，将控件加入窗体上 B、在窗体上选中控件，按【Del】键可删除该控件 C、VB中所有基本控件都可以改变大小 D、控件工具箱中可以添加新的控件 答案： C 当文本框的_____属性设置为True时，可以滚动和选择控件中的文本，但不能编辑。 A、Locked B、SelStart C、Shape D、SelText 答案： A 应用程序窗体的名称属性为Frm1，窗体上有一个命令按钮，其名称属性为Cmd1，窗体和命令按钮的 Click事件过程名分别为_____。 A、Frm1_Click()Cmd1_Click()B、Form_Click()Command1_Click()C、Frm1_Click()Command1_Click()D、Form_Click()Cmd1_Click()答案： D 设置标签边框的属性是_____。 A、Alignment B、Backstyle C、Borderstyle D、Autosize...
