VB程序设计专练习一至四答案.docx
《VB程序设计专练习一至四答案.docx》由会员分享，可在线阅读，更多相关《VB程序设计专练习一至四答案.docx（24页珍藏版）》请在冰豆网上搜索。
VB程序设计专练习一至四答案
第一阶段练习题（参考答案）
一、单项选择题
题号
1
2
3
4
5
6
7
8
9
10
答案
C
B
D
D
C
B
B
C
D
C
题号
11
12
13
14
15
16
17
18
19
20
答案
A
C
C
A
B
A
B
D
D
A
题号
21
22
23
24
25
26
27
28
答案
D
B
B
A
B
D
A
D
二、填空题
1．视图
2．工具箱
3．工具
4．选项
5．编辑器
6．对象的性质，来描述和反映对象特征的参数
7．对象的动作、行为
8．Form窗体
9．Font
10．Multilint
11．在运行时设计是无效的
12．Style
13．Style
14．Locked
15．TabIndex
16．0
17．VB98
18．2
19．定义对象属性
20．赋值
三、程序填空题
1．①Load②False③Change④Text2+Text1
2．①（Form1.ScaleHeight-Text1.Height）②+vbCrLf+
四、编程题
1．
⑴ 操作步骤：
① 启动VB6.0
② 选择“文件”菜单中的“新建工程”命令，在随后出现“新建工程”对话框中选择“标准EXE”，单击“确定”按钮。
③ 单击工具箱的“标签”标准控件，在窗体上建立一个标签。
同样操作在窗体上建立三个标签、一个文本框和一个命令按钮。
⑵ 窗体属性的设置如表1所示。
⑶ 控件属性的设置如表2所示。
控件设置后的界面如图1所示
表1 窗体属性列表
控件名称
属 性
属性值
Form1
Caption
基本控件示例
Form1
Font
宋体、小四号
表2 控件属性列表
控件名称
属 性
属性值
Label1
Caption
VB程序设计和数据库
Label1
AutoSize
True
Label2
Caption
请输入您的姓名
Label2
AutoSize
True
Label2
Font
粗斜
Label3
AutoSize
True
Label3
BoardStyle
1-FixedSingle
Text1
Text
空
Command1
Caption
单击在标签内显示
图1 设计界面
⑷ 代码设计：
双击Command1控件，或在“视图”菜单中选择“代码窗口”命令，出现代码窗口，选择Command1控件的Click项，然后Command1_Click（）过程代码如下：
PrivateSubCommand1_Click（）
Label3="欢迎"+Text1+" 同学参加VB学习！
"
EndSub
⑸ 运行测试：
在“运行”菜单中选择“启动”命令，或按F5，或单击工具栏上“运行”按钮，进入运行状态，在文本框内输入自己的姓名后，单击命令按钮，出现图2所示的运行界面。
⑹ 保存窗体文件和工程文件。
图2 运行界面
2．
（1） 操作步骤：
① 启动VB6.0
② 选择“文件”菜单中的“新建工程”命令，在随后出现“新建工程”对话框中选择“标准EXE”，单击“确定”按钮。
③ 在窗体上建立三个标签、三个文本框和三个命令按钮。
（2） 控件属性的设置如表1所示。
控件设置后的界面如图1所示
表1 控件属性列表
控件名称
属 性
属性值
Label1
Caption
操作数1
Label2
Caption
操作数2
Label3
Caption
操作数3
Text1
Alignment
2
Text2
Alignment
2
Text3
Alignment
2
Command1
Caption
×
Command2
Caption
÷
Command3
Caption
退出
图1 设计界面
（3） 代码设计：
PrivateSubForm_Load（）
Text1=""
Text2=""
Text3=""
EndSub
PrivateSubCommand1_Click（）
Text3=Val（Text1）*Val（Text2）
EndSub
PrivateSubCommand2_Click（）
Text3=Val（Text1）\Val（Text2）
EndSub
PrivateSubCommand3_Click（）
End
EndSub
（4） 运行测试：
在“运行”菜单中选择“启动”命令，或按F5，或单击工具栏上“运行”按钮，进入运行状态，在文本框内输入操作数1和操作数2后，单击命令按钮，出现图2所示的运行界面。
（5） 保存窗体文件和工程文件。
图2 运行界面
3．
（1） 操作步骤：
① 启动VB6.0
② 选择“文件”菜单中的“新建工程”命令，在随后出现“新建工程”对话框中选择“标准EXE”，单击“确定”按钮。
③ 在窗体上建立三个标签、一个文本框和两个命令按钮。
（2） 控件属性的设置如表1所示。
控件设置后的界面如图1所示
表1 控件属性列表
控件名称
属 性
属性值
Label1
Caption
地球人类的家园
Label2
Caption
水更绿，地更青
Label3
Caption
居更佳，人更欢
Text1
Alignment
2
Command1
Caption
单击在文本框内显示
Command2
Caption
退 出
图1 设计界面
（3） 代码设计：
PrivateSubCommand1_Click（）
Text1=Label2.Caption+"，"+Label3.Caption
Label2.Visible=False
Label3.Visible=False
EndSub
PrivateSubCommand2_Click（）
End
EndSub
（4） 运行测试：
在“运行”菜单中选择“启动”命令，或按F5，或单击工具栏上“运行”按钮，进入运行状态，出现图2所示的运行界面。
（5） 保存窗体文件和工程文件。
图2 运行界面
4．
（1） 操作步骤：
① 启动VB6.0
② 选择“文件”菜单中的“新建工程”命令，在随后出现“新建工程”对话框中选择“标准EXE”，单击“确定”按钮。
③ 在窗体上建立两个标签、两个文本框和一个命令按钮。
（2） 控件属性的设置如表1所示。
控件设置后的界面如图1所示
表1 控件属性列表
控件名称
属 性
属性值
Label1
Caption
输入圆半径：
Label2
Caption
显示圆面积：
Text1
Text
空
Text2
Text
空
Command1
Caption
运 算
图1 设计界面
（3） 代码设计：
PrivateSubCommand1_Click（）
r=Val（Text1）
Text2=3.14159*r*r
EndSub
（4） 运行测试：
在“运行”菜单中选择“启动”命令，或按F5，或单击工具栏上“运行”按钮，进入运行状态。
（5） 保存窗体文件和工程文件。
第二阶段练习题（参考答案）
一、单项选择题
题号
1
2
3
4
5
6
7
8
9
10
答案
C
C
B
A
B
D
B
B
C
A
题号
11
12
13
14
15
16
17
18
19
20
答案
D
B
C
A
D
B
A
D
B
B
题号
21
22
23
24
25
26
27
28
29
30
答案
C
B
C
B
A
C
C
A
D
A
题号
31
32
33
34
35
36
37
38
39
40
答案
B
D
C
D
C
C
D
A
C
A
题号
41
42
43
44
45
46
47
48
49
50
答案
B
C
C
A
B
B
A
C
C
A
二、填空题
1．标识符
2．Mid（”MadeInChina”,6,2）
3．Int（Rnd*（b-a+1）+a
4．0
5．Cint（3421.79）
6．未尾
7．浮点数除法
8．0
9．函数运算
10．算术运算
11．关系运算
12．逻辑运算
13．变体类型或Variant类型
14．整型
15．长整型
16．单精度型
17．双精度型
18．（xMod10）*10+x\10
19．xMod5=0ORxMod9=0
20．False
21．CDFE
22．IfiMod2=0Printi
23．Ifx>0Thens1=s1+xElses2=s2+x
24．循环体
25．条件表达式
26．跳出循环
27．多重循环
28．14
29．To-5Step-1
30．10
三、程序填空题
1．① a1;a2;a3②Sum③Aver
2．①y②x
3．①UCase（Chr（KeyAscii））②C ③"A","E","I","O","U"
④Else⑤KeyAscii=13
4．①Len（a）②Mid（a,i,1） ③d+c
5．①True②Tag=False ③m=m+1
6．①Val（Text3.Text）②t=b:
b=c:
c=t
7．①b=Val（InputBox（"请输入第二个数","输入对话框"））②m=b
8．①ch>="A"Andch<="Z"②Text2.Text=ch
9．①s=0②Tab（10）;"s=";s
10．①x;②Whilex<30 或 Untilx>30
四、程序阅读题
1．7
2．a=15
3．42
4．10
5．*****
***
*
6．220321422523
7．**$$$****$$$$$
8．136
五、编程题
1．
PrivateSubCommand1_Click（）
a=Int（Rnd*100）
b=Int（Rnd*100）
c=Int（Rnd*100）
If（aMin=a
Else
Min=b
EndIf
IfMin>cThen
Min=c
EndIf
Printa;b;c
Print"Min=";Min
EndSub
2．
PrivateSubCommand1_Click（）
y=Val（InputBox（"请输入年份"））
IfyMod4=0AndyMod100<>0OryMod400=0Then
Printy&"年是闰年"
Else
Printy&"年不是闰年"
EndIf
EndSub
3．PrivateSubCommand1_Click（）
y=Val（InputBox（"请输入学生成绩"））
Ify>=85Then
Print"Verygood"
ElseIfy>=65Andy<85Then
Print"good"
ElseIfy<60Then
Print"Nogood"
EndIf
EndSub
4．
PrivateSubCommand1_Click（）
t=True
DoWhilet
a=Val（InputBox（"请输入第1条边的值：
"））
b=Val（InputBox（"请输入第2条边的值：
"））
c=Val（InputBox（"请输入第3条边的值：
"））
Ifa=0Andb=0Andc=0Then
End
EndIf
Ifa+b>cAndb+c>aAnda+c>bThen
L=（a+b+c）/2
s=Sqr（L*（L-a）*（L-b）*（L-c））
Print"三角形面积为:
"&s
Else
MsgBox"输入的三条边的值不能构成三角形，请重新输入"
EndIf
Loop
EndSub
5．
PrivateSubCommand1_Click（）
x=Val（InputBox（"请输入正整数M"））
y=Val（InputBox（"请输入正整数N"））
m=x:
n=y
r=mModn
DoWhiler<>0
m=n
n=r
r=mModn
Loop
Print"M=";x
Print"N=";y
Print"两数的最大公因子为:
";n
EndSub
6．
PrivateSubCommand1_Click（）
t=1
Forn=1To9
t=t*n
Next
Print"9!
=";t
EndSub
7．
PrivateSubCommand1_Click（）
Fori=100To200
IfiMod3=2AndiMod5=3AndiMod7=2Then
Printi
EndIf
Next
EndSub
8．
PrivateSubCommand1_Click（）
Fori=100To999
X1=iMod10
X2=i\10Mod10
x3=i\100
IfX1^3+X2^3+x3^3=iThen
Printi
EndIf
Next
EndSub
第三阶段练习题（参考答案）
一、单项选择题
题号
1
2
3
4
5
6
7
8
9
10
答案
D
B
D
C
D
D
B
A
A
C
题号
11
12
13
14
15
16
17
18
19
20
答案
B
D
C
D
C
A
C
C
B
D
二、填空题
1．名字
2．类型
3．下标
4．Dima（0to5,-3to6）asInteger
5．0
6．通用声明
7．OptionBase
8．可调数组
9．可变类型数组
10．同一个事件过程
11．Index
12．IsArray
13．局部变量
14．EedSub
15．ExitSub
16．Rnd
17．Static
18．窗体模块
19．标准模块
20．类模块
21．函数过程名
22．整个应用程序
23．作用域
24．传值参数
25．传址参数
26．该窗体模块或标准模块
三、程序填空题
1．① Int（Rnd*100+1）②String（a（i）\2,"*"）;"a（";i;"）=";a（i）
2．ReDima（n,n）y②1To（n+1）\2 ③a（j,k）=i ④Print
3．①a（7）②a（j+1）=a（j）③a
（1）=t
4．①Preservea（n+1）②a（i+1）=a（i） ③a（i+1）=m
5．①m
（1）*3②n=3
6．①m>0②mTon ③n=n-1 ④m=m–1⑤b（）
7．①common_divisor=x②common_divisor（a,b）
8．①Dem=Convert（St）②Mid（S,i,1）③Asc（SubC）-Asc（"A"）+10
④Convert=p
四、程序阅读题
1．49
2．123
231
323
3．123
46
9
4．23
22
33
32
33
33
44
34
5．234
6．27
7．a=4b=6c=6
a=8b=6c=6
8．35745
五、编程题
1．
PrivateSubCommand1_Click（）
Randomize
Dima（100）AsInteger
n=0
Fori=1To100
a（i）=Int（Rnd*100）
Ifa（i）<50Then
Printa（i）;
n=n+1
Ifn=10Then
Print
n=0
EndIf
EndIf
Next
EndSub
2．
PrivateSubCommand1_Click（）
Randomize
n=Int（Rnd*100）
ReDima（n）AsInteger
Fori=1Ton
a（i）=Int（Rnd*100）
Next
aver=a
（1）
Max=a
（1）
Fori=2Ton
aver=aver+a（i）
IfMaxNext
aver=aver/n
Fori=1Ton
Printa（i）;
IfiMod10=0ThenPrint
Next
Print
Print"平均值=";aver
Print"最大值=";Max
EndSub
3.
PrivateSubCommand1_Click（）
Dima（10）AsInteger
Fori=1To10
a（i）=Val（InputBox（"请输入第"&i&"个数"））
Next
Print"交换前:
"
Fori=1To10
PrintStr（a（i））;
Next
Fori=1To5
temp=a（i）:
a（i）=a（11-i）:
a（11-i）=temp
Next
Print
Print"交换后:
"
Fori=1To10
PrintStr（a（i））;
Next
EndSub
4．
PrivateSubCommand1_Click（）
Randomize
m=Val（InputBox（"请输入M的值"））
n=Val（InputBox（"请输入N的值"））
ReDima（m,n）AsInteger
Fori=1Tom
Forj=1Ton
a（i,j）=Int（Rnd*100）
Next
Next
Max=a（1,1）:
max_i=1:
max_j=1
Fori=1Tom
Forj=1Ton
IfMaxMax=a（i,j）:
max_i=i:
max_j=j
EndIf
Next
Next
Fori=1Tom
Forj=1Ton
Printa（i,j）;
Next
Print
Next
Print"最大值=";Max
Print"位置在:
行是";max_i;"列是";max_j
EndSub
5．
PublicSubCircleArea（）
s=3.14159*Val（Text1）*Val（Text1）
Print"圆面积＝";s
EndSub
6．
PublicFunctionmax（ByVala,ByValb,ByValc）
Ifa>bThen
max1=a
Else
max1=b
EndIf
Ifmax1max=max1
EndFunction
PublicFunctionmin（ByVala,ByValb,ByValc）
Ifamin1=a
Else
min1=b
EndIf
Ifmin1>cThenmin1=c
min=min1
EndFunction
PrivateSubCommand1_Click（）
Cls
n=Val（InputBox（"请输入3或5或7"））
ReDima（n）AsInteger
Fori=1Ton
a（i）=Val（InputBox（"请输入第"&i&"个数"））
Printa（i）;
Next
Print
SelectCasen
Case3
max1=max（a
（1）,a
（2）,a（3））
Print"max=";max1
min1=min（a
（1）,a
（2）,a（3））
Print"min=";min1
Case5
max1=max（（max（a
（1）,a
（2）,a（3）））,a（4）,a（5））
Print"max=";max1
min1=min（（min（a
（1）,a
（2）,a（3）））,a（4）,a（5））
Print"min=";min1
Case7
max1=max（（max（（max（a
（1）,a
（2）,a（3）））,a（4）,a（5）））,a（6）,a（7））
Print"max=";max1
min1=min（（min（（min（a
（1）,a
（2）,a（3）））,a（4）,a（5）））,a（6）,a（7））
Print"min=";min1
E
升级会员 