vb程序设计书习题和参考答案.docx
《vb程序设计书习题和参考答案.docx》由会员分享,可在线阅读,更多相关《vb程序设计书习题和参考答案.docx(56页珍藏版)》请在冰豆网上搜索。
vb程序设计书习题和参考答案
练习题
习题一
一、判断题
1.VisualBasic是以结构化的Basic语言为基础、以事件驱动作为运行机制的可视化程序设计语言。
2.面向对象的程序设计是一种以对象为基础,由事件驱动对象的编程技术。
3.事件是由VisualBasic预先定义的对象能够识别的动作。
4.新建工程时系统会自动将窗体标题设置为Form1。
5.控件的属性值不可以在程序运行时动态地修改。
6.决定对象是否可见的属性为Visible属性,决定对象可用性的属性是Enabled属性。
7.保存VisualBasic文件时,若一个工程包含多个窗体或模块,则系统先保存工程文件,再分别保存窗体或模块文件。
8.单击“启动”菜单项将窗体装入内存时,一定触发窗体的Load事件。
9.“事件过程”是用来完成事件发生后所要执行的程序代码。
10.在打开某窗体时,初始化该窗体中的各控件,应选用Load事件。
二、选择题
1.工程文件的扩展名为。
A、.frxB、.basC、.vbpD、.frm
2.下列不属于对象的基本特征是。
A、属性B、方法C、事件D、函数
3.在设计模式双击窗体将显示的窗口是
A、工程窗口B、工具箱C、代码窗口D、属性窗口
4.VB中运行程序的快捷键是
A、F2B、F5C、Alt+F3D、F8
5.改变控件在窗体中的上下位置应修改该控件的属性。
A、TopB、LeftC、WidthD、Right
6.窗体模块的文件扩展名是
A、.exeB、.basC、.frxD、frm
7.设置窗体的字体用属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic
8.设置窗体的字号用属性。
A、FontNameB、FontSizeC、FontBoldD、FontItalic
9.下列选项中不属于事件的是。
A、DblclickB、LoadC、ShowD、KeyUp
10.VB编制的程序保存在磁盘上,至少会产生何种文件。
A、.doc与.txtB、.com与.exe.C、.bat与.frmD、.vbp与.frm
三、程序设计题
1.新建一个工程,单击窗体时,在窗体上显示“欢迎使用VisualBasic程序”。
生成可执行文件,保存到D盘根目录下。
2.建立一个工程,界面如图1-28所示。
它由一个窗体、两个文本框和两个命令按钮组成。
单击“拷贝”按钮,可以将第一个文本框中显示的内容复制到第二个文本框中;单击“退出”按钮退出应用程序。
图1-28题2界面图1-29题3界面
3.在窗体上添加一个标签和两个命令按钮,并把两个命令按钮的标题分别设置为“隐藏标签”和“显示标签”。
当单击第一个命令按钮时,标签消失;而当单击第二个命令按钮时,标签重新出现,并且标签中显示“VB程序设计”。
界面如图1-29所示。
习题二
一、判断题
1.用DIM定义数值变量时,该数值变量自动赋初值为0。
2.整型数值常量有整数,长整数两种。
3在逻辑运算符Not、Or、And中,运算优先级由高到低依次为Not、Or、And。
4关系表达式是用来比较两个数据的大小关系的,结果为逻辑值。
5一个表达式中若有多种运算,同一层括号内,计算机按逻辑运算→关系运算→算术运算的顺序对表达式求值。
6赋值语句的功能是计算机表达式并转换为相同类型数据后为变量或控件属性赋值。
二、单选题
1.以下合法的VisualBasic标识符是_______。
A、ForLoopB、ConstC、9abcD、A#x
2.下列可作为VisualBasic变量名的是_________。
A、a#aB、4aC、?
xyD、Consta
3.表达式6*7/8Mod9的值是_______。
A、4B、5C、6D、7
4.将数学表达式cos2(a+b)+5e2写成VisualBasic表达式,其正确的形式是_______。
A、cos(a+b)^2+5*Exp
(2)B、cos^2(a+b)+5*Exp
(2)
C、cos(a+b)^2+5*Ln
(2)D、cos^2(a+b)+5*Ln
(2)
5.数学关系3≤x<10表示成正确的VB表达式为________。
A、3<=x<10B、3<=xandx<10
C、x>3orx<10D、3<=xand<10
6.设x=4,y=8,z=7,表达式xz)orzA、1B、-1C、TrueD、False
7.已知变量a、b、c中c最小,下列判别a、b、c能否构成三角形的逻辑表达式为_________。
A、a>=bandb>=candc>0B、a+c>bandb+c>aandc>0
C、(a+b>=cora-b<=c)andc>0D、a+b>canda-b0
8.下面进行算术运算符号的是_______。
A、ImpB、ModC、NotD、Like
9.可以同时删除字符串前导和尾部空白的函数是_______。
A、LtrimB、RtrimC、TrimD、Mid
10.Rnd函数不可能为下列_______值。
A、0B、1C、0.1234D、0.0005
11.Int(198.555*100+0.5)/100的值是_______。
A、198B、199.6C、198.56D、200
12.如果x是一个正实数,对x的第3位小数四舍五入的表达式是______。
A、0.01*Int(x+0.005)B、0.01*Int(100*(x+0.005))
C.、0.01*Int(100*(x+0.005))D.、0.01*Int(x+0.05)
13.执行语句s=len(Mid(“VisualBasic”,1,6))后,s的值为______。
A、VisualB、BasicC、6D、11
14.描述x、y中有一个小于z的逻辑表达式是_______。
A.x15.Int(Rnd*100)表示的是______范围内的数。
A、[0,100]B、[1,99]C、[0,99]D、[1,100]
16.输入对话框inputbox的返回值的类型是_________。
A、字符串B、整数C、浮点数D、长整数
17.在一行内写多个语句时,每个语句之间要用_____符号分隔。
A、,B、;C、:
D、、
18.一个语句要在下一行中继续书写,可以用______符号作为续行符。
A、+B、-C、_D、…
19.下列声明语句中错误的是_________。
A、Constvar1=123B、Dimvar2=’abc’
C、dima,basstringD、dimvar3asinteger
20.PrintNot10>15And8<5+2的输出结果为_____。
A、8B、7C、trueD、false
三、程序设计题
1.编写窗体的单击事件代码,求一任意三角形的面积,三角形的三条边a、b、c通过Inputbox函数输入,计算的结果存入S变量中,并以消息框的形式输出。
提示:
任意三角形的面积公式
2.编写一段代码,求给定的一个圆的周长和面积。
要求:
(1)圆的半径r利用Inputbox函数从键盘任意输入(r>0)。
(2)圆周率定义为符号常量。
(3)利用赋值语句将求出的周长和面积赋给变量L和S。
(4)用Print方法输出详细结果。
习题三
一、选择题
1.执行以下语句后的结果为。
DimxAsInteger
IfxThenPrintxElsePrintx-1
A、1B、0C、-1D、不确定
2.下列关于SelectCase测试表达式的叙述中,错误的是。
A、只能是变量名B、可以是整型C、可以是字符型D、可以是浮点类型
3.下列关于SelectCase的叙述中,错误的是。
A、Case10To100表示判断Is是否介于10与100之间
B、Case"abc","ABC"表示判断Is是否和"abc"、"ABC"两个字符串中的一个相同
C、Case"X"表示判断Is是否为大写字母X
D、Case-7,0,100表示判断Is是否等于字符串"-7,0,100"
4.由“Fori=1To16Step3”决定的循环结构被执行次。
A、4B、5C、6D、7
5.若i的初值为8,则下列循环语句的循环次数为次。
DoWhilei<=17
i=i+2
Loop
A、3次B、4次C、5次D、6次
6.由“Fori=1To9Step-3”决定的循环结构被执行次。
A、4B、5C、6D、0
二、程序阅读题(写出下列程序的运行结果)
程序1.请写出单击窗体后,窗体上的显示结果。
PrivateSubForm_Click()
DimxAsInteger,yAsInteger
x=5
y=-20
IfNotx>0Thenx=y-3Elsey=x+3
Printx-y;y-x
EndSub
程序2.请写出单击窗体后,窗体上的显示结果。
PrivateSubForm_Click()
DimaAsString,bAsString
a="abcd"
b="cdef"
e=Right(a,3)
f=Mid(b,2,3)
IfeEndSub
程序3.请写出单击窗体后,窗体上的显示结果。
PrivateSubForm_Click()
DimiAsInteger,jAsInteger
DimnAsInteger
n=0
Fori=1To3
Forj=5To1Step-1
n=n+1
Nextj,i
Printn;j;i
EndSub
程序4.请写出单击窗体后,窗体上的显示结果。
PrivateSubForm_Click()
DimiAsInteger
StaticSumAsInteger
Fori=1To10
Sum=Sum+i
Nexti
PrintSum
EndSub
程序5.请写出单击命令按钮后,窗体上的显示结果。
PrivateSubCommand1_Click()
DimsAsInteger,iAsInteger
s=1
i=1
DoWhilei<=4
s=s*i
i=i+1
Loop
Print"s=";s
EndSub
程序6.请写出单击命令按钮后,窗体上的显示结果。
PrivateSubCommand1_Click()
DimiAsInteger
DoUntili>=3
PrintTab(4*i+1);"A"
i=i+1
Loop
EndSub