Visual Basic程序设计练习题
1．Visual Basic是一种面向对象的可视化程序设计语言，采取了 A 的编程机制。
A．事件驱动 B．按过程顺序执行 C．从主程序开始执行 D．按模块顺
序执行
2．在Visual Basic中最基本的对象是 C ，它是应用程序的基石，是其他控件的
容器。
A．文本框 B．命令按钮 C．窗体 D．标签
3．多窗体程序是由多个窗体组成。在缺省情况下，VB在应用程序执行时，总是把 B
指定为启动窗体。
A．不包含任何控件的窗体 B．设计时的第一个窗体 C．包含控件最多的 D．命名为Frm1的窗体 4．若有程序代码如下： text1.text=\
则：text1，text和 \isual Basic\分别代表 C 。
A．对象，值，属性 B．对象，方法，属性 C．对象，属性，值 D．属性，对象，值
5．Visual Basic是一种面向对象的程序设计语言， A 不是面向对象系统所包含
的三要素。
A．变量 B．事件 C．属性 D．方法
6．在VB集成环境创建VB应用程序时，除了工具箱窗口、窗体中的窗口、属性窗口外，
必不可少的窗口是 C 。
A．窗体布局窗口 B．立即窗口 C．代码窗口 D．监视窗口 7．保存新建的工程时，默认存放的位置是 B 。
A．My Documents B．VB98 C．\\ D．Windows 8．若要使标签控件显示时不覆盖其背景内容，要对 D 属性进行设置。
A．BackColor B．BorderStyle C．ForeColor D．BackStyle 9． 若要使命令按钮不可操作，要对 A 属性设置。
A．Enabled B．Visible C．BackColor D．Caption 10．文本框没有 D 属性。
A．Enabled B．Visible C．BackColor D．Caption 11．不论何控件，共同具有的是 B 属性。
A．Text B．Name C．ForeColor D．Caption 12．要使Form1窗体的标题栏显示“欢迎使用VB”，以下 D 语句是正确的。
A．Form1.Caption = “欢迎使用VB” B．Form1.Caption= ' 欢迎使用VB ' C．Form1.Caption = 欢迎使用VB D．Form1.Caption = \欢迎使用VB\
13．要使某控件在运行时不可显示，应对 B 属性进行设置。
A．Enabled B．Visible C．BackColor D．Caption 14．当运行程序时，系统自动执行启动窗体的 A 事件过程。
A．Load B．Click C．Unload D．GotFocus
1
15．当文本框的ScrollBars属性设置了非零值，却没有效果，原因是 B 。 A．文本框中没有内容 B．文本框的MultiLine属性为False C．文本框的MultiLine属性为True D．文本框的Locked属性为True 16．要判断在文本框是否按了Enter键，应在文本框的 D 事件中判断。
A．Change B．KeyDown C．Click D．KeyPress 17．窗体Form1的Name属性是Frm1，它的单击事件过程名是 C 。
A．Form1_Click B．Form_Click C．Frm1_Click D．Me_Click 18．在一行内写多条语句时，每个语句之间用符号 B 分隔。
A． , B． : C． 、 D． ； 19．一句语句要在下一行继续写，用 C 符号作为续行符。
A．+ B．－ C． _ D．… 20．下面 A 是合法的变量名。
A．X_yz B．123abc C．integer D．X－Y 21．下面 D 是不合法的整常数。
A．100 B．＆O100 C．＆H100 D．0 22．下面 B 是合法的字符常数。
A．ABC$ B．\ C． 'ABC ' D．ABC 23．下面 A 是合法的单精度型变量。
A．num! B．sum% C．xinte$ D．mm# 24．下面 D 是不合法的单精度常数。
A．100！ B．100.0 C．1E+2 D．100.0D+2 25．表达式16/4-2^5*8/4 mod 5\\2的值为 B 。
A．14 B．4 C．20 D．2 26．数学关系3≤x＜10表示成正确的VB表达式为 B 。
A．3<=x<10 B．3<=x AND x<10
C．x>=3 OR x<10 D．3<=x AND <10
27．\\、/、MOD、*四个算术运算符中，优先级别最低的是 C 。
A．\\ B．/ C．MOD D．* 28．Rnd函数不可能为下列 B 值。
A．0 B．1 C．0.1234 D．0.0005 29．Int(198.555*100+0.5)/100的值为 C 。
A．198 B．199.6 C．198.56 D．200 30．已知A$=\，则表达式Val(Left$(A$,4)+Mid$(A$,4,2))的值为 B 。 A．123456 B．123445 C．8 D．6 31．表达式的Len(\程序设计ABC\的值是 A 。
A．10 B．14 C．20 D．17 32．表达式的LenB(\程序设计ABC\的值是 C 。
A．10 B．14 C．20 D．17 33．下面正确的赋值语句是 C 。
A．x+y=30 B．y=π*r*r C．y=x+30 D．3y=x 34．为了给x，y，z三个变量赋初值1，下面正确的赋值语句是 A 。
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变量中的值是 D 。
A．\ B．123 C．12334 D．157
2
36．赋值语句：a=123 & MID(\执行后，a变量中的值是 A 。
A．\ B．123 C．12334 D．157 37．把字符串“123”转换为数值 123 时应该使用的函数是 B 。
A．Str B．Val C．Len D．Log 38．下列各表达式能产生[1，3]随机整数的是 D 。
A．rnd()* 3+1 B．rnd()*2) +1 C．int(rnd()*２)+1 D．int(rnd()*3)+1
2xexSin(300)lnx39．代数式对应的VB表达式是 C 。
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提供了结构化程序设计的三种基本结构，三种基本结构是 D 。
A．递归结构、选择结构、循环结构 B．选择结构、过程结构、顺序结构 C．过程结构、输入、输出结构、转向结构 D．选择结构、循环结构、顺序结构 41．下面程序段运行后，显示的结果是 A 。
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，下列说法正确的是 C 。
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 。
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
3 x≥2
下面程序段中正确的是 D 。
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
3
ElseIf x>1 Then ElseIf x>=0 Then y=2 y=1 Else Else y=3 y=0 End If End If 45．下面程序段，显示的结果是 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． 不通过 46．下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不
正确的语句是 D 。
A．If sex = \男\教授\
B．If sex = \男\教授\副教授\C．If sex = \男\教授\
D．If sex = \男\教授\副教授\47．下面程序段求两个数中的大数， D 不正确。
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．以下 B 是正确的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
49．下列循环语句能正常结束循环的是 C 。
A．i = 5 B．i=1 Do Do i = i + 1 i=i+2
Loop Until i < 0 Loop Until i=10
C．i = 10 D．i=6
Do Do i = i – 1 i=i-2 Loop Until i < 0 Loop Until i=1
4
