VB历年考试真题有答案

第一章

1.在设计阶段，当按Ctrl+R键时，所打开得窗口是（） A）代码窗口

B）工具箱窗口

C）工程资源管理器窗口

D）属性窗口

2.在VB集成环境中，可以列出工程中所有模块名称的窗口是（） A）工程资源管理器窗口 B）窗体设计窗口 C）属性窗口

D）代码窗口

3.在VB集成环境中，要添加一个窗体，可以单击工具栏上的一个按钮，这个按钮是（） A）

B）

C）

D）

4.在Vb集成环境的设计模式下，用鼠标双击窗体上的某个控件打开得窗口是（） A）工程资源管理器窗口

B）属性窗口

C）工具箱窗口

D）代码窗口

5.在VB集成环境中要结束一个正在运行的工程，可单击工具栏上的一个按钮，这个按钮是（） A）

B）

C）

D）

6.在设计窗体时双击窗体的任何地方，可以打开得窗口是（） A）代码窗口

B）属性窗口

C）工程资源管理器窗口

D）工具箱窗口

7.以下叙述中错误的是（）

A）标准模块文件的扩展名是.bas B）标准模块文件是纯代码文件 C）在标准模块声明中声明的全局变量可以在整个工程中使用 D）在标准模块中不能定义过程

8.以下叙述中错误的是（）

A）打开一个工程文件时，系统自动装入与该工程有关的窗体文件 B）保存VB程序时，应分别保存窗体文件及工程文件 C）VB应用程序只能解释方式执行

D）窗体文件包含该窗体及其控件的属性

9.以下关于VB特点的叙述中，错误的是（） A）VB是采用事件驱动编程机制的语言

B）VB程序既可以编译运行，也可以解释运行

C）构成Vb程序的多个过程没有固定的执行顺序

D）VB程序不是结构化程序，不具备结构化程序的三种基本结构

10.以下叙述中，错误的是（）

A）一个VB应用程序可以包含多个标准模块文件 B）一个VB工程可以含有多个窗体文件

C）标准模块文件可以属于某个指定的窗体文件 D）标准模块文件的扩展名是.bas

11.以下叙述中，错误的是（）

A）在VB中，对象所能响应的事件是由系统定义的

B）对象的任何属性既可以通过属性窗口设定，也可以通过程序语句设定 C）Vb中允许不同对象使用相同名称的方法 D）VB中的对象具有自己的属性和方法

12.假定一个VB应用程序由一个窗体模块和一个标准模块构成。为了保存该应用程序，以下正确的操作是（）

A）只保存窗体模块文件 B）分别保存窗体模块、标准模块和工程文件 C）只保存窗体模块和标准模块文件 D）只保存工程文件

13.以下叙述中错误得时（）

A）VB是事件驱动型可视化编程工具

B）Vb应用程序不具有明显的开始和结束语句

C）Vb工具箱中的所有控件都具有宽度(width)和高度(height)属性 D）VB中控件的某些属性只能再设计时设置

二、填空题

1）VB应用程序中标准模块文件的扩展名是 。 2）VB程序设计采用的编程机制是 。 3）资源文件的扩展名为 。

第一章：

选择题：1-5:CABDD 6-10:ADCDC 11-15:BBC 填空：1) .bas 2)事件驱动 3）.res

第二章

一、选择题

1.以下描述错误的是（）

A）窗体的标题通过其Caption属性设置 C）窗体的背景图形通过其Picture属性设置

2.设有如下变量声明语句： Dim a , b as Boolean 则下面叙述中正确的是（）

A）a 和 b都是布尔型变量 B）a是变体型变量，b是布尔型变量 C）a是整型变量，b是布尔型变量 D）a和b都是变体型变量

3.下列可作为VISUA L BASICBA变量的是 A）A#A B)4ABC

C)?XY D)PRINT_TEXT

4)假定编写了如下四个窗体事件的事件过程，则运行应用程序并显示窗体后，已经执行的时间过程是 A)LOAD B)Click C)Lostfocus D)Keypress

B）窗体的名称（Name属性）可以再运行期间修改 D）窗体最小化时的图标通过其Icon属性设置

5窗体form1上有一个名为Command1的命令按钮，以下对应窗体单击事件的事件过程是 A)Private sub form1_ click() B)Private sub form_ click() End sub end sub

C)private command1_click() D))private command1_click()

End sub END SUB

6在程序运行时，下面的叙述正确的是

A)用鼠标右键单击窗体中无控件的部分，会执行窗体的Form_load事件过程 B)用鼠标左键单击窗体的标题栏，会执行窗体的Form_click事件过程 C)只装入而不显示窗体，也会执行窗体的Form_Load事件过程

D)装入窗体后，每次显示窗体时，都会执行窗体的FORM_click事件过程

7）在VB中，表达式3*2\\5 mod 3的结果是（） A)1 B)9

C)3 D)出现错误提示

8）以下叙述中正确的是

A)窗体的name属性指定窗体的名称，用来标识一个窗体 B)窗体的name属性值是显示在窗体标题栏中的文本 C)可以在运行期间改变窗体的name属性值 D)窗体的name属性值可以为空

9）为了清除窗体上的一个控件，下列正确的操作是 A)敲回车键 B）按ESC键 C选择（单击）要清除的控件，然后按DEL键 D)选择（单击）要清除的控件，然后按回车

10）以下叙述中错误的是

A)打开一个工程文件时，窗体自动装入与该工程有关的窗体、标准模块等文件

B)当程序运行时，双击一个窗体，则触发该窗体的Dblclick事件

C）VB应用程序只能以解释方式执行 D）事件可以由用户引发，也可以由系统引发

11）以下能在窗体Form1的标题栏中显示“VB窗体”的语句是 A）Form1.Name=”VB窗体” C）Form1.Caption=”VB窗体”

12）以下叙述中错误的是

A）事件过程是响应特定事件的一段程序 C）对象的方法是执行指定操作的过程

B）不同的对象可以具有相同的名称的方法 D）对象事件的名称可由编写者指定

B）Form1.Title=”VB窗体” D）Form1.Text=”VB窗体”

13）在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click()

Move 500, 500 End Sub

程序运行后，单击命令按钮，执行的操作为 A）窗体向左、上方向各移动500 B）窗体移动到距屏幕左边界、上边界各500的位置

C）命令按钮向左、上方向各移动500 D）命令按钮移动到距窗体左边界、上边界各500的位置

二、填空题

1）对象的Visible属性取值是True或

2）在设计阶段，窗体的Icon属性只能在属性窗口中通过 来设置 3）窗体 决定了窗体的外观 4） 是Vb的基本运行实体

5）对象是具有 和 的实体

6）在Vb中，要将一个窗体从内存中卸载，应该使用 语句

7）要设置窗体最小化时在Windows任务栏上显示的图标，应该使用窗体的 属性进行设置 8）在Vb中，窗体文件的扩展名是

第二章：

选择题：1-5：BBDAB 6-10:CAACC 11-15:CDB 填空：1）False 2）对话框 3）属性 4）对象 5）属性 方法 6）Unload 7）Icon 8）.frm

全真试题训练 一、选择题

1.确定一个控件在窗体上的位置的属性是 A）Width和height B）width或height

C）Top和Left D)Top或Left

2.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Text1.Text = \ Me.Text1 = \

Text1 = \ End Sub

程序运行后，如果单击命令按钮，则在文本框中显示的是 A）Visual B）Basic C）Program D）出错

3.以下叙述中错误得是

A）一个工程可以包括多种类型的文件

B）VB应用程序既能以编译方式执行，又能以解释方式执行 C）程序运行后，在内存中只能驻留一个窗体

D）对于事件驱动型应用程序，每次运行时的执行顺序可以不一样

4.如果要改变窗体的标题，则需要设置的属性是 A）Caption B）Name C）Backcolor

5.以下叙述中错误得是

A）双击鼠标可以触发DblClick事件 C）移动鼠标时，会触发MouseMove事件

B）窗体或控件的事件的名称可以由编程人员确定 D）控件的名称可以由编程人员设定

D）BorderStyle

6.以下关于窗体的描述中，错误的是

A）执行Unload Form1语句后，窗体Form1消失，但仍在内存中 B）窗体的Load事件在加载窗体时发生

C）当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止 D）窗体的Height、Width属性用于设置窗体的高和宽

7.以下叙述中正确的是

A）窗体的Name属性指定窗体的名称，用来标识一个窗体 B）窗体的Name属性的值是显示在窗体标题栏中的文本 C）可以在运行期间改变对象的Name属性的值 D）对象的Name属性值可以为空

8.刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是 A）单选按钮 B）图片框 C）通用对话框

D）文本框

9.在C:\\Pic文件夹下有一个图形文件，名为Welcome.gif。为了将该图形装入窗体Form1，应使用的正确语句是

A）Form1.Caption=”Welcome.gif”

二、填空题

1.用于设置对象背景色得属性是（）

2.要使一个控件失效，应该将该控件的（）属性设置为False

3.一般来说，同一个窗体中的各个控件的（）属性应该各不相同；如果几个控件具有相同的（）属性，则这些控件称为控件数组。

4.由VB预先设置好的、能够被对象识别的动作叫（）

5.在界面设计阶段，当对窗体中的对象进行双击操作时，VB会显示该对象的（）窗口 6.决定窗体标题栏显示内容的属性是（）

7.用来在给定时刻触发事件的控件是（）

8.事件可以由用户引发，也可以由系统引发。计时器的Timer事件是由（）引发；鼠标操作是由（）引发。.

全真试题训练：

选择题：1-5：CCCAB 6-10：AACD

填空：1）Backcolor 2)Enabled 3)Name Name 4)事件/过程

5）代码 6）Caption 7）计时器或Timer 8）系统 用户

第三章

1.设a=2，b=3,c=4,d=5，则下面语句的输出是（） Print 3>2*b or a=c and b<>c or c>d A）false B ) 1 C )true

D ) -1

B）Form1.Picture=C:\\pic\\welcome.gif

D）Form1.Picture=LoadPicture(“C:\\pic\\welcome.gif”)

C）Form1.picture=”C:\\pic\\welcome.fig”

2.设a=5,b=6,c=7,d=8，执行语句x=iif((a>b) and (c>d),10,20)后，x的值是（） A）10 B）20 C）30 D）200

3.print sgn(-6^2)+abs(-6^2)+int(-6^2)的输出结果是（） A）-36 B）1

C）-1

D）-72

4.在窗体上画一个名称为Command1的命令按钮，单击命令按钮时执行如下事件过程： Private Sub Command1_Click() a$ = \b$ = Right(a$, 8) c$ = Mid(a$, 1, 8) MsgBox a$, , b$, c$, 1

End Sub

则在弹出的信息框标题栏中显示的标题是（）

A )software and hardware B ) hardware C )software

D )1

5.设x是整型变量，与函数iif(x>0,-x,x)有相同结果的代数式是（） A）|x| B ) -|x| C ) x

6.在窗体文件中有下面的事件过程： Private Sub Command1_Click() Dim s a% = 100 Print a

End Sub

其中变量a和b的数据类型分别是（） A）整型，整型

B）变体型，变体型

C）整型，变体型 D)变体型，整型

7.下面程序运行时，若输入395，则输出结果是（） Private Sub Command1_Click() Dim x%

x = InputBox(\请输入一个3为整数\

Print x Mod 10, x \\ 100, (x Mod 100) \\ 10 End Sub A）3 9 5 B )5 3 9 C )5 9 3

8.以下变量名中合法的是（） A）x2-1

B )print

C)str_n

D)2x

D) –x

D )3 5 9

9.把数学表达式

5x?32y?6表示为正确的Vb表达式应该是（）

B )x*5+3/2*y-6

C)(5*x+3)÷(2*y-6)

D)(x*5+3)/(2*y-6)

A）（5x+3）/(2y-y)

10.可以产生30-50（含30和50）之间的随机整数的表达式是（） A）int(rnd*21+30) B)int(rnd*20+30) C)int(rnd*50-rnd*30)

11.执行语句dim x ， y as interger 后，

D)int(rnd*30+50)

A）x和 y均被定义为整型变量 B）X和Y均被定义为变体类型变量

C）X被定义为整型变量，Y被定义为变体类型变量D）X被定义为变体类型变量，Y被定义为整型变量

12.以下关系表达式中，其值为true的是（） A）”XYZ”>”XYZ”

B )”VisualBasic”<>”visualbasic”

C)”the”=”there” D)”Interger”<”Int”

13.执行以下程序段

A$=”Visual Basic Programming“

B$=”C++”

C$=Ucase(Left$(a$,7)) & B$ & right$(a$,12) 后，变量C$的值为（） A）Visual BASIC Programming

B)VISUAL C++ Programming

C)Visual C++ Programming D)VISUAL BASIC Programming

14.若变量a未事先定义而直接使用（例如：a=0 ），则变量a的类型是（） A）Interger B)String C)Boolean D)Variant

15.为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为（） A）Dim pi as interger

B ) dim pi(7) as interger C)Dim pi as single D )Variant

16.表达式2*3^2 +4*2/2+3^2的值是（） A）30 B）31 C）49 D）48

17以下不能输出”Program”的语句是（） A)print mid(“VBProgram?,3,7)

B)print right(“VBProgram”,7)

C)print mid(“VBProgram”,3) D)print left(“VBProgram”,7)

18.以下叙述中错误的是（）

A）在通用过程中，多个形式参数之间可以用逗号作为分隔符 B）在print方法中，多个输出项之间可以用逗号作为分隔符 C）在Dim语句中，所定义的多个变量可以用逗号作为分隔符 D）当一行中有多个语句时，可以用逗号作为分隔符

19.设a=4,b=5,c=6，执行语句print a

二、填空题

1.在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程： Private Sub Command1_Click() Dim n% n = Val(InputBox(\请输入一个整数:\

If n Mod 3 = 0 And n Mod 2 = 0 And n Mod 5 = 0 Then Print n + 10

End If End Sub

程序运行后，单击命令按钮，在输入对话框中输入60，则输出结果是（）

2.描述“x是小于100的非负整数”的VB表达式是（）

3.下列语句的输出结果是（）

Print Format(Int(12345.6789 * 100 + 0.5) / 100, \

4.设有如下程序段： A$=”BeijingShanghai”

B$=mid(a$,instr(a$,”g”)+1)

执行上面的程序后，变量b$的值为（）

5.与数学表达式

cos(a?b)3x2?5对应的Vb表达式是（）

6.在窗体上画一个文本框、一个标签和一个命令按钮，其名称分别为Text1、Label1和Command1，然后编写如下两个事件过程：

Private Sub Command1_Click()

s$ = InputBox(\请输入一个字符串\ Text1.Text = s$ End Sub

Private Sub Text1_Change()

Label1.Caption = UCase(Mid(Text1.Text, 7))

End Sub

程序运行后，单击命令按钮，将显示一个输入对话框，如果在该对话框中输入字符串“VisualBasic”，则在标签中显示的内容是（）

7.在窗体上画一个名称为Command1的命令按钮，编写如下事件过程 Private Sub Command1_Click() Dim a$

a = For i = 1 To 5

Print Space(6 - i); Mid$(a, 6 - i, 2 * i - 1) Next i

End Sub

程序运行后，单击命令按钮，要求窗体上显示的输出效果如下图所示，请填空。

8.与数学式子A?X

第三章：

选择题：1-5:ABCBB 6-10：CBCDA 11-15：DBBDC 16-20：BDDA 填空：1）70 2）X%>=0 and X%<100 3) 12,345.68 4)Shanghai

y?2sinx对应的VB表达式是

5)cos(a+b)^2/(3*x)+5 6)BASIC 7)\其中，XXX...XXX部分为任意长度的任意字符串） 8）A+X^(y+2)*sin(x)

全真试题训练 选择题

1. 以下选项中，不合法的VB的变量名是（） A. a5b

B. _xyz

C. a_b

D. andif

2.窗体上有一个名称为text1的文本框，一个名称为command1的命令按钮。窗体文件的程序如下： Private Type x

a As Integer b As Integer End Type

Private Sub Command1_Click() Dim y As x

y.a=InputBox(“”) if y.a\\2=y.a/2 Then y.a=y.a*y.a y.a=Fix(y.a/2) End If

Text1.Text=y.b End Sub

对以上程序，下列叙述错误的是（） A.x是用户定义的类型 B.InputBox函数弹出的对话框中没有提示信息 C．若输入的是偶函数，y.b的值为该偶函数的平方。

D.fix（y.a/2）吧y.a/2得小数部分四舍五入，转换为整数返回

3.执行以下程序后输出的是

Private Sub Command1_Click() Ch$=”ABCDEFGH”

Print Mid(Right(ch$,6),Len(Left(ch$,4)),2) End Sub

A.CDEFGH B.ABCD C.FG D.AB

4.下面程序执行时，在窗体上显示的是 Private Sub Command1_Click()

Dim a(10) For k=1 To 10 a(k)=11-k Next k

Printa(a(3)\\a(7)Mod a(5)) End

A.3 B.5 C.7 D.9

5.下面可以正确定义2个整型变量和1个字符串变量的语句是 A．Dim n,m As Integer,s As String B.Dim a%,b$,c As String

C. Dim aAs Integer,b,c As String

D. Dim x%,y As Integer,z As Stying

6.下列表达式中不能判断x是否为偶数的是 A) x/2 =int(x/2) B)x mod 2=0

C)fix(x/2)=x/2

D)x\\2=0

7.设a=2,b=3,c=4,下列表达式的值是（） Not a<=c or 4*c=b^2 and b<>a+c A) -1 B)1 C)True D)False

8.执行以下程序段后，变量C$的值为（） A$=”Visual Basic Programming”

B$=”Quick”

C$=b$ & ucase(mid$(a$,7,6) & right$(a$,12) A)Visual BASIC Programming C)QUICK Basic Programming

9.设有如下语句： Dim a , b as interger

C=”VisualBasic” D=#7/20/2005#

以下关于这段代码的叙述中，错误得是

A）a被定义为interger类型变量 B）b被定义为integer类型变量 C）c中的数据是字符串 D）d中的数据是日期类型

10.以下能从字符串“Visual Basic”中直接取出子字符串“Basic”的函数是（） A）Left B）Mid C)String D）instr

11.设a=4,b=3,c=2,d=1，下列表达式的值是 a>b+1 or c

A)True B)1 C)-1 D)0

12.以下可以作为Visual Basic变量名的是

A）A#A B）counstA C)3A D)?AA

13.设x=4,y=6,则以下不能在窗体上显示出“A=10”的语句是 A）print a=x+y B) print “a=”;x+y C)print “a=”+str(x+y) D)print “A=” & x+y

14.设a=2,b=3,c=4,d=5,下列表达式的值是 Not a<=c or 4*c=b^2 and b<>a+c A)-1 B)1 C)True D)False

B)Quick Basic Programming D)Quick BASIC Programming

15.设a=5,b=10，则执行 c=int((b-a)*rnd+a)+1后，C值得范围为 A）5~10 B)6~9 C）6~10 D）5~9

16.在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private sub form_load() Text1.text=”” Text2.text=”” Text1.setfocus End sub

Private sub text1_change() Text2.text=mid(text1.text , 8) End sub

程序运行后，如果在文本框Text1中输入 BeijingChina，则在文本框Text2中显示的内容是 A）BeijingChina B)China C)Beijing D)BeijingC

17.设a=5,b=4,c=3,d=2，下列表达式的值是 3>2*b or a=c and b<>c or c>d A ) 1 B)True C)False

二、填空题

1.VB的常量分为（） 和（）

2.“Sichuan university”为（）常数；“April 5,2002”为（）常数；#April 5,2002#为（）常数 3.VB的变量必须以（）开头 4.在立即窗口中输入如下内容： A$=”I love Visual Basic” X=instr(a$,”Visual”) Print x

则在立即窗口显示的是（）

5.在VB中用（）函数来产生一个0~1之间的单精度随机数。由于一个随机数序列可能反复出现，VB提供了（）语句来消除这种情况。

6.写出一个能产生取值范围为[30,45 )的单精度随机数的表达式（） 7.数学不等式a?x?b在VB中表示为（）

8.算术表达式 14.3\\3.1 和 14.3 mod 3.1 的值分别是（） 和（）

x?1D)2

9.数学表达式

yyx的VB表达式是（）

?110.&34567是一个（）进制整型数 11.VB的变量名的有效字符为（）个 12.Chr$（65）的结果是（）

13.abs(sgn(val(“-0.003”)))的值为（）

14.假设当前日期是2002年11月1日，星期五，有下列语句： Print day(now) Print month(now)

Print year(now) Print weekday(now)

则执行上面语句后，输出结果分别是（）（）（）（）

15.用int函数可以实现数值保留到小数点后某位。如下语句： Int(33.3333333*1000+0.5)/1000 保留到小数点后（）位

全真试题：

选择题：1-5：BDCDD 6-10：DDDAB 11-15：DBADC 16-20：BB 填空:1）符号 文字 2）字符型 字符型 日期型 3）字母 4） 8 5）rnd randomize 6）rnd*15+30 7）x>=a and x<=b 8） 4 2 9）(x/y+1)/(y/x-1) 10）八 11） 255 12）A 13） 1 14） 1 11 2002 6 15）3

第四章

一、选择题

1.在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() MsgBox Str(123 + 321)

End Sub

程序运行后，单击命令按钮，则在信息框中显示的提示信息为

A）字符串“123+321” B）字符串“444” C）数值“444” D）空白

2.如果执行一个语句后弹出如图所示的窗口，则这个语句是

A）inputbox(“输入框”,”请输入VB数据”) B)x= inputbox(“输入框”,”请输入VB数据”) C) inputbox(“请输入VB数据”,” 输入框”) D)x= inputbox(“请输入VB数据”,” 输入框”)

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

A）msgbox”VB” B)x=msgbox(“VB”) C)msgbox(“VB”) D)call msgbox”VB”

4.下列叙述中正确的是

A）msgbox语句的返回值是一个整数 B）msgbox语句的第一个参数不能省略 C）执行msgbox语句并出现信息框后，不用关闭信息框即可执行其他操作 D）如果省略msgbox语句的第三个参数（title），则信息框的标题为空

5.执行下列语句

Strinput=inputbox(“请输入字符串”,”字符串对话框”,”字符串”)

显示输入对话框。此时如果直接单击“确定”按钮，则变量strinput的内容是 A）“请输入字符串” B）“字符串对话框” C）“字符串” D）空字符串

6.窗体上有一个名称为command1的命令按钮，其事件过程如下： Private Sub Command1_Click() x = \a = Right(x, 11) b = Mid(x, 7, 5) c = MsgBox(a , , b) End Sub

运行程序后单击命令按钮。以下叙述中错误得是（）

A）信息框的标题是Basic B)信息框中的提示信息是Programming C)c的值是函数的返回值 D)msgbox的使用格式有错

7.假定有如下的命令按钮（名称为command1）事件过程： Private Sub Command1_Click() x =inputbox(“输入：”,”输入整数”)

msgbox”输入的数据是：”, , “输入数据：”+x

End Sub

程序运行后，单击命令按钮，如果从键盘上输入整数10，则以下叙述中错误的是（）

A）X的值是数值10 B）输入对话框的标题是“输入整数” C）信息框的标题是“输入数据：10” D）信息框中显示的是“输入的数据是：”

二、填空题

1.在窗体上画一个文本框和一个图片框，然后编写如下两个事件过程： Private Sub Form_Click()

text1.Text = \程序设计\End Sub

Private Sub Text1_Change()

picture1.Print \

End Sub

程序运行后，单击窗体，则在文本框中显示的内容是（），而在图片框中显示的内容是（）

2.以下语句的输出是（）

Print format$(8759.5,”000,000.00”) Print format$(3.1415926,”000.0000”)

3.在VB中，语句print tab(10);”Hello,World!”的效果是（）

4.要把函数inputbox的返回值转换成数值，通常使用的函数是（）

5.以下程序段的输出结果是（） X=100 Y=100 Z=200

Print z=x+y

6.将下列语句的输出结果分别卸载其后的空白处 1）print format$(12345.678,”000,000.000”) 2) print format$(12345.678,”###,000.00”) 3) print format$(12345.678,”0.000E-00”) 4) print format$(12345.678,”0.000E+00”)

5) print format$(12345.678,”0.00%”)

7. 如果用户在a=val(inputbox(“请输入a的值：”))生产的对话框中输入9999，然后选择“取消”按钮，则a的值是（）

第四章

选择题：1~5:BBDBC 6~10:DA

填空题：1）VB程序设计 VBProgramming 2）008，759.50 003.1416 3）在第10个位置输出字符串”Hello,World!” 4)Val 5) true 6）012，345.678 1.235E04 1.235E+04 1234567.80% 7) 0

第五章

一、选择题

1. 假定一个滚动条的LargeChange属性值为100，则100表示（）

A. 单击滚动条箭头和滚动框之间某位置时滚动框位置的变化量 B. 滚动框位置的最大值

C. 拖动滚动框时滚动框位置的变化量 D. 单击滚动条箭头时滚动框位置的变化量

2. 在窗体上画一个名称为List1_Click的列表框，列表框中显示若干城市的名称。当单击列表框中的某个

城市时，该城市名消失。下列在List1_Click事件过程中能正确实现上述功能的语句是（）

A. List1.RemoveItem List1.Text B. List1.RemoveItem List1.Clear C. List1.RemoveItem List1.ListCount D. List1.RemoveItem List1.ListIndex

3. 列表框中得项目保存在一个数组中，这个数组的名字是（）

A.Column

B.Style C.List D.MultiSelect

4. 有人编写了如下程序：

Private Sub Form_Click()

Dim s As Integer,x As Integer S=0

x=0

Do While s=10000 x=x+1 s=s+x^2 Loop Print s

End Sub

上述程序的功能是：计算s=1+22+32+…+n2+…,直到s>10000为止。程序运行后，发现得不到正确的结果，必须进行修改。下列修改中正确的是（）

A.把x=0改为x=1 B.把Do While s=10000改为Do While s<=10000 C.把Do While s=10000改为Do While s>10000 D.交换x=x+1和s=s+x^2的位置

5. 设有如下程序：

Private Sub Form_Click() Dim s As Long,f As Long

Dim n As Integer,i As Long f=1

n=4

For i=1 To n f=f*i s=s+f Next i Print s

End Sub

运行程序后，单击窗体，输出结果是（） A.32 B.33 C.34 D.35

6. 阅读下面的程序段：

a=0

For i=1 To 3 For j=1 To i For k=j To 3 a=a+1 Next k Next j

Next i

执行上面的程序段后，a的值为（） A．3 B.9 C.14 D.21

7.设窗体上有一个名称为HIS的水平滚动条，如果执行了语句：

HIS.Value=(HIS.Max-HIS.Min)/2+HIS.Min 则：

A. 滚动块处于最左端

B. 滚动块处于最右端

C. 滚动块处于中间位置

D. 滚动块可能处于任何位置，具体位置取决于Max，Min属性的值

8.为了使标签具有“透明”的显示效果，需要设置的属性是（）

A.Caption

9．窗体上有一个名称为Cb1的组合框，程序运行后，为了输出选中的列表项，应使用的语句是（）

A.Print Cb1.Selected B.Print Cb1.List(Cb1.ListIndex)

C.Print Cb1.Selected.Text D.Print Cb1.List(ListIndex)

10.为了窗体上建立2组单选按钮，并且当程序运行时，每组都可以有一个单选按钮被选中，则以下做法正确的是（）

A．把这2组单选按钮设置为名称不同的2个控件数组 B．使2组单选按钮的Index属性分别相同 C．使2组单选按钮的名称分别相同

D．把2组单选按钮分别画到2个不同的框架中

B.Alignment C.BackStyle

D.AutoSize

11.如果一个直线控件在窗体上呈现为一条垂直线，则可以确定的是（） A．它的Y1，Y2属性的值相等

B．它的X1,X2属性的值相等

C．它的X1，Y1属性的值分别与X2，Y2属性的值相等 D. 它的X1，X2属性的值分别与Y1，Y2属性的值相等

12.窗体上有一个名为Command1的命令按钮和一个名为Timer1的计时器，并且有下面的事件过程： Private Sub Command1_Click() Timer1.Enabled=True End Sub

Private Sub Form_Load() Timer1.Interval=10 Timer1.Enabled=False End Sub

Private Sub Timer1_Timer()

Command1.Left=Command1.Left+10 End Sub

程序运行时，单击命令按钮，则产生的结果是（）

A. 命令按钮每10秒向左移动一次

B. 命令按钮每10秒向右移动一次 C. 命令按钮每10毫秒向左移动一次 D. 命令按钮每10毫秒向右移动一次

13.设窗体有一个名为List1的列表框，并编写下面的事件过程： Private Sub List_Click() Dim ch As String

ch=List.List(List1.ListIndex) List.RemoveItem List1.ListIndex List.AddItem ch

End Sub

程序运行时，单击一个列表项，则产生的结果是（）

A． 该列表项被移动到列表的最前面 B． 该列表项被删除

C． 该列表项被移动到列表最后面

D． 该列表项被删除后又在原位置插入

14.下列叙述中错误的是（）

A．列表框与组合框都有List属性 B．列表框Selected属性，而组合框没有 C. 列表框和组合框都有Style属性 D. 组合框有Text属性，而列表框没有

15.设窗体有一个命令按钮数组，能够区分数组中各个按钮的属性是（）

A．Name B.Index C.Caption D.Left

16.滚动条可以响应的事件是（）

A.Load B.Scroll C.Click D.MouseDown

17.在窗体上画一个图片框，再画一个命令按钮，位置如图所示。则命令按钮的Top属性值是（） A.200 B.300 C.500 D.700

18.在窗体上画一个文本框（名称为Text）和一个标签（名称为Label1），程序运行后，如果在文本框中输入文本，则标签中立即显示相同的内容，以下可以实现上述操作的事件过程是（） A.Private Sub Text1_Change() Label1.Caption=Text1.Text End Sub

B.Private Sub Labell_Change()

Label1.Caption=Text1.Text End Sub

C.Private Sub Text1_Click()

Label1.Caption=Text1.Text End Sub

D.Private Sub Labell_Click() Label1.Caption=Text1.Text End Sub

19.下列说法错误的是（）

A．如果把一个命令按钮的Default属性设置为True，则按回车键与单击该命令按钮的作用相同 B.可以用多个命令按钮组成命令按钮数组

C.命令按钮只能识别单击（Click）事件

D．通过设置命令按钮的Enabled属性，可以使该命令按钮有效或禁用

20.下面哪个属性肯定不是框架控件的属性（） A.Text B.Caption C.Left D.Enabled

21.窗体上有一个名为Option1的单选按钮数组，下次运行时，当单击某个单选按钮时，

调用下面的事件过程

Private Sub Option1_Click(Index As Integer) ? End Sub

下面关于此过程的参数Index的叙述中正确（）

A． Index为1表示单选按钮被选中，为0表示未选中

B． Index的值可正可负

C． Index的值用来区分哪个单选按钮被选中 D． Index表示数组中单选按钮的数量

22.设窗体中有一个文本框Text1，若在程序中执行了Text.SetFocus,则触发

A.Text1的SetFocus事件

B.Text1的GotFocus事件 C.Text1的LostFocus事件 D.窗体的GotFocus事件

23．窗体上有List1，List2两个列表框，List中有若干列表项（见图），并且有下面的程序： Private Sub Command1_Click()

For k=List1.ListCount-1 To 0 Step-1 If List1.Selected(k)Then

List2.AddItem List1.List(k) List1.RemoveItem k End If Nxet k

End Sub

程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是（）

A. 在List2中插入了“外语”，“物理”两项 B. 在List1中删除了“外语”，“物理”两项 C. 同时产生A，B的结果

D. 把List中最后1个列表项删除并插入到List2中

第五章

选择题：1~5:AACBB 6~10:CCCBD 11~15:BDCBB 16~20:BAACA 21~25:CBC

全真试题训练

一、选择题

1.下面控件中，没有Caption属性的是（）

A.复选框 B.单选按钮 C.组合框 D.框架

2.用来设置文字字体是否斜体的属性是（）

A.fontunderline B.Fontbold C.FontSlope D.FontItalic

3.若看到程序中有以下事件过程，则可以肯定的是，当程序运行时

Private Sub Click_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Print \

End Sub

A.用鼠标左键单击名称为“Command1”的命令按钮时，执行此过程 B.用鼠标左键单击名称为“MouseDown”的命令按钮时，执行此过程 C.用鼠标右键单击名称为“Mousedown”的控件时，执行此过程 D.用鼠标左键或右键单击名称为“Click”的控件时，执行此过程

4.窗体上有名称为Command1的命令按钮和名称为Text1的文本框 Private Sub Commandl_Click() Text1.setFocus End Sub

Private Sub Text1_GotFocus() Text1.text=”等级考试”

End Sub 运行以上程序，单击命令按钮后 A.文本框中显示的是“程序设计”，且焦点在文本框中 B. 文本框中显示的是“等级考试”，且焦点在文本框中 C. 文本框中显示的是“程序设计”，且焦点在命令按钮上 D. 文本框中显示的是“等级考试”，且焦点在命令按钮上 5.设窗体的名称为Option1的单选按钮，且程序中有语句： If Option1.Value=True Then 下面语句与该语句不等价的的是 A.If Option1.Value Then

B.If Option1=True Then

C.If Value=True Then D.If Option1 Then

6.设窗体上有1个水平滚动条，已经通过属性窗口吧它的Max属性设置为1，Min属性设置为100.下面叙述中正确的是

A.程序运行时，若使滚动块向左移动，滚动条的Value属性值就增加 B. 程序运行时，若使滚动块向左移动，滚动条的Value属性值就减少 C.由于滚动条的Max属性值小于Min属性值，程序会出错

D. 由于滚动条的Max属性值小于Min属性值，程序运行时滚动条的长度会缩为一点，滚动块无法移动 7.窗体上有一个名称为Text1的文本框；1个名称为Timer1的计时器控件，其Interval属性值为5000，Enabled属性值为True。Timer1的事件过程如下：

Private Sub Timer1_timer() Satic flag As Integer

If flag=0 Then flag=1 Flag=flag

If flag=1 Then Text1.ForeColor=&HFF& ?&HFF&为红色 Else

Text1.ForeColor=&HC000& ?&HC000&为绿色

End If End Sub 以下叙述中正确的是

A.每次执行此事件过程时，flag的初始值均为0

B.flag的值只可能取0或1

C.程序执行后，文本框的文字每5秒改变一次颜色 D.程序有逻辑错误，Else分支总也不能被执行

8.窗体的左右两端各有1条直线，名称为Line1，Line2；名称为Shape1的园靠在左边的Line1直线上；另有1个名称为Timer1的计时器控件，其Enabled属性值是True。要求程序运行后，圆每秒向右移动100，当圆遇到Line2时则停止移动。为实现上述功能，某人把计时器的interval属性设置为1000，并编写了如下程序：

Private Sub Timer1_Timer()

For k = Line1.X1 To Line2.X1 Step 100

If Shape1.Left + Shape1.Width < Line2.X1 Then Shape1.Left = Shape1.Left + 100 End If Next k End Sub

运行程序时发现圆立即移动到了右边的只直线处，与题目要求的移动方式不符。为得到与题目要求相符的结果，下面修改方案中正确的是（） A）把计时器的interval属性设置为1

B）把For k = Line1.X1 To Line2.X1 Step 100和Next两行删除

C）把For k = Line1.X1 To Line2.X1 Step 100 改为For k = Line2.X1 To Line1.X1 Step 100

D）把If Shape1.Left + Shape1.Width < Line2.X1 Then改为If Shape1.Left < Line2.X1 Then

9.窗体如图。要求程序运行时，在文本框Text1中输入一个姓氏，单击“删除”按钮（名称为Command1），则可删除列表框List1中所有该姓氏的项目。若编写以下程序来实现此功能： Private Sub Command1_Click() Dim n%, k%

n = Len(Text1.Text)

For k = 0 To List1.ListCount - 1

If Left(List1.List(k), n) = Text1.Text Then List1.RemoveItem k End If

9.在窗体上画一个命令按钮，其名称为command1，然后编写如下代码： Option base 1

Private sub command1_click() Dim arr

Arr=array(43,68,-25,65,-78,12,-79,43,-94,72) Pos=0 Neg=0 For k=1 to 10

If arr(k)>0 then ____________ Else

____________ End if

Next k

Print pos , neg

End sub

以下程序的功能是，计算并输出数组Arr中10个数得整数之和pos与负数之和neg，请填空

10.在窗体上画一个名为command1的命令按钮，然后编写如下程序： Private sub command1_click() Dim i% Sum=0

N=inputbox(“Enter a number”) N=val(n)

For i=1 to n Sum=____________ Next i Print sum End sub

Function fun(t as integer) as long P=1

For i=1 to 5 P=p*i Next i

__________

End function

以上程序的功能是，计算1！+2！+3！+…+n！，其中n从键盘输入，请填空

11.设有以下的循环： X=1 Do X=x+2

Print x

Loop until __________

要求程序执行时执行3次循环体，请填空

12.下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5 8 6 7；输入1000，则输出0 0 0 1请填空 Private sub command1_click() Dim x% X=inputbox(“请输入一个正整数”)

While x>_________ Print x mod 10;

X=x\\10 Wend

Print ____________

End sub

第六章

选择题：1~5：DDBDC 6~10：CBCCD 10~15：ACABD 16~20：ADBAB 21~25：D 填空题：1）Resule*x 2)m t m<=39 3)true a=a+1 n 4)num i+1 a(j)=temp

5)28 6)is else end select 7)4 8)right(a$,i) 9)pos=pos+arr(k) neg=neg+arr(k) 10)sum+fun(i) fun=p 11)x>5或x>6或x>=7或x=7等 12)=10 x