练习一
一、选择题
1、下面列出的程序设计语言中（ A ）是面向问题的语言。 A、机器语言 B、汇编语言
C、高级语言 D、0、1二进制语言
解释：机器语言和汇编语言都是面向机器的语言，二进制语言为机器语言，故其为面向机器的语言 2、下面列出的程序设计语言中（ C ）不是面向对象的语言。 A、C B、C++ C、Java D、VB 3、下列（ D ）不属于VB 6.0的版本。
A、学习版 B、专业版 C、企业版 D、共享版
解释：VB6.0共有三个版本：标准版、专业版、企业版。而其中的标准版是为初学者了解基于windows的应用程序开发而设计的，也可称为学习版。 二、填空题
1、从程序设计语言发展过程的角度来分类，计算机程序设计语言分：机器语言、汇编语言和高级语言。 2、VB 6.0采用了面向对象、事件驱动（可视化编程）的编程机制。
3、启动VB 6.0后可以从“现存”选项卡选择并打开系统中现存的工程文件。
练习二
一、选择题
1、如果窗体对象的名称为Forma1，Backcolor是窗体对象的一个属性，用来设置窗体的背景色，那么设置窗体背景色为蓝色的语句正确的是（ A ） A、Forma1.Backcolor=vbBlue B、Backcolor= vbBlue C、Forma1 =vbBlue
D、Forma1′sBackcolor is vbBlue.
2、下面方法中，不能打开编码编辑器的是（ D ） A、单击“视图”菜单中的“代码窗口”命令。 B、双击窗体设计器的窗体或控件。
C、双击窗体设计器的窗体或控件，单击工程资源管理器中的“查看代码”按钮。 D、双击窗体设计器的窗体或控件，单击标准工具栏中的“代码窗口”按钮。 3 、保存VB应用程序时，下列方法中正确的是（ Ａ ） A、先保存窗体文件，再保存工程文件。 B、先保存工程文件，再保存窗体文件
C、直接保存窗体文件，系统会自动按顺序先保存窗体文件再保存工程文件。 D、直接保存窗体文件，系统会自动按顺序先保存工程文件再保存窗体文件。 二、填空题
1、VB工程文件的扩展名是工程文件(*.vbp)，窗体文件的扩展名是窗体文件(*.frm)。 2、选中工程资源管理器中的窗体对象，再单击 按钮可打开窗体设计器。 3、在VB中，按下工具栏中的“启动”按钮或
练习三
一、选择题
1、在设计阶段，当双击窗体上的某个控件时，所打开的窗口是（ Ｃ ） A、工程资源管理器窗口 B、工具箱窗口 C、代码窗口 D、属性窗口
2、新建一个工程，将其窗体的名称属性设置为MyFirst，则默认的窗体文件名为（ Ｃ ） A、Form1. frm B、工程1. frm C、MyFirst.frm D、Form1.vbp 3、下列叙述中正确的是（ C ）
A、只有窗体才是VB中的对象 B、只有控件才是VB中的对象 C、窗体和控件都是VB中的对象 D、窗体和控件都不是VB中的对象
解释：窗体时ＶＢ中最常见的对象，而控件是ＶＢ中预先定好的、程序中能够直接使用的对象。 4、设置窗体最小化时的图标可通过（ A ）属性来实现。 A、MouseIcon B、BackStyle C、Icon D、Picture 5、设置标签边框的属性是（ B ）
A、BorderStyle B、BackStyle C、AutoSize D、Alignment 6、文本框没有（ D ）属性。
A、Enable B、Visible C、BackColor D、Caption 7、下列操作中不能触发命令按钮的Click事件的是（ B ）
A、在按钮上单击鼠标左键 B、在按钮上单击鼠标右键 C、把焦点移至按钮上，然后按回车键 D、使用该按钮的快捷键
8、将文本框的（ A ）属性设置为True时，文本框可以输入或显示多行文本，且会在输入的内容超出的宽度时自动换行。
A、Multiline B、ScrollBars C、Text D、Enabled
解释：Scrollbars中0代表没有滚动条，1代表水平，2代表垂直，3代表具有水平及垂直；Text是文本框中包含的文本内容；Enabled决定控件是否可用。 9、如果将文本框的（ A ）属性设置为True，则运行时不能对文本框中的内容进行编辑。 A、Locked B、Multiline C、TabStop D、Visible 解释：文本框中Locked决定控件是否编辑；Multiline该属性为True时可以接收多行文本；Tabstop；Visible决定控件是否可见。
10、设窗体上有一个文本框，名称为Text1，程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是（A ）
A、Text1.MaxLength=0 B、Text1.Enabled=False C、Text1.Visible=False D、Text1.Width=0
解释：Text1.MaxLength指定显示在文本框中的字符数，超出部分不接收，并同时发出嘟嘟声。 11、不论何控件，共同具有的是（ B ）属性。
A、Text B、Name C、ForeColor D、Caption 12、（ ）控件是不可设置焦点的控件。
A、文本框 B、命令按钮 C、组合框 D、图像框 13、以下叙述中正确的是（ A ）
A、窗体的Name属性制定窗体的名称，用来标识一个窗体。 B、窗体的Name属性的值是显示在窗体标题栏中的文本。 C、可以在运行期间改变对象的Name属性值。 D、对象的Name属性可以设置为空。
14、按下回车键时便可执行命令按钮的Click事件，则需要设置命令按钮的（ D ）属性。 A、Value B、Default C、Cancel D、Enabled
15、如果设计时在属性窗口将命令按钮的（ B ）属性设置为False，则运行按钮不能响应用户的鼠标事件。
A、Visible B、Enabled C、DisabledPicture D、Default 16、（ B ）语句将按钮（Command1）的标题赋值给文本框（Text 1）的Text属性。 A、Text1=Command1 B、Text1.Text=Command1.Caption C、Text1.Text=Command1 D、Text1.Text=（Command1） 17、要使某控件在运行时不可显示，应对（ A ）属性进行设置。 A、Enabled B、Visible C、BackColor D、Caption
解释：enabled（可用性）决定该窗体能否接受鼠标或键盘事件（或能否被激活）；visible（可视性）决定窗体是否可见，用于隐藏或显示该窗体；backcolor用于确定窗体的颜色；caption决定标题栏中现实的文本。 18、下列的（ B ）对象不支持Dbclick事件。
A、文本框 B、命令按钮 C、标签 D、窗体 19、确定一个控件在窗体上的位置的属性是（ D ）
A、Width或Height B、ScaleWidth或ScaleHeight C、Top或Left D、ScaleTop或ScaleLeft 20、下列说法正确的是（ D ）
A、Move属性用于移动窗体或控件，但不可改变其大小 B、Move属性用于移动窗体或控件，并可改变其大小 C、Move方法用于移动窗体或控件，并可改变其大小 D、Move方法用于移动窗体或控件，但不可改变其大小 二、填空题
1、VB的控件通常分为三种类型，即标准控件、ActiveX控件和可插入的对象。 2、在属性窗口中，有些属性具有预定值，在这些属性上双击属性值可以＿＿＿＿。 3、控件和窗体的Name属性只能通过＿＿＿＿设置，不能在程序运行期间设置。
4、要使窗体在运行时不改变窗体的大小并没有最大化、最小化按钮，需要设置的属性是windowstate。 5、要使标签所在处能透明的显示背景，应将＿＿＿属性值设置为0。 6、文本框的＿＿＿＿属性设置获取的文本框中显示的文本。
7、要使文本框出现滚动条，除了设置＿＿＿＿属性以外，还必须设置MultiLine=True。
8、如果要将命令按钮的背景设置为某种颜色，或者要在命令按钮上粘贴图形，应将命令按钮的＿＿＿＿属性设置外1-Graphical。
9、当程序运行时，系统自动执行启动窗体的事件过程是＿＿＿＿。 10、在文本框中，通过＿＿＿＿属性能获得当前插入点所在的位置。
练习四
一、选择题
1、下列叙述中不正确的是（ AB ） A、变量名的第一个字符必须是字母
6、声明一个长度为256个字符的字符串变量mster，应使用声明 B、变量名的长度不超过255个字符
C、变量名可以包含小数点或者内嵌的类型声明字符 D、变量名不能使用关键字 2、按照变量名的定义规则，（ A ）是不合法的变量名
A、Mod B、Mark_2 C、tempVal D、Cmd 3、可作为字符串常量的是（ C ）
A、m B、#01/01/99# C 、〝m〞 D、True 4、可作为日期常量的是（ C ）
A、〝2/1/02〞 B、22/1/02 C、#2/1/02# Ｄ、{ 2/1/02 } 5、下列 符号常量的声明中，不合法的是（ ） Ａ、Const a As single=1.1 B、 Const a As Integer=〝12〞 C、 Const a As Double=Sin（1） D、 Dim mstr As String[256]
6、声明一个长度为256个字符的字符串变量mster，应使用的声明语句是（ ） A、Dim mstr B、Dim mstr（256） As String C、Dim mstr As String*256 D、Dim mstr As String [256] 7、VB认为下面（ ）组变量时同一个变量
A、A1和a1 B、Sum和Summary C、Aver和Average D、A1和A_1 8、VB中允许的形式的数是（ ）
A、2.07E-101 B、±376 C、169 D、0.87E+12
9、表达式Int（8*Sqr(36)*10^(-2)*10+0.5）/10的值是（ ） A、48 B、048 C、.5 D、.05 10、表达式〝123〞&〝100〞&200的值（ ）
A、423 B、123100200 C、〝123100200〞 D、123300 11、表达式3/3*3/3MOD3的值是（ ）
A、1 B、-1 C、3 D、-3
12、表示〝身高H超过1.7米且体重W小于62.5公斤〞的布尔表达式为（ ） A、T>=1.7 And W<=62.5 B、T<=1.7 And W>=62.5 C、T>1.7 And W<62.5 D、T>1.7 And W<62.5 13、Int(100*Rnd(1))产生的随机整数的闭区间是（ ） A、[0,99] B、[1,100] C、[0,101] D、[1,99] 14、求一个3位正整数N的十位数的方法是（ ）
A、Int（N/10）-Int(N/10)*10 B、Int（N/10）-Int(N/100) C、N- Int(N/100)*100 D、Int（N-Int(N/100)*100） 15、函数Right（〝Beijing〞,4）的值是（ ）
A、Beij B、jing C、eiji D、ijin 16、函数Mid（〝SHANGHAI〞,6,3）的值是（ ）
A、SHANGH B、SHA C、ANGH Ｄ、HAI
17、在一个语句行内写多条语句时，语句之间应该用（ ）分隔。 A、逗号 B、分号 C、顿号 D、冒号 18、在VB中注释语句使用（ ）符号来标志。
A、# B、* C、′ D、@ 二、填空题
1、一元二次方程ax^2+bx+c=0有实根的条件是：a≠0，并且b^2-4ac≧0。表示该条件的表达式是＿＿＿。 2、关系式x≦-5或x≧5所对应的表达式是＿＿＿＿。
3、假设x是正实数，对x保留两位小数，第3 位四舍五入的表达式是＿＿＿＿。
4、设A=3.5，B=5.0，C=2.5，D=TRUE，则表达式Ａ＞０And Ａ＋Ｃ＞Ｂ＋３）Or Not D的值为＿＿＿。 5、表达式（Int（-21.2）+Abs（-21.2）+Sgn（21.2））\\21的值为＿＿。 6、表达式Int（Rnd（0）+1）+Int(Rnd(1)-1)的值是＿＿＿＿。 7、函数Len(Str(Val(〝123.4〞)))的值是 ＿＿＿＿。 8、程序： AS=〝12〞 BS=〝34〞
CS=AS+BS D=Val（CS） PrintD\\10
运行后输出的结果是＿＿＿＿。
9、执行下面程序后，输出结果是＿＿＿＿。 X=9^2 MOD 4^3\\3^2 PRINT 〝X=〞;X
10、以下语句的输出结果是＿＿＿＿。
Print FormatS（6879.6，〝000，000.00〞）
练习五
一、选择题
1、假定有以下程序段： For i=1 To 3
For j=5 To 1 step -1 Print i*j Next i,j
则语句Print i*j的执行结果是（ ）
A、15 B、16 C、17 D、18 2、以下程序段的输出结果是（ ） x=1 y=3 do
until y>3 x=x*y y=y+1 loop print x
A、1 B、3 C、7 D、19 3、执行下面的程序段后，x的值为（ ） x=10
for i=1 to 20 step 2 x=x+i\\5 next i
A、23 B、24 C、25 D、26 4、执行下面的程序段后，x的值为（ ） For i=1 to 4 x=4
for j=1 to 3 x=3
for k=1 to 3 x=x+6 next k next j next i print x
A、15 B、21 C、157 D、538 5、以下程序段的输出结果是（ ） x=1 y=4 do
until y>4 x=x*y y=y+1 loop print x
A、1 B、2 C、4 D、8
6、在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click()
b=1:a=2 do
while b<10 b=2*a+b loop print b end sub
程序运行后，输出的结果是（ ）
A、13 B、17 C、21 D、33 7、下列程序段的执行结果是（ ） For i=0 to 10 M=2*i Next i M=M+1 Print M
A、30 B、31 C、20 D、21
8、设X初值为0，则下列循环语句执行后，X的值等于（ ） For i=1 to 10 step 2 X=X +i Next i
A、25 B、36 C、24 D、27
9、下列程序段中，若要使输出结果为输入的两个数中较大者的平方，空白处应填写（ ）语句。x=Val(InputBox(“请输入x的值：”)) y=Val(InputBox(“请输入y的值：”)) s=x:________ s=s*s print s
A、if（x
Private sub command1_click() n=val(text1.text) Select case n case 1 to 20 x=10 case 2,4,6 x=20 case is<10 x=30 case 10 x=40 end select text2.text=x end sub
程序运行后，如果在文本框text1中输入10，然后单击命令按钮，则在Text2中显示的内容是（ A、10 B、20 C、30 D、40
二、填空题
1、以下循环的执行次数是________。 k=0 do
while k<=10 k=k+1 print k loop
2、执行下面的程序后，s值是_______。 s=5
for i=2.6 to 4.9 step 0.6
s=s+1
）