VB笔试习题练习Word格式.docx
《VB笔试习题练习Word格式.docx》由会员分享，可在线阅读，更多相关《VB笔试习题练习Word格式.docx（25页珍藏版）》请在冰豆网上搜索。
16.对初学者而言,调试程序方便,有效的手段是（A）。
A.在可疑的代码处设置断点，逐语句跟踪B.查看资料C.通过”立即”窗口显示变量的值D.找老师问原因
17.在代码窗口,代码下方有蓝色波浪线表示（B）。
A.对代码设置了格式B.编译语法错误C.逻辑错误D.运行时错误
二.填空题
1.VB.NET是完全面向对象的程序设计语言，其最大的特点是____引入了.net框架_____
2.____可视化编成技术____技术能让编程人员不必编写代码就可以创建GUI（图形用户界面）。
3.___解决方案____是由一个或几个项目组成的VB.NET程序。
4.当___自动隐藏___特性设置后，浮动窗口将自动隐藏。
5.当进入VB.NET集成环境，发现没有显示“工具箱”窗口，应选择___视图___菜单的___工具箱___。
6．要同时保存解决方案中的每个文件，最方便的方法是单击工具栏的____全部保存_____按钮。
7．对象属性是指____对象的性质来描述和反应对象特征的参数_____。
8．对象的方法是指________对象的动作、行为______。
9．在刚建立项目时，使窗体上的所有控件具有相同的字体格式，应对__Form窗体__的___Font___属性进行设置。
10．属性窗口的属性可以按照_____分类顺序______和_____字母顺序_____顺序排列。
11．当对命令按钮的Image属性装入.bmp图形文件后，按钮上并没有显示所需的图形，原因是对__FlatStyle__属性设置为_____System____。
12．若已建立了Form1，Form2两个窗体，默认启动窗体为Form1。
通过__项目__菜单的__属性___的__常规__选项卡，可将启动对象设置为Form2。
13．在文本框中，通过_____SelectionStart_____属性能获得当前插入点所在的位置。
14．要对文本框中已有的内容进行编辑，按下键盘上的按钮，就是不起作用，原因是设置了__ReadOnly__的属性为True。
15．在窗体上已建立多个控件，如TextBox1，Label1，Button1，若要使程序一运行焦点就定位在Button1控件上，应对Button1控件设置____TabIndex_____属性的值为_____0_____。
第二章VB.NET语言基础和顺序结构
一.选择题
1.在一个语句内写多条语句时，每个语句之间用（B）符号分隔。
A．，B.：
C.、D.；
2.一语句要在下一行继续写，用（C）符号作为续行符。
A.+B.-C._D.…
3.下面属于合法的变量名的是（A）。
A.X_yzB.123abcC.IntegerD.X-Y
4.下面属于不合法的整常数的是（D）.
A.100B.&
O100C.&
H100D.%100
5.下面属于合法的字符常数的是（B）。
A.ABC$B.“ABC”C.‘ABC’D.ABC
6.下面属于合法的单精度型变量的是（A）。
A.mun！
B.sum%D.xinte$D.mm#
7.下面属于不合法的双精度常数的是（D）。
A.100#B.100.0C.1E+2D.100.0D+2
8.表达式16/4-2＾5*8/4Mod5\2的值为（B）。
Ａ.１４ Ｂ.４ Ｃ.２０ Ｄ.２
9.数学关系表达式３≤x＜10表示成正确的VB.NET表达式为（B）。
A．3<
=x<
10B.3<
=xANDx<
10C.x>
=3ORx<
10D.3<
=xAND<
10
10.\、/、Mod、*四个算术运算符中，优先级别最低的是（C）。
A.\B./C.ModD.*
11.与数学表达式ab/（3cd）对应，VB.NET的不正确表达式是（D）。
A.a*b/（3*c*d）B.a/3*b/c/dC.a*b/3/c/dD.a*b/3*c*d
12.Rnd函数不可能为下列（B）值。
A.0B.1C.0.1234D.0.0005
13.Int（198.555*100+0.5）/100的值是（C）。
A.198B.199.6C.198.56D.200
14.已知A$=“12345678”，则表达式Val（Mid（A,1,4）+Mid（A,4,2））的值为（B）。
A.123456B.123445C.8D.6
15.MsgBox（DateAdd（“m”,2，#1/28/2005#））语句显示结果是（A）。
A.2005-3-28B.2005-1-30C.2007-1-28D.2003-1-28
16.表达式DateDiff（“y”,#12/30/1999#,#1/13/2000#）的结果是（C）。
A.1B.11C.14D.99
17.表达式Len（“123程序设计ABC”）的值是（A）。
A．10B.14C.20D.17
18．下面正确的赋值语句是（C）。
A．x+y=30B.y=∏*r*r;
C.y=x+30D.3y=x
19.为了给x、y、z三个变量赋初值1，下面正确的赋值语句是（A）。
A.x=1:
y=1:
z=1B.x=1,y=1,z=1C.x=y=z=1D.xyz=1
20.赋值语句“a=123+MID（“123456”,3,2）”执行后，a变量中的值是（D）。
A.“12334”B.123C.12334D.157
21．赋值语句“a=123&
MID（“123456”,3,2）”执行后，a变量中的值是（A）。
22.已知a=12，b=20，复合赋值语句“a*=b+10”执行后，a变量中的值是（D）。
A.50B.250C.30D.360
1．在VB.NET中，1234%，123456!
，1.2346E+5三个常数分别表示_____整型____，___单精度型____，____双精度型____类型。
2．整型变量x中存放了一个两位数，要将两位数交换位置，例如，13变成31，实现表达式是_____（xmod10）*10+x\10____。
3．表示x是5的倍数或是9的倍数的逻辑表达式为____xmod5=0Orxmod9=0_____。
4.已知a=3.5，b=5.0，c=2.5，d=True，则表达式a>
=0ANDa+c>
b+3ORNOTd的值是___False____。
5.Int（-3.5）、Int（3.5）、Fix（-3.5）、Fix（3.5）、Round（3.5）的值分别是__-4__、__3__、__-3_、__3_、__-4_、__4_。
6.表达式UCase（Mid（“abcdefgh”，3，4））的值是____CDEF_____。
7.在直角坐标系中，x、y是坐标系中任意点的位置，用x和y表示在第一象限或第三象限的表达是_____x>
0andy>
0Orx<
0andy<
0_____。
8.要显示当前机器内日期，函数为____Now_____。
9.计算离你毕业（假定2008年6月30日毕业）还有多少个星期的函数表达式是_____DateDiff（“w”,Now,#6/30/2008#）_____。
10.表示s字符变量是字母字符（大小写字母不区分）的逻辑表达式为_____UCase（s）>
=“A”andUcase（s）<
=“Z”______。
11.下面程序随机产生一个三位正整数，然后逆序输出，产生的数与逆序数同时显示。
例如，产生246，输出是642。
SubButton1_Click（......）HandlesButton1.Click
Dimx,yAsInteger
x=Int（____Rnd（）*900+100_____）
y=（xMod10）*100+____（（xmod100）\10）*10____+x\100
MsgBox（“x=”&
x&
“y=”&
y）
EndSub.
第三章选择结构
一、选择题：
1．VB.NET提供了结构化程序设计的三种基本结构，三种基本结构是（D）。
A.递归结构，选择结构，循环结构B.选择结构，过程结构，顺序结构
C.过程结构，输入输出结构，转向结构D.选择结构，循环结构，顺序结构
2．按照结构化程序设计的要求，下面（C）语句是非结构化程序设计语句。
A．if语句B.For语句C.GoTo语句D.SelectCase语句
3.下面程序段运行后，显示的结果是（A）。
Dimx%
IfxThenMsgBox（x）ElseMsgBox（x+1）
A.1B.0C.-1D.显示出错信息
4．语句“Ifx=1Theny=1”下列说法正确的是（C）。
A.“x=1”和“y=1”均为赋值语句
B．“x=1”和“y=1”均为关系表达式
C．“x=1”为关系表达式“y=1”为赋值语句
D．“x=1”为赋值语句“y=1”为关系表达式
5．下面程序段显示的结果是（A）。
Dimx%
x=Int（Rnd）+5
SelectCasex
Case5
MsgBox（“优秀”）
Case4
MsgBox（“良好”）
Case3
MsgBox（“通过”）
CaseElse
MsgBox（“不通过”）
EndSelect
A.优秀B.良好C.通过D.不通过
6.下面If语句统计满足性别（sex）男、职称（duty）为副教授以上、年龄（age）小于40岁条件的人数，正确的语句是（A）。
A.Ifsex=“男”Andage<
40AndInStr（duty,“教授”）>
0Thenn=n+1
B.Ifsex=“男”Andage<
40Andduty=“教授”orduty=“副教授”Thenn=n+1
C.Ifsex=“男”Andage<
40AndRight（duty,2）=“教授”Thenn=n+1
D.Ifsex=“男”Andage<
40Andduty=“教授”Andduty=“副教授”Thenn=n+1
7.下面程序段求两个数中的大数，（D）不正确。
A.Max1=IIf（x>
y,x,y）B.Ifx>
yThenMax1=xElseMax1=y
C.Max1=Math.Max（x,y）D.Ify>
=xThenMax1=yMax=x
8.下面三个程序设计段计算学生外语附加分：
外语6级（lang6）为“优秀”加15分，“通过”加10分；
外语4级（lang4）为“优秀”加8分，“通过”加4分。
外语附加分只能计一次最高的分数。
（A）能正确计算。
A.Iflang6=“优秀”Then
langf=15
ElseIflang6=“合格”Then
langf=10
ElseIflang4=“优秀”Then
langf=8
ElseIflang4=“合格”Then
langf=4
Endif
BIflang4=“合格”Then
langf=4
ElseIflang4=“优秀”Then
ElseIflang6=“合格”Then
ElseIflang6=“优秀”Then
Endif
C.Iflang6=“优秀”Thenlangf=15
Iflang6=“合格”Thenlangf=10
Iflang4=“优秀”Thenlangf=8
Iflang4=“合格”Thenlangf=4
D.Iflang4=“合格”Thenlangf=4
Iflang4=“优秀”Thenlangf=8
Iflang6=“合格”Thenlangf=10
Iflang6=“优秀”Then
langf=15
Else
langf=0
Endif
9.下面语句执行后，变量w中的值是（B）。
w=Choose（Weekday（“2005,5,1”）,“Red”,“Green”,“Blue”,“Yellow”）
A.NothingB.“Red”C.“Green”D.“Yellow”
1．当C字符串变量中第三个字符是“C”时，利用MsgBox显示“Yes”，否则显示“No”。
（1）If____Mid（c，3，1）=“C”_____ThenMsgBox（“yas”）ElseMsgBox（“No”）
2.程序运行后输出的结果是___7____。
x=Int（Rnd）+3
Ifx^2>
8Theny=x^2+1
Ifx^2=9Theny=x^2-2
Ifx^2<
8Theny=x^3
MsgBox（y）
3.下面程序的功能是______分别统计输入若干数的奇数和、偶数和，存放在m，n中_____。
Dimn%,m%
SubTextBox1_KeyPress（......）HandlesTextBox1.Keypress
IfAsc（e.KeyChar）=13Then
IfIsNumeric（TextBox1.Text）Then
SelectCaseVal（TextBox1.Text）Mod2
Case0
n=n+Val（TextBox1.Text）
Case1
m=m+Val（TextBox1.Text）
EndIf
TextBox1.Text=””
TextBox1.Focus（）
EndIf
EndSub
<
注意>
该题中统计括号个数的变量m,n若在过程内声明，程序会产生什么结果？
（2）
4．下面的程序段是检查输入的算术表达式中圆括号是否配对，并显示相应的结果。
本程序在文本框中输入表达式，边输入边统计，以输入回车符作为表达式输入结束，然后显示结果，如下图所示。
Dimcount1%
SubTextBox1_KeyPress（……………）HandlesTextBox1.KeyPress
If_____Me.KeyChar_____=“（”Then
count1+1
ElseIf____Me.KeyChar____=“）”Then
count1=___count1-1______
EndIf
IfAsc（e.KeyChar）=13Then
If____count1=0_____Then
MsgBox（“左右括号配对”）
ElseIfcount1>
0Then
MsgBox（_____“左括号多于右括号”&
count1&
“个”_____）
Else
MsgBox（“右括号多于左括号”&
“个”）
EndIf
该题中统计括号个数的变量count1若在过程内声明，程序会产生什么结果？
5．输入若干个字符，统计有多少个元音字母，有多少个其他字母，直到按Enter键结束，显示结果，大、小写不区分。
其中CountY中放元音字母个数，CountC中放其他字符数。
DimCountY%,CountC%
SubTextBox1_KeyPress（……………）HandlesTextBox1.KeyPress
DimcAsChar
c=________
If“A”<
=cAndc<
=“Z”Then
SelectCase_________
Case_________
CountY=CountY+1
CountC=CountC+1
EndSelect
If________Then
MsgBox（“元音字母有”&
CountY&
MsgBox（“其他字母有”&
CountC&
EndSub
6.用If语句，SelectCase语句两种计算方法计算分段函数
x^2+3x+2当x>
20
y=sqrt（3x）-2当10<
=20
1/2+|x|当x<
SubButton1_Click（....）HandlesButton1.Click
Dimx!
y!
x=Val（TextBox1.Text）
If___x>
20_____Then
y=x*x+3*x+2
ElseIf____x<
10_____Then
y=1/2+Math.Abs（x）
Else
y=Math.Sqrt（3*x）-2
MsgBox（“y=”&
y）
x=Val（TextBox1.Text）
SelectCasex
Case_____Is>
20_____
Case_____Is<
10_____
CaseElse
7.输入三角形的三边a、b、c的值，根据其数值，判断能否构成三角形。
若能，还要显示三角形的性质：
等边三角形、等腰三角形、直角三角形、任意三角形。
SubButton1_Click（....）HandlesButton3.Click
Dimx%,y%,z%
x=Val（InputBox（“inputx”））
y=Val（InputBox（“inputx”））
z=Val（InputBox（“inputx”））
If_____X+y>
zandx+z>
yandy+z>
x_____Then
Msgbox（“能构成三角形”）
If_____X=yandy=z____Then
Msgbox（“是等边三角形”
ElseIf____X=yOry=zOrx=z____Then
Msgbox（“是等腰三角形”）
ElseIfSqrt（x*x+y*y）=zOrMath.Sqrt（y*y+z*z）=xOrMath.Sqrt（x*x+z*z）=yThen
Msgbox（“是直角三角形”）
Else
____X=yOry=zOrx=z_____
EndIf
MsgBox（“不能构成三角形”）
8．输入一个年份，判断它是否为闰年，并显示是否是闰年的有关信息。
判断闰年的条件是：
年份能被4整除但不能被100整除，或能被400整除。
同时请用日期型变量的IsLeepYear成员来验证。
DimdAsDate
d=Now
If__d.yearmod4=0andd.yearmod100<
>
0d.year___Ord.yearMod400=0Then
MsgBox（d.Year&
“是闰年”）
“是平年”）
En
升级会员 