VB程序设计专练习一至四答案.docx
- 文档编号:5342015
- 上传时间:2022-12-15
- 格式:DOCX
- 页数:24
- 大小:93.16KB
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(a
Min=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
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)
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- VB 程序设计 练习 一至四 答案
![提示](https://static.bdocx.com/images/bang_tan.gif)