vb习题集给学生.docx
《vb习题集给学生.docx》由会员分享，可在线阅读，更多相关《vb习题集给学生.docx（84页珍藏版）》请在冰豆网上搜索。
vb习题集给学生
VB习题集（2017版）
第一章习题
一、选择题
1.以下不能在"工程资源管理器"窗口中列出的文件类型是（）。
（A）.bas（B）.res（C）.frm（D）.ocx
2.以下不属于VisualBasic系统的文件类型是（）。
（A）.frm（B）.batC）.vbgD）.vbp
3.以下叙述中错误的是（）。
（A）打开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件
（B）保存VisualBasic程序时，应分别保存窗体文件及工程文件
（C）VisualBasic应用程序只能以解释方式执行
（D）事件可以由用户引发，也可以由系统引发
4.以下叙述中错误的是（）。
（A）VisualBasic是事件驱动型可视化编程工具
（B）VisualBasic应用程序不具有明显的开始和结束语句
（C）VisualBasic工具箱中的所有控件都具有宽度（Width）和高度（Height）属性
（D）VisualBasic中控件的某些属性只能在运行时设置
5.下列不能打开属性窗口的操作是（）。
（A）执行“视图”菜单中的“属性窗口”命令
（B）按F4键
（C）按Ctrl+T
（D）单击工具栏上的“属性窗口”按钮
6.假定一个VisualBasic应用程序由一个窗体模块和一个标准模块构成。
为了保存该应用程序，以下正确的操作是（）。
（A）只保存窗体模块文件
（B）分别保存窗体模块、标准模块和工程文件
（C）只保存窗体模块和标准模块文件
（D）只保存工程文件
7.以下叙述中错误的是（）。
（A）在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件
（B）以.BAS为扩展名的文件是标准模块文件
（C）窗体文件包含该窗体及其控件的属性
（D）一个工程中可以含有多个标准模块文件
8.下列可以打开立即窗口的操作是（）。
（A）Ctrl+D（B）Ctrl+E（C）Ctrl+F（D）Ctrl+G
9.在VB开发集成环境中，如果工具箱不可见，应在（）主菜单中操作而使它可见。
（A）视图 （B）窗口 （C）文件（D）编辑
10.在VB的工程中，窗体文件的扩展名是（）。
（A）.frm（B）.vbgC）.vbpD）.bas
11.下列可以打开菜单属性窗口的操作是（）。
（A）Ctrl+D（B）Ctrl+E（C）Ctrl+F（D）Ctrl+G
12.VB是一种面向对象的程序设计语言，构成对象的三要素是（）。
（A）属性、事件、方法（B）控件、属性、事件
（C）窗体、控件、过程（D）窗体、控件、模块
13．有程序代码：
Command1.Enabled=True，其中Command1、Enabled、True分别代表（）。
（A）对象、属性、值（B）对象、方法、属性
（C）对象、值、属性（D）属性、对象、值
14．如果要改变窗体的标题，则需要设置的属性是（）。
（A）Caption（B）Name（C）BackColor（D）BorderStyle
15．为了清除窗体上的一个控件，下列正确的操作是（）。
（A）按回车键（B）按Esc键
（C）选择（单击）要清除的控件，然后按Del键
（D）选择（单击）要清除的控件，然后按回车键
16．以下叙述中错误的是（）。
（A）一个工程可以包括多种类型的文件
（B）VisualBasic应用程序既能以编译方式执行，也能以解释方式执行
（C）程序运行后，在存中只能驻留一个窗体
（D）对于事件驱动型应用程序，每次运行时的执行顺序可以不一样
17．程序运行后，在窗体上单击鼠标，此时窗体不会接收到的事件是（）。
（A）MouseDown（B）MouseUp（C）Load（D）Click
18．以下没有Caption属性的控件是（）。
（A）CheckBox （B）Label （C）CommandButton （D）TextBox
19．以下关于窗体的描述中，错误的是（）。
（A）执行UnloadForm1语句后，窗体Form1消失，但仍在存中
（B）窗体的Load事件在加载窗体时发生
（C）当窗体的Enabled属性为False时，通过鼠标和键盘对窗体的操作都被禁止
（D）窗体的Height、Width属性用于设置窗体的高和宽
20．为了在运行时能显示窗体左上角的控制框（系统菜单），必须（）。
（A）把窗体的Contro1Box属性设置为False,其他属性任意
（B）把窗体的ControlBox属性设置为True,并且把BoderStyle属性设置为1-5
（C）把窗体的ControlBox属性设置为False,同时把BoderStyle属性设置为非0值
（D）把窗体的ControlBox属性设置为True,同时把BoderStyle属性设置为0值
21．TextBox的下列属性能够让用户接受多行文本的是（）。
（A）Name （B）MultiLine （C）Text （D）Autosize
22．设置TextBox控件文字颜色的属性是（）。
（A）Font （B）BackColor （C）ForeColor （D）ToolTipText
23．使一个控件不可用，应设置其（）属性。
（A）Visible （B）Enabled （C）Font （D）BackColour
24．一般不用来触发事件的对象是（）。
（A）标签（B）窗体（C）命令按钮（D）文本框
25．以下叙述中错误的是（）。
（A）双击鼠标可以触发DblClick事件
（B）窗体或控件的事件的名称可以由编程人员确定
（C）移动鼠标时，会触发MouseMove事件
（D）控件的名称可以由编程人员设定
26．在窗体上有若干控件，其中有一名称为Text1的文本框，影响Text1的Tab顺序的属性是（）。
（A）TabStop（B）Enabled（C）Visible（D）TabIndex
27．VisualBasic6.0集成开发环境有3种工作状态，工作状态显示在（）。
（A）在状态栏的中括号（B）窗体窗口的标题栏中
（C）标题栏的中括号（D）工程窗口的标题栏中
28．在VisualBasic工程中，可以作为“启动对象”的程序是（）。
A）任何窗体或标准模块B）任何窗体或过程
C）SubMain过程或其他任何模块D）SubMain过程或任何窗体
29．设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的是（）。
A）text1.maxlength=0B）text1.enabled=flase
C）text1.visible=flaseD）text1.width=0
30．以下能在窗体Form1的标题栏中显示“VisualBasic窗体"的语句是（）。
A）Form1.Name="VisualBasic窗体"B）Form1.Title="VisualBasic窗体"
C）Form1.Caption="VisualBasic窗体"D）Form1.Text="VisualBasic窗体”
二、填空题
1.当运行程序时，系统首先执行窗体的事件过程。
2.改变控件在窗体中的水平方向上的位置应修改该控件的属性。
3.不任什么对象，都具有属性。
4.在设计阶段，当双击窗体上的某个控件时，所打开的窗口是。
5.改变文本框的容能触发文本框的事件的操作。
6.窗体的Load事件在时发生。
7.要使Print方法在Form_load事件中起作用，要设置窗体的属性。
8.在窗体上有命令按钮OK，在代码编辑窗口有与之对应的CmdOK_Click（）事件，则命令按钮名称属性和Caption属性的值分别为。
9．为了把焦点移到某个指定的控件，所使用的方法是。
10．使一个控件不可见，应设置属性。
11．无论什么控件，都具有一个共有的属性，这个属性是。
12．要使得文本框输入的文本为密码，就要设置属性。
13．设置TextBox控件背景颜色的属性是。
14．VisualBasic应用程序中标准模块文件的扩展名是。
15、一个窗体的名称为frmEg，则该窗体的单击事件过程名为。
16、在VB应用程序中，控件常被用来在单击时执行指定的操作。
17.VisualBasic应用程序通常由3类模块组成，即标准模块、类模块和。
18.设置文本框或者标签控件显示容文字的字体名称时使用属性。
19.设置文本框或者标签控件显示容文字的大小时，使用属性。
20.VB中一个应用程序称为一个，它包含各种文件。
第二章习题
一选择题
1定义货币类型数据应该用关键字（）。
（A）SINGLE（B）DOUBLE（C）CURRENCY（D）BOOLEAN
2.下列的几对数据类型中，（）所占的存大小相同。
（A）Long，Single（B）Byte，Single
（C）Integer，Double（D）Date，Long
3.下列（）数据类型的变量不能存放负值。
（A）Integer（B）Long（C）Double（D）Byte
4.货币型数据需（）字节。
（A）2（B）4（C）6（D）8
5.声明符号常量应该用关键字（）
（A）Static（B）Const（C）Private（D）Variant
6.“计算机”作为字符串常量，在VB中可以表示为（）。
（A）{计算机}（B）（计算机）（C）计算机（D）"计算机"
7.VB认为下面（）组变量是同一个变量。
（A）A1和a1（B）SUM和SUMMARY（C）AVER和AVERAGE （D）A1和A_1
8.下列字符串常量中，最大的是（）。
（A）“”（B）“”（C）“”（D）“”
9.系统符号常量可以通过（）获得。
（A）对象浏览器（B）代码窗口（C）属性窗口（D）工具箱
10.在VB中，36&是（）类型的常数。
（A）整型数（B）长整型数（C）字符常数（D）双精度数
11.假定bln1是逻辑型变量，下面赋值语句中正确的是（）。
（A）bln1=’True’（B）bln1=.True.（C）bln1=#True#（D）bln1=3<4
12.表达式25.28Mod6.99的值是（）。
（A）1（B）5（C）4（D）出错
13．以下可以作为VB变量名的是（）。
（A）sub（B）CO1（C）COS（X）（D）X（-1）
14．在一个语句行写多条语句时，语句之间应该用（）分隔。
（A）逗号（B）分号（C）顿号（D）冒号
15．设a=10，b=5，c=1，执行语句Printa>b>c后，窗体上显示的是（）。
（A）True（B）False（C）1（D）出错信息
16．下列为日期型常量的是（）。
（A）”2/1/02”（B）2/1/02（C）#2/1/02#（D）|2/1/02|
17．以下对变量的类型说明符的使用不正确的是（）。
（A）a=2000（B）a%=50000（C）a&=True（D）a$=”OK”
18．以下声明语句中错误的是（）。
（A）Constvar1=123（B）Dimvar2='ABC'
（C）DefInta-z（D）Staticvar3AsInteger
19．以下合法的VisualBasic标识符是（）。
（A）ForLoop（B）Const（C）9abc（D）a#x
20．下列对变量的定义中，不能定义A为变体变量的是（）。
（A）DIMAASDOUBLE（B）DIMAASVARIANT
（C）DIMA（D）A=24
21．设有变量声明DimTestDateasDate，为变量TestDate正确赋值的表达式是（）。
（A）TestDate=#1/1/2002#（B）TestDate=#“1/1/2002”#
（C）TestDate=date（“1/1/2002”）（D）TestDate=format（“m/d/yy”,“1/1/2002”）
22．Rnd函数不可能产生的（）值。
（A）0（B）1（C）0.1234（D）0.00005
23．表达式（7\3+1）*（18\5-1）的值是（）。
（A）8.76（B）7.8（C）6（D）6.67
24．以下关系表达式中，其值为False的是（）。
（A）"ABC">"AbC"（B）"the"<>"they"
（C）"VISUAL"=UCase（"Visual"）（D）"Integer">"Int"
25．下列符合常量的声明中，（）是不合法的。
（A）constMaxAsInteger=100（B）ConstPiAsDouble＝3.1415926
（C）ConstxAsSingle＝Log
（2）（D）Constx=”123”
26．表达式4+5\6*7/8Mod9的值是（）。
（A）4（B）5（C）6（D）7
27．在下面的表达式中，x取任何值都成立的表达式是（）。
（A）Int（x）>=Abs（x）（B）Int（x）>Abs（x）
（C）Int（x）<=Abs（x）（D）Int（x）<>Abs（x）
28．下列可作为VisualBasic变量名的是（）。
A）A#AB）4AC）?
xyD）constA
29．如果在立即窗口中执行以下操作：
a=8（是回车键，下同）
b=9
printa>b
则输出结果是（）。
A）-1B）0C）FalseD）True
30．设a=3，b=5，则以下表达式的值为真的是（）。
A）a>=bandb>10B）（a>b）or（b>0）C）（a<0）eqv（b>0）D）（-3+5>a）and（b>0）
二填空题
1.表达式3≤X≤10的VB表达式为。
2.设a=3，b=5，则表达式（a>b）or（b>0）的值为。
3.表示条件“A为能被3或7整除的数”的逻辑表达式为。
4.变量未赋值时，数值型变量的值为。
5.INT（100*RND
（1））产生的随机整数的闭区间是。
6.函数Len（trim（Str（Val（“123.4”））））的值是。
7.表达式：
XMODy/2（x=3，y=6）的值是。
8.代数式a≤b＜c改写成VisualBasic表达式为。
9.若要强制变量必须先定义再使用，应该使用的说明语句是。
10.表示条件“M是小于100的非负数”的表达式为。
11.表达式2+3*4^3-SIN（X+1）/2中最先进行的运算是这一步。
12.产生[10，36]之间的随机整数的VisualBasic表达式是。
13.设a=6，则执行x=IIf（a>5,-1,0）后，x的值为。
14.表示条件“x的绝对值大于等于y同时不等于z”的逻辑表达式为。
15.语句PrintFormat（32458.5,“000,000.00”）的输出结果为。
16.int（-3.5）、fix（-3.5）的值分别是。
17.表达式4+5\6*7/8Mod9的值是。
18.如果在立即窗口中执行以下操作：
a=8（是回车键，下同）
b=9
printa>b
则输出结果是。
19.设x=4,y=8,z=7，以下表达式xz）Orz20.运算符“&”是运算。
21.表达式（-1）*Sgn（-100+Int（Rnd*100））的值是。
22.语句PRINT“INT（-13.2）=”；INT（-13.2）的输出结果是。
23.设a="a"，b="b"，c="c"，d="d"，执行语句x=IIf（（a24.\，/，Mod，*等4个算术运算符中，优先级最低的是。
25.语句Print5/4*6\5Mod2的输出结果是。
26.设a=5，b=4，c=3，d=2表达式3>2*bOra=cAndb<>cOrc>d的值是。
27.执行语句s=Len（Mid（"VisualBasic",1,6））后，s的值是。
28.可以同时删除字符串前导和尾部空白的函数是。
29.Cint（8.5）、Fix（-3.5）的值分别是。
30.执行如下两条语句，窗体上显示的是。
a=9.8596
PrintFormat（a,"$00,00.00"）
31.变量未赋值时，数值型变量与字符型变量的的值分别是。
32.强制显示声明变量，应放在模块的段中加入语句OPTIONEXPLICIT。
33.表达式INT（8*SQR（36）*10^（-2）*10+0.5）/10的值是。
34.设A=”abcdefghijklm”，的函数值为”jklm”。
35.函数Ucase（Mid（“visualbasic”,8,8））的值为。
36.表达式8＝8＝8的值是。
37.语句PrintInt（12345.6789*100+0.5）/100输出的结果是。
38.字符型数据的比较是将两个字符串中的字符逐对进行比较，比较的是字符码值。
39.函数MSGBOX的返回值是一个数。
40.表达式TrueOrNot（7-3<=4）的值。
三程序填空题
1.下列程序运行后，消息框中提示信息是
，程序执行的结果是
。
PrivateSubCommand1_Click（）
a="VisualBasic"
MsgBoxa,34,"VB程序设计"
PrintMid（a,8,5）
EndSub
2.在窗体上画一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序：
PrivateSubCommand1_Click（）
a=InputBox（"请输入日期（1~31）"）
t="旅游景点：
"_
&IIf（a>0Anda<=10,"长城",""）_
&IIf（a>10Anda<=20,"故宫",""）_
&IIf（a>20Anda<=31,"颐和园",""）
Text1.Text=t
EndSub
程序运行后，如果从键盘上输入16，则在文本框显示的容是
，如果输入9，则在文本框中显示的容是
。
3.在窗体上画一个命令按钮，名称为Command1。
单击命令按钮时，执行如下事件过程：
PrivateSubCommand1_Click（）
a="softwareandhardware"
b=Right（a,8）
c=Mid（a,1,8）
MsgBoxa,,b,c,1
EndSub
则在弹出的信息框的标题栏中显示的信息是
，
信息框中提示的信息是
。
4.在窗体上画一个名称为Command1的命令按钮，单击命令按钮，编写如下事件过程:
PrivateSub
c=1234
c1=Trim（Str（c））
ForI=1To4
Print
Next
EndSub
程序运行后，单击命令按钮，要求在窗体上显示如下容,请完善这个程序的编写。
1
12
123
1234
5．下列程序段的功能是判别一个数m是否是素数，请完善程序代码。
PrivateSubcommand1_click（）
DimIAsInteger,mAsInteger
m=InputBox（""）
ForI=2Tom-1
IfmModI=0Then
NextI
If
Then
Printm;"是素数。
"
Else
Printm;"不是素数。
"
EndIf
EndSub
6．以下程序判断从文本框Text1中输入的数据，如果该数据是奇数，则输出；如果该数据是偶数，则弹出对话框”请输入奇数”，并将焦点定位在文本框Text1中，请完善这个程序。
PrivateSubCommand1_Click（）
x=Val（Text1.Text）
If
Then
Printx
ElseIf
Then
MsgBox"请输入奇数！
"
Text1=""
Text1.SetFocus
EndIf
EndSub
7.在窗体上画两个文本框，然后编写如下程序：
PrivateSubForm_Load（）
Show
Text1.Text=""
Text2.Text=""
Text1.SetFocus
EndSub
PrivateSubText1_Change（）
Text2.Text=Mid（Text1.Text,8）
PrintLeft（Trim（Text1.Text）,7）
EndSub
程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的容是
，在窗体上显示的信息是
8.下列程序运行后，单击窗体，则在弹出的信息框的标题栏中显示的信息是Basic，信息框中提示信息是Microsoft，请完善这个程序。
PrivateSubForm_Click（）
K$="MicrosoftVisualBasic"
A$=
b$=
c$=Mid（a$,1,9）
MsgBoxa$,34,b$,c$,5
EndSub
9.下面是一个歌手大赛评分程序。
10位评委，除去一个最高分和一个最低分，计算平均分（设满分为10分）。
请在横线处填入适当的容，将程序补充完整。
PrivateSubCommand1_Cl
升级会员 