期末复习《vb程序设计》期末复习题及答案Word文档下载推荐.docx
《期末复习《vb程序设计》期末复习题及答案Word文档下载推荐.docx》由会员分享,可在线阅读,更多相关《期末复习《vb程序设计》期末复习题及答案Word文档下载推荐.docx(8页珍藏版)》请在冰豆网上搜索。
当方法不需要任何参数并且也没有返回值时,调用对象的方法的格式为________________,例如,对窗体Form1使用Show方法,应写成_________________。
15.PictureBox控件可通过设置其__________属性为True使之可自动调整大小;
而Image控件可通过设置其___________属性为True,使其加载的图片能自动调整大小以适应Image。
16.在VisualBasic程序中实现复制文件“c:
\”到d:
盘根目录下的语句为_______________________________________。
二、单项选择题
1.下列控件中没有Caption属性的是(
)
A、标签
B、文本框
C、框架
D、命令按纽
2.除框架外,能对单选按纽分组的控件是(
)。
A、窗体
B、标签
C、图片框
D、图像
3.下列符号不能作为VB中变量名的是(
A、ABCDEFG
B、P00000
C、89YWDDF
D、xyz
4.下列不属于VisualBasic数据文件的是(
A、顺序文件
B、随机文件
C、二进制文件
D、数据库文件
5.若要求从文本框中输入密码时在文本框中只显示*号,则应用在此文本框的属性窗口中设置(
A、Text属性值为*
B、Caption属性值为*
C、Password属性值为空
D、PasswordChar属性值为*
6.表达式2*3^2+2*8/4+3^2的值为(
A、64
B、31
C、49
D、42
7.表达式mid("
abcdefg"
3,2)的值是(
A、abc
B、cd
C、bcd
D、abcde
8.数学表达式Sin25°
写成VB表达式是(
A、Sin25
B、Sin(25)C、Sin(25°
)
D、Sin(25*3.14/180)
9.Sub过程与Function过程最根本的区别是(
A、Sub过程可以使用Call语句或直接使用过程名调用,而Function过程不可以。
B、Function过程可以有参数,Sub过程不可以。
C、两种过程参数的传递方式不同。
D、Sub过程的过程名不能返回值,而Function过程能够通过过程名返回值。
10.选拔身高T超过1.7米且体重W小于62.5公斤的人,表示该条件的布尔表达式为(
A、T>
=1.7AndW<
=62.5
B、T<
=1.7OrW>
=62.5
C、T>
1.7AndW<
62.5
D、T>
=1.7OrW<
62.5
11.下列对象不能响应Click事件的是(
A、列表框
B、图片框
C、窗体
D、计时器
12.在VisualBasic中,按文件的访问方式不同,可以将文件分为(
A、顺序文件、随机文件和二进制文件
B、文本文件和数据文件
C、数据文件和可执行文件
D、ASCⅡ文件和二进制文件
13.将通用对话框CommonDialog的类型设置成“颜色”对话框,可调用该对话框的(
)方法。
A、ShowOpen
B、ShowSave
C、ShowColor
D、ShowFont
三、指出下列句中的错误,修改或者说明原因。
1.sum和int.sum都可以作为VB的变量名。
2.变量名的长度最长可达1024个字符。
3.下列程序运行结果:
3,3
OptionExplicit
PrivateSubCommand1_Click()
Dima,bAsInteger
a=3.6
b=3.6
Text1.Text=a
Text2.Text=b
4.程序可以改变定长字符串的内容和长度。
5.Variant是一种特殊的数据类型,可以包含任何种类型的数据。
6.下列程序运行结果为True
PrivateSubCommand1_Click()
a=1
b=2
c=3
Text1.Text=c>
a+bOrb-1>
c-1Andc+a>
aXorb<
c-2
7.#12/31/1999#-#12/20/1999#的运算结果是#12/11/1999#
8.可以在窗体的通用部分声明静态变量。
9.使用声明语句建立一个变量后,VisualBasic会自动对数值类型的变量赋初值0,变长的字符串被初始化为一个零长度的字符串"
"
,定长字符串用空格填充,Variant变量被初始化为Empty,布尔型的变量被初始化为False。
10.事件过程通常由事件驱动执行,而Sub过程通过过程调用执行。
11.将焦点主动设置到指定的控件或窗体上应采用SetFocus方法。
12.当图像控件(Image)的Stretch属性为True时,Image控件能自动调整自己的尺寸与显示的图片匹配。
四、读程序题,写出程序运行结果。
1.PrivateSubForm_Click()
ForI=1To9
Forj=1To30-3*I
Print"
"
;
Nextj
Fork=1ToI
Printk;
Nextk
Fork=I-1To1Step-1
Print
NextI
2.
StaticSAsInteger
DimiAsInteger
S=1
Fori=1To5
S=S*i
Nexti
PrintS
3.
ForX=5To1Step-1
ForY=1To6-X
PrintTab(Y+5);
*"
NextY
NextX
4.
PrivateSubForm_Activate()
Print"
aa"
&
bb"
-5*6,Not2<
=3
-5*6;
Not2<
Print
30+60"
Print30+60
?
30+60
5.
X=1
DoWhileX<
=10
IfXMod7=0Then
Y=X+6
Else
Z=X
EndIf
X=X+2
Loop
PrintX,Y,Z
五、编程题
1.设计一个计算程序。
该程序用户界面如图所示,由四个文本框:
文本框1(text1)、文本框2(text2)、文本框3(text3)、文本框4(text4),和三个按钮:
命令按钮1(command1)、命令按钮2(command2)、命令按钮3(command4)组成。
程序运行后,用户单击清除按钮,则清除文本框中显示的内容。
单击计算按钮,如果成绩填写不完全,则给出提示信息,否则计算三科平均成绩。
单击退出按钮则退出。
2.设计程序。
要求:
从文本框Text1中接收输入的数据,当单击确定按钮(command1)时,如果该数据满足条件:
除以3余2,除以5余3,除以7余4,则输出;
否则将焦点定位在文本框Text1中,选中其中的文本。
3.设计一个欢迎程序。
该程序用户界面如图所示。
要求程序运行后,用户选中粗体复选框时,标签(Label1)中的文字(欢迎您!
)的字体变成粗体,用户选中斜体复选框时,标签的字体变成斜体。
若取消选中,则恢复原字体。
单击结束,则退出。
4.任意输入3个数,求大小排第二的那个数,写出程序代码。
《VB》期末复习参考答案
1.创建应用程序界面
设置属性
编写代码
2.属性、text
3.Label
TextBox
4.Load方法
Show方法
Hide方法
Unload方法
5.txtshow.text="
GOODWORK"
6.Click()、frm1.show
7.算术表达式字符串表达式关系表达式布尔表达式
日期表达式
对象表达式
运算符
8.1
9.TrueFalse
10.12
11.Sin(x)^2+Sqr(x^2-y^2)/(2*x)
12.DimA(1To5,-2To6)AsString
13.单击
双击
装载
多
响应某个事件后所执行的程序代码
cmd1
Click
14.完成某种特定的功能
对象名.方法名
Form1.Show
15.AutoSize
Stretch
16.FileCopy"
c:
\"
,"
d:
1.B
2.C
3.C
4.D
5.D
6.B
7.B
8.D
9.D
10.C
11.D
12.A
13.C
1.int.sum不正确。
变量名中不能包括小数点。
2.变量名的长度最长可达255个字符。
3.3.6,4
因为a不是整型变量。
4.不正确。
程序不可以改变字符的长度,这是VB规定。
5.不完全正确。
Variant是一种特殊的数据类型,除了定长字符串数据及用户定义类型外,可以包含任何种类型的数据,这是VB规定。
6.False。
逻辑表达式计算结果。
7.不正确。
两个日期型数据相减,其结果是一个数值型数据。
8.不正确。
静态变量为局部变量,只能在过程中声明。
9.正确。
10.正确。
11.正确。
12.不正确。
该属性设为Ture时,Image控件不能自动调整自己的尺寸与显示的图片匹配,而可以使图片自动扩展以适应控件的尺寸。
1.程序运行后,单击窗体,输出结果为:
1
121
12321
1234321
123454321
12345654321
1234567654321
123456787654321
12345678987654321
2.程序运行后,单击按钮Command1,输出结果为:
120。
3.
*
**
***
****
*****
4.
aabb
-30
False
aabb-30False
30+60
90
30+6090
5.
11
13
9
1.
Text1.Text="
Text2.Text="
Text3.Text="
Text4.Text="
PrivateSubCommand2_Click()
a=Trim(Text1.Text)
b=Trim(Text2.Text)
c=Trim(Text3.Text)
Ifa="
Orb="
Orc="
Then
MsgBox"
成绩填写不完全!
vbCritical
Else
Text4.Text=(Val(a)+Val(b)+Val(c))/3
EndIf
PrivateSubCommand3_Click()
UnloadMe
x=Val(Text1.Text)
IfxMod3=2AndxMod5=3AndxMod7=4Then
Printx
Text1.SetFocus
Text1.SelStart=0
Text1.SelLength=Len(Text1.Text)
PrivateSubCheck1_Click()
IfCheck1.Value=1Then
Label1.Font.Bold=True
Label1.Font.Bold=False
PrivateSubCheck2_Click()
IfCheck2.Value=1Then
Label1.Font.Italic=True
Label1.Font.Italic=False
a=Val(InputBox("
输入第一个数:
))
b=Val(InputBox("
输入第二个数:
c=Val(InputBox("
输入第三个数:
Ifa<
bThent=a:
a=b:
b=t
cThent=a:
a=c:
c=t
Ifb<
cThent=b:
b=c:
MsgBox("
求大小排第二的数是:
b)