春VB复习资料答案64.docx
《春VB复习资料答案64.docx》由会员分享，可在线阅读，更多相关《春VB复习资料答案64.docx（13页珍藏版）》请在冰豆网上搜索。
春VB复习资料答案64
VB复习纲要
一、知识点：
第1章VisualBasic概述
1.Vb的主要特点：
面向对象、事件驱动、结构化设计语言等
2.窗体设计器窗口、属性窗口、工程资源管理器窗口等的作用
3.对象的概念，对象的三要素（属性、事件、方法）（P7）
4.Vb应用程序开发步骤（P8）
5.工程中包含的4类文件及它们的扩展名（P14）
第2章VB程序设计的基础
1.VB的常用数据类型（Integer、Long、Single、Double、String），类型名、类型符、占用的字节数。
2.常量和变量的含义，如何声明常量和变量（关键字分别为Const和Dim）
3.变量的命名规则。
4.三种变量：
局部变量、模块变量和全局变量的作用域。
5.vb中的函数（内部函数、字符处理和字符串函数）的用法和作用，主要需要掌握的函数有：
、Int（）、Len（）、RTrim（）、Rnd（）、Sqr（）、Val（）、Year（Now）、Exp（）、LoadPicture（）
6.算术运算符、关系运算符、逻辑运算符的作用，会计算表达式，运算符的优先级顺序，表达式的执行顺序。
7.数学表达式和vb表达式的相互转换
8.会计算已知表达式的值
第3章数据的输入与输出语句
1.Print方法的使用格式、功能及能使用print方法的四种对象（窗体、图片框、打印机、立即窗口）P32
2.与print方法相关的函数Tab（）、Spc（）、Space（）、Format（）P33-35
3.Cls方法的功能
4.InputBox函数的格式和功能
5.MsgBox函数和MsgBox语句的格式和功能
第4章程序设计语言
1.赋值语句的功能（变量赋值、控件属性赋值），赋值号和数学中的等号含义上的区别P43
2.单分支条件语句和双分支条件语句的格式和执行过程，块结构和单行结构格式的区别P44
3.IIF（）函数的格式、功能及使用方法P45
4.多分支条件语句IF……Then……ElseIf语句和SelectCase的格式、功能、执行流程P46-47
5.For循环的格式、功能及执行流程P48
6.Do循环（DoWhile和DoUntil）的格式、功能和执行流程P49
7.理解各种循环执行过程，能根据题目条件选择合适的循环
8.会计算循环执行次数
9.End语句的功能
10.数组的概念、数组的表示、数组的默认下界、能根据给定的数组计算出数组中元素的个数P56
11.过程的概念和功能P72
12.函数的概念及功能P76
第5章窗体
1.对象的基本属性（Name、Caption、Width、Height、Left、Top、Visible、Enabled、Font、BlackStyle、ForeColor、PasswordChar、MaxLength）
2.对象属性的设置方法
3.窗体的基本属性、事件（load、Click、DblClick）和方法（Move、SetFocus）P87
第6章常见控件的使用
1.标签和文本框控件的功能、常用属性（文本框的Text属性）、事件和方法。
2.命令按钮的属性、事件和方法。
3.VB常用对象的属性（名称、Caption等）。
二、选择、判断题和填空题：
重点是书上的基本概念、例题、作业。
三、简答题
1.VB开发应用程序的一般步骤。
P8
2.对象的概念、对象的三要素是什么、列举几个常见对象名称。
P7
答：
对象是对具有某些特征的具体事物的抽象。
对象三要素：
属性、方法、事件
举例：
窗体、文本框、标签、命令按钮、图片框、图像框、计时器
3.列举说明VB6.0的IDE的窗口组成（至少5个）、功能。
P4-p6
4.简述inputbox函数和msgbox函数的功能
答：
inputbox函数：
产生一个对话框，这个对话框作为输入数据的界面，等待用户的输入数据，并返回所输入的内容。
msgbox函数：
在屏幕上显示一个消息对话框，根据选择确定其后的操作。
5.窗体的常用属性，至少列举5，并说明它们的功能。
P87
6.VB变量名的命令规则。
答：
1、第一个字符必须是汉字或字母
2、不能在名称中使用空格、句点等已有特殊含义的字符
3、不能超过255个字符
4、不能使用关键字做变量名
5、最后一个字符可以是类型说明符
7.简述for循环语句的语法格式及其功能，试分析For循环和Do循环执行特点的异同。
答：
for循环语句的语法格式及其功能P48
相同：
都是循环语句，可以重复执行一组操作
区别：
通常情况下，设计时，For循环能确定循环的次数，do循环不能确定循环的次数。
8.叙述文本框的功能，举出5个文本框常用的属性并说明。
P107
9.简述标签与文本框控件的异同点。
P103
10.谈谈你对计算机编程、编程步骤的理解。
请简要总结一下《VB程序设计》课程的学习，你对该课程内容的学习情况、期望达到的学习目标。
11.将数学表达式改成VB表达式
12.利用数组来存储一组数并找出这组数中的最小值。
Dima（5）AsInteger
a（0）=InputBox（"aaa"）
x=a（0）
Fori=1To5
a（i）=InputBox（"aaa"）
Ifa（i）x=a（i）
EndIf
Next
Printx
四、程序题
1.根据用户输入课程成绩，判断该门课程成绩是否合格。
X%=inputbox（“请输入课程成绩”）
Ifx>=60then
Print“合格”
Else
Print“不合格”
Endif
2.某交易中介公司按交易双方成交额收取中介费用，收费标准如下：
交易额>=500006%
30000=<交易额<500004%
10000=<交易额<300003%
5000=<交易额<100001%
交易额<5000免费
假设交易额通过文本框Text1输入，请编写“计算费用”按钮Command1的事件代码。
1、用if实现
PrivateSubCommand1_Click（）
x&=Text1.Text
Ifx<5000Then
y=0
ElseIfx<10000Then
y=（x-5000）*0.01
ElseIfx<30000Then
y=（10000-5000）*0.01+（x-10000）*0.03
ElseIfx<50000Then
y=（10000-5000）*0.01+（30000-10000）*0.03+（x-30000）*0.04
Else
y=（10000-5000）*0.01+（30000-10000）*0.03+（50000-30000）*0.04+（x-50000）*0.06
EndIf
Print"中介费用",y
EndSub
2、用select实现
PrivateSubCommand1_Click（）
x!
=Val（Text1.Text）
SelectCasex
CaseIs<5000
y=0
CaseIs<10000
y=（x-5000）*0.01
CaseIs<30000
y=5000*0.01+（x-10000）*0.03
CaseIs<50000
y=5000*0.01+20000*0.03+（x-30000）*0.04
CaseElse
y=5000*0.01+20000*0.03+20000*0.04+（x-50000）*0.06
EndSelect
Printy
EndSub
3.编写一段程序，实现在单击窗体时通过键盘接收一个百分制成绩，将其转换成“优”（90分以上）、“良”（80～89）、“中”（70～79）、“及格”（60～69）、“不及格”（59分以下），运行时，单击窗体显示转换结果。
PrivateSubForm_Click（）
x%=InputBox（"请输入一个分数"）
Ifx>=90Then
y="优"
ElseIfx>=80Then
y="良"
ElseIfx>=70Then
y="中"
ElseIfx>=60Then
y="及格"
Else
y="不及格"
EndIf
Printy
EndSub
4.某快递公司运费标准为5kg以下货物运费10元，5kg以上货物，在基础运费10元的基础上每增加1公斤重量运费增加2元。
编程实现其运费计算。
x%=InputBox（"请输入货物重量"）
Ifx<=5Then
y=10
Else
y=10+（x-5）*2
EndIf
Print"货物运费",y
5.编程实现：
单击窗体时通过InputBox函数输入三个数，然后用Print方法输出3个数中最小的那个数。
PrivateSubForm_Click（）
x%=InputBox（"请输入第一个数"）
y%=InputBox（"请输入第二个数"）
z%=InputBox（"请输入第三个数"）
m=x
Ifm>yThen
m=y
EndIf
Ifm>zThen
m=z
EndIf
Printm
EndSub
6.计算下面分段函数的值，并输出y的值。
y=
x!
=Val（InputBox（"请输入第一个数"））
Ifx>0Then
y=x^2
Else
y=-3*x
EndIf
Printy
7.从键盘输入四个数，计算它们的平均值，并输出显示在窗体上。
X1!
=Val（InputBox（"请输入第一个数"））
X2!
=Val（InputBox（"请输入第二个数"））
x3!
=Val（InputBox（"请输入第三个数"））
x4!
=Val（InputBox（"请输入第四个数"））
avg1=（X1+X2+x3+x4）/4
Print"四个数的平均值是：
",avg1
8.写窗体的单击事件，分别用For循环、DoWhile…Loop及Do……LoopUntil循环分别计算1到100的奇数和。
将结果显示在窗体上。
PrivateSubForm_Click（）
Sum=0
Fori=1To100Step2
Sum=Sum+i
Next
Print"1到100间奇数和：
",Sum
EndSub
PrivateSubForm_Click（）
Sum=0
i=1
DoWhilei<=100
Sum=Sum+i
i=i+2
Loop
Print"1到100间奇数和：
",Sum
EndSub
PrivateSubForm_Click（）
Sum=0
i=1
Do
Sum=Sum+i
i=i+2
LoopUntili>100
Print"1到100间奇数和：
",Sum
EndSub
9.编程序求S=1*2*3*……*50
答：
s=1
Fori=1to50
S=s*i
Next
Prints
10.通过键盘输入一个整数n，计算n！
n%=InputBox（"请输入一个正整数"）
s=1
Fori=1Ton
s=s*i
Next
Printn;"的阶乘是：
";s
11.输入3个数，计算三个数的和，并将计算结果显示在窗体上
X1!
=Val（InputBox（"请输入第一个数"））
X2!
=Val（InputBox（"请输入第二个数"））
x3!
=Val（InputBox（"请输入第三个数"））
sum=x1+x2+x3
Print"三个数的和是：
",sum
12.使用循环语句求1……n间的偶数累加和。
n%=inputbox（“输入一个正整数”）
Sum=0
Fori=0TonStep2
Sum=Sum+i
Next
Print"1到n间偶数和：
",Sum
13.设计如下图所示计算圆面积和周长的程序，当输入半径后，单击计算按钮，显示出计算的面积和周长；单击退出按钮则退出程序。
PrivateSub计算_Click（）
r!
=Val（半径.Text）
s=3.14*r^2
c=2*3.14*r
面积.Text=s
周长.Text=c
EndSub
PrivateSub退出_Click（）
End
EndSub
14.程序的执行屏幕如图片1，文本框text1中输入的是被除数，文本框text2中输入的是除数，标签label1，命令按钮command1，编程实现当单击命令按钮时，如果除数为0弹出一个消息框（图片2），否则将计算结果显示在标签中。
图片1图片2
PrivateSubCommand1_Click（）
X1!
=Val（Text1.Text）
X2!
=Val（Text2.Text）
IfX2=0Then
MsgBox"除数不能为0",48,"提示信息"
Else
Label1.Caption=X1/X2
EndIf
EndSub
升级会员 