Visual Basic程序设计练习题
一、填空题
1．当进入VB集成环境，发现没有显示“工具箱”窗口时，应选择 菜单的 选项，使“工具箱”窗口显示。
2．当对命令按钮的Picture 属性装入 .bmp图形文件后，选项按钮上并没有显示所需的图形，原因是没有对 属性设置为1（Graphical）。
3．在文本框中，通过 属性能获得当前插入点所在的位置。
4．要对文本框中已有的内容进行编辑，按下键盘上的按键，就是不起作用，原因是设置 属性为True。
5．在窗体上已建立多个控件如Text1、Label1、Command1，若要使程序一运行焦点就定位在Command1控件上，应把Command1控件的 属性的值设置为 。
6．在VB中，1234、123456＆、1.2346E+5、1.2346D+5四个常数分别表示 、 、 、 。
7．整型变量x中存放了一个两位数，要将两位数交换位置，例如，13变成31，实现的表达式是 。
8．表示x是5的倍数或是9的倍数的逻辑表达式为 。
9．已知a=3.5，b=5.0，c=2.5，d=True，则表达式：a>=0 AND a+c>b+3 OR NOT d的值是 。
10．Int(-3.5)、Int(3.5)值分别是 、 。 11．表达式Ucase(Mid(\的值是 。
12．要使下列For语句循环执行20次，循环变量的初值应当是：
For k = to -5 Step -2 13．下面程序段显示 个“*”。
For i = 1 To 5 For j = 1 To i Print \Next j Next i
14．复选框 属性设置为2－Grayed时，变成灰色，禁止用户选择。 15． 属性设置为1，单选按钮和复选框的标题显示在左边。 16． 属性设置为1，单选按钮和复选框以图形方式显示。
17．在程序运行时，如果将框架的 属性设为False，则框架的标题呈灰色，表示
框架内的所有对象均被屏蔽，不允许用户对其进行操作。 18．列表框中项目的序号是从 开始的。
19． 表示列表框中最后一项的序号。 20． 方法可清除列表框的所有内容。
21．组合框是组合了文本框和列表框的特性而形成的一种控件。 风格的组合框不允许用户输入列表框中没有的项。
22．VB程序存贮在模块中，模块分有 __________ 、 __________ 和 ___________ 三种类型。
1
23．如果要每隔15秒产生一个Timer事件，则Interval属性应设置为 。 24． 函数将返回系统的时间。
25．菜单的热键指使用 键和菜单项标题中的一个字符来打开菜单。建立热键的方法是在菜单标题的某个字符前加上一个 符号，在菜单中这一字符会自动加上 ，表示该字符是一个热键字符。
26．如果在建立菜单时在标题文本框中输入一个“ ”，那么菜单显示时形成一个
分隔线。
27．在Visual Basic中，提供 、 、 三种键盘事件，
窗体和接受键盘输入的控件都识别这三种事件。
28．大多数控件能够识别鼠标的 、 和 事件，通
过响应这些鼠标事件，能在应用程序对鼠标位置及状态的变化做出响应操作。
二、选择题
1．Visual Basic是一种面向对象的可视化程序设计语言，采取了 的编程机制。 A．事件驱动 B．按过程顺序执行 C．从主程序开始执行 D．按模块顺
序执行
2．在Visual Basic中最基本的对象是 ，它是应用程序的基石，是其他控件的容器。
A．文本框 B．命令按钮 C．窗体 D．标签
3．多窗体程序是由多个窗体组成。在缺省情况下，VB在应用程序执行时，总是把 指定为启动窗体。
A．不包含任何控件的窗体 B．设计时的第一个窗体 C．包含控件最多的 D．命名为Frm1的窗体 4．若有程序代码如下： text1.text=\
则：text1，text和 \分别代表 。
A．对象，值，属性 B．对象，方法，属性 C．对象，属性，值 D．属性，对象，值
5．Visual Basic是一种面向对象的程序设计语言， 不是面向对象系统所包含的三要素。
A．变量 B．事件 C．属性 D．方法
6．在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，必不可少的窗口是 。
A．窗体布局窗口 B．立即窗口 C．代码窗口 D．监视窗口 7．保存新建的工程时，默认存放的位置是 。
A．My Documents B．VB98 C．\\ D．Windows 8．若要使标签控件显示时不覆盖其背景内容，要对 属性进行设置。
A．BackColor B．BorderStyle C．ForeColor D．BackStyle 9． 若要使命令按钮不可操作，要对 属性设置。
A．Enabled B．Visible C．BackColor D．Caption 10．文本框没有 属性。
A．Enabled B．Visible C．BackColor D．Caption 11．不论何控件，共同具有的是 属性。
A．Text B．Name C．ForeColor D．Caption
2
12．要使Form1窗体的标题栏显示“欢迎使用VB”，以下 语句是正确的。
A．Form1.Caption = “欢迎使用VB” B．Form1.Caption= ' 欢迎使用VB ' C．Form1.Caption = 欢迎使用VB D．Form1.Caption = \欢迎使用VB\
13．要使某控件在运行时不可显示，应对 属性进行设置。
A．Enabled B．Visible C．BackColor D．Caption 14．当运行程序时，系统自动执行启动窗体的 事件过程。
A．Load B．Click C．Unload D．GotFocus 15．当文本框的ScrollBars属性设置了非零值，却没有效果，原因是 。 A．文本框中没有内容 B．文本框的MultiLine属性为False C．文本框的MultiLine属性为True D．文本框的Locked属性为True 16．要判断在文本框是否按了Enter键，应在文本框的 事件中判断。
A．Change B．KeyDown C．Click D．KeyPress 17．窗体Form1的Name属性是Frm1，它的单击事件过程名是 。
A．Form1_Click B．Form_Click C．Frm1_Click D．Me_Click 18．在一行内写多条语句时，每个语句之间用符号 分隔。
A． , B． : C． 、 D． ； 19．一句语句要在下一行继续写，用 符号作为续行符。
A．+ B．－ C． _ D．… 20．下面 是合法的变量名。
A．X_yz B．123abc C．integer D．X－Y 21．下面 是不合法的整常数。
A．100 B．＆O100 C．＆H100 D．0 22．下面 是合法的字符常数。
A．ABC$ B．\ C． 'ABC ' D．ABC 23．下面 是合法的单精度型变量。
A．num! B．sum% C．xinte$ D．mm# 24．下面 是不合法的单精度常数。
A．100！ B．100.0 C．1E+2 D．100.0D+2 25．表达式16/4-2^5*8/4 mod 5\\2的值为 。
A．14 B．4 C．20 D．2 26．数学关系3≤x＜10表示成正确的VB表达式为 。
A．3<=x<10 B．3<=x AND x<10
C．x>=3 OR x<10 D．3<=x AND <10
27．\\、/、MOD、*四个算术运算符中，优先级别最低的是 。
A．\\ B．/ C．MOD D．* 28．Rnd函数不可能为下列 值。
A．0 B．1 C．0.1234 D．0.0005 29．Int(198.555*100+0.5)/100的值为 。
A．198 B．199.6 C．198.56 D．200 30．已知A$=\，则表达式Val(Left$(A$,4)+Mid$(A$,4,2))的值为 。 A．123456 B．123445 C．8 D．6 31．表达式的Len(\程序设计ABC\的值是 。
3
A．10 B．14 C．20 D．17 32．表达式的LenB(\程序设计ABC\的值是 。
A．10 B．14 C．20 D．17 33．下面正确的赋值语句是 。
A．x+y=30 B．y=π*r*r C．y=x+30 D．3y=x 34．为了给x，y，z三个变量赋初值1，下面正确的赋值语句是 。
A．x=1:y=1:z=1 B．x=1,y=1,z=1 C．x=y=z=1 D．xyz=1 35．赋值语句：a=123 + MID(\执行后，a变量中的值是 。
A．\ B．123 C．12334 D．157 36．赋值语句：a=123 & MID(\执行后，a变量中的值是 。
A．\ B．123 C．12334 D．157 37．把字符串“123”转换为数值 123 时应该使用的函数是 。
A．Str B．Val C．Len D．Log 38．下列各表达式能产生[1，3]随机整数的是 。
A．rnd()* 3+1 B．rnd()*2) +1 C．int(rnd()*２)+1 D．int(rnd()*3)+1
2xexSin(300)lnx39．代数式对应的VB表达式是 。
x?yA．E^X*Sin(30*3.14/180)*2*x/x+y*log(x) B．Exp(x)*Sin(30)*2*x/(x+y)*ln(x)
C．Exp(X)*Sin(30*3.14/180)*2*x/(x+y)*log(x) D．Exp(X)*Sin(30*3.14/180)*2*x/(x+y)*ln(x)
40．VB提供了结构化程序设计的三种基本结构，三种基本结构是 。
A．递归结构、选择结构、循环结构 B．选择结构、过程结构、顺序结构 C．过程结构、输入、输出结构、转向结构 D．选择结构、循环结构、顺序结构 41．下面程序段运行后，显示的结果是 。
Dim x
If x Then Print x Else Print x + 1
A．1 B． 0 C．显示出错信息 D．2 42．语句If x=1 Then y=1，下列说法正确的是 。
A．x=1 和y=1 均为赋值语句 B．x=1 和 y=1 均为关系表达式
C．x=1为关系表达式，y=1为赋值语句 D．x=1为赋值语句，y=1为关系表达式
43．用If语句表示分段函数 √x+1 , x>=1
f(x)= x2+3 , x<1
下列不正确的程序段是 。
A．If x>=1 Then f=sqr(x+1) B．If x>=1 Then f=sqr(x+1) f=x*x+3 If x<1 Then f=x*x+3
C．If x>=1 Then f=sqr(x+1) Else f=x*x+3 D．If x<1 Then f=x*x+3 Else f=sqr(x+1) 44．计算分段函数的值。 0 x<0 1 0≤x<1
y= 2 1≤x<2
4
3 x≥2
下面程序段中正确的是 。
A．If x<0 Then y=0 B．If x>=2 Then y=3 If x<1 Then y=1 If x>=1 Then y=2 If x<2 Then y=2 If x>0 Then y=1 If x>=2 Then y=3 If x<0 Then y=0 C．If x<0 Then D．If x>=2 Then y=0 y=3
ElseIf x>0 Then ElseIf x>=1 Then y=1 y=2
ElseIf x>1 Then ElseIf x>=0 Then y=2 y=1 Else Else y=3 y=0 End If End If 45．下面程序段，显示的结果是 。 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． 不通过 46．下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不
正确的语句是 。
A．If sex = \男\教授\
B．If sex = \男\教授\副教授\C．If sex = \男\教授\
D．If sex = \男\教授\副教授\47．下面程序段求两个数中的大数， 不正确。
A．Max=IIf(x>y , x , y) B．If x>y Then Max=x Else Max=y C．Max=x D．If y>=x Then Max=y If y>x Then Max=y Max=x
48．以下 是正确的For … Next结构。
A．For x=1 To Step 10 B．For x=3 To –3 Step -3 … … Next x Next x
C．For x=1 To 10 D．For x=3 To 10 Step 3 Re: … … Next x Next y If I=10 Then Goto Re
5