VB程序设计
安徽机电职业技术学院《VB程序设计》课程实训实训报告书
系（部）：经贸管理学系
班级：电商3142
姓名：
指导教师：陈香
2015 ~ 2016学年第1学期
摘要
Visual Basic一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高，且功能强大学会综合运用VB有关的控件、函数和对象的知识，掌握各种控件和对象在系统开发中的实际应用。想要真正学好它需要花功夫努力去学习、探索。为此，老师为我们安排了为期两周的实训，希望我们将所学的理论知识付诸实践。通过这次实训不仅增加了自身能力的锻炼而且提高了专业知识。我们在这两周的任务主要是在完成老师布置的任务基础上，对自己感兴趣的项目进行深化。我们的任务主要工作是对所学的熟练掌握VB的菜单设计、工具栏设计、状态栏、多文档界面、ActiveX控件、文件存取、错误处理、帮助信息等方面的知识及相应程序设计方法，了解利用VB进行软件开发和系统设计的基本过程，训练和提高我们VB软件开发的基本技能。在学会运用VB进行面向对象程序设计步骤和方法的基础上，能够设计其他的实际应用系统，从而达到一定的应用程序设计水平。在这两个星期的实训里，我根据所学知识认真老师布置的任务，为的是提高自己的动手操作能力。希望在以后的学习和工作中能更加出色的完成学习以及工作任务。
关键字：控件对象窗体
目录
实训项目一Visual Basic集成开发环境............................. - 3 - 实训项目二创建简单的应用程序 ...................................... - 11 - 实训项目三Visual Basic 语言基础 .................................. - 17 - 实训项目四“科学计数器”设计 ...................................... - 22 - 实训项目五“文本字体”设置 ....................................... - 27 - 实训项目六图形设计 ...................................................... - 39 -
实训项目一Visual Basic集成开发环境
一、实训目的
1、能熟练进行Visual Basic的启动与退出；
2、培养Visual Basic的集成开发环境的简单运用。
二、实训内容
实训[1-1]练习VB的启动与退出
(1)启动
启动Visual Basic6.0后,出现如下图所示的新建工程对话框
选择新建选项卡中的标准EXE,单击打开按钮后,就可创建一个新的VisualBasic 工程，如下图所示
（2）退出
1 单击下图VB主窗口右上角的关闭按钮
2 选择文件菜单中的退出命令
3 按下快捷键Alt+Q
实训[1-2]熟悉集成开发环境的窗口（1）主窗口
由标题栏，菜单栏和工具栏组成
（2）窗口设计器窗口
操作练习：1 拖动窗体设计窗口，改变其位置
2 拖动窗体设计窗口边框，改变其大小
3 拖动窗体设计窗口的最小化按钮，将其缩成图标，双击窗体设计窗体控制菜单图标，恢复其原来大小
（3）属性窗口
属性窗口位于主窗口右侧，所有窗体或控件的属性，如颜色，字体，大小，等都可以通过属性窗口设置以及修改
操作练习：
1单击窗体设计窗口，此时属性窗口显示了当前Form1的所有属性
2选中Caption属性,将Form1改为窗体练习,此时窗体变为窗体练习
(4)资源管理器窗口
操作练习:
1查看代码窗口按钮,显示和编译代码
2 查看对象代码按钮,显示窗口上的模块对象
(5)代码窗口
代码窗口是专门进行程序设计的窗口，可在其中显示和编辑代码窗口
（6）工具箱窗口
操作练习:
1选择工程菜单中的部件按钮
2在弹出部件对话框中选择控件选项卡,单击确定按钮,这时工具箱中会出现新的按钮
(7)其他窗口
1)立即窗口:
使用立即窗口可以在中断状态下监视对象属性,变量或表达式的值,也可以在设计时查询表达式的值或命令的执行结果.初学者可以在设计时利用立即窗口练习常用函数,语句和表达式的使用.
2)窗体布局窗口
窗体布局窗口,用于指定程序运行时窗体的初始位置,在窗体布局窗口中有一个模拟显示器,在它的屏幕上直观地显示了本程序中各窗体在实际显示器屏幕中的位置和大小
思考题: 1详细叙述VB6.0各个窗口的主要作用
窗体窗口的作用:窗体窗口简称窗体.是VB应用程序的主要构成部分,是应用程序最终面向用户的窗口,应用程序的运行结果最终在窗体中体现。
属性窗口:在VB中,窗体和控件被称为对象,每个对象都可以用一组属性来描述其特征,如大小,字体和颜色等,属性窗口就是用来设置窗体和窗体中的控件属性的. 工程资源管理器窗口：工程资源管理器窗口中的文件可以分为6类，即窗体文件、程序模块文件、类模块文件、工程文件、工程组文件和资源文件。工程资源管理
器窗口标题栏的下方有3个快捷按钮，分别是查看代码、查看对象和切换文件夹。
代码窗口：专门用来显示和编辑代码，每个窗体都有一个代码窗口。
工具箱窗口：工具箱由各种图标组成，这些图标称为对象或控件，利用这些工具图标，用户就可以在窗体上设计各种控件。
立即窗口：立即窗口是为了调试应用程序提供的。
窗体布局窗口：窗体布局窗口用于指定程序运行时窗体相对于显示屏幕的初始位置以及窗体之间的相对位置。
2 任意举出一个例子来说明VB应用程序开发的详细步骤
一界面设计
二属性设计
三代码设计
四运行调试
五保存
实训心得
实训项目一结束了,在实训中重温了VB的特点和作用,简单直接介绍了VB的启动和退出的几种方法。VisualBasic是基于Ｂasic的可视化程序设计语言，它继承了Basic语言简单易懂的特点，采用面相对对象、事件驱动的编程机制，提供了直观的可视化程序设计方法。VisualBasic是目前面向对象开发的主要语言之一，是最简单、最容易使用的语言，因此它是初学者学习可视化编程语言的最佳选择。在以Windows操作系统为平台的众多可视化编程工具中，VisualBasic具有易用性、通用性和开发效率高等特点，这使得VisualBasic特别适合于一般应用程序的开发，成为最流行的Windows应用程序开发语言。VisualBasic6.0现有三种版本：学习版、专业版和企业版通过这次实训熟练掌握最基本的VB简单设计和各个窗体的作用,工具箱的使用及窗体的属性设计,窗体的合理布局。
实训项目二创建简单的应用程序
一、实训目的和要求
1. Visual Basic对象的属性、方法和事件运用；
2. 练习Visual Basic程序开发的一般步骤操作；
3. 培养编写简单的应用程序。
二、实训内容
[实训2-1] 设计一个窗体，在窗体上添加一个[确定]命令按钮。运行程序时，单击[确定]按钮，在窗体上显示“你单击了命令按钮”。若单击窗体，在窗体上显示“你单击了窗体”
一界面设计
二属性设计
三代码设计
四运行调试
五保存
[实训2-2] 使用循环语句在窗体上输出有“*”组成的简单图形一、设计界面
二属性设计
三代码编辑
Private Sub Form_Click() Dim n As Integer, i%, j% Cls “清屏”
n = Val(Text1.Text)
For i = 1 To n
Print Tab(20):
For j = 1 To I
Print "*":
Next j
Next i
End Sub
四运行调试
五保存
[实训2-3] 编写程序，输入年份，判断其是否为闰年一、设计界面
二属性设计
Text1 Text=“”
Text2 Text=“”
Command1 Caption=“测算”
三代码设计
Private Sub Command1_Click()
Dim n As Date
n = Text1.Text
If n Mod 4 = o And n Mod 100 <> 0 Or n Mod 400 = 0 Then Text2.Text = "是闰年"
Else
Text2.Text = "不是闰年"
End If
End Sub
四运行调试
5 保存
[实训2-4]解决“百鸡百钱”问题。鸡翁一，值钱五，鸡母一，值钱三。鸡雏三。值钱一，百钱买百鸡，问鸡翁，鸡母，鸡雏各几何？
计算鸡数量的判定式：x+y+z=100 and 5x+3y+z/3=100
1、设计界面
2、本题不需要添加控件
3、编写代码
Private Sub Form_Click()
Dim x, y, z As Integer
For x = 1 To 20
For y = 1 To 33
z = 100 - x - y
If (x + y + z) = 100 And (5 * x + 3 * y + z / 3) = 100 Then
Print "公鸡;"; x, "母鸡;"; y, "小鸡;"; z
End If
Next y
Next x
End Sub
4 运行调试
5保存
[实验2-5]编写一个程序，使得程序运行时，在窗体上显示滚动字幕“欢迎进入奇妙的VB世界！”，运行效果和属性设置如下图
1、设计界面
2控件属性设计
Private Sub Timer1_Timer()
Label1.Move Label1.Left - 20
'判断是否到达窗体左边缘
If Label1.Left + Label1.Width <= 0 Then Label1.Left = Form1.Width
End If
End Sub
4、运行调试
5保存
实训项目三Visual Basic 语言基础
一、实训目的与要求
1、掌握VB中基本数据类型和常用内部函数的使用
2、正确使用VB的运算符合表达式在编程中的应
3、熟悉常用的输入和输出方法的运用
二、实训内容
[实训3-1] 编写一个程序，程序运行后单击窗体，则会在窗体上显示当前的日期和时间，具体界面如下图所示。
1、编写程序代码
Private Sub Form_Click()
t = Now
Print Format(t, "今天是:" & "dddddd" & "hh:mm:ss")
End Sub
2、运行结果
[实训3-2]编写一个程序，在程序中使用数值格式符，当程序运行后单击窗体，则会在窗
体上显示结果如下图所示
1、编写程序代码
Private Sub Form_Click()
Dim x As Single
x = 1234.5678
Print Format(x, "####.##")
Print Format(x, "000000.0000")
Print Format(x, "########%")
Print Format(x, "+##,###.###$")
Print Format(x, "#.######E+")
Print Format(x, "####.###\美金")
End Sub
2、运行结果
[实训3-3 ] 编写一个程序，具体为当用户输入客户姓名后，单击输入框的“确定”
按钮所输入内容赋值给变量guest。若用户单击输入框的“取消”按钮，则变量guest的值为空。要求：使用InputBox函数输入客户姓名。
（1）界面设计。在窗体上画出1个文本框、2个命令按钮
(2)属性设计
控件名称属性名属性值
Command1 Caption “确定”
Command2 Caption “取消”
Text1 text “”
(3)编写代码
Private Sub Form_Click()
Dim sl As String, s2 As String, s3 As String, guest As String
s1 = InputBox("请输入客户姓名")
s2 = InputBox("输入后按回车键")
s3 = InputBox("或单击确定按钮")
guest = InputBox(s1 + Chr(13) + s2 + Chr(10) + s3, "输入客户姓名", "贾莹芳")
End Sub
（4）运行结果
[实训3-4 ]编写一个购物打折程序！要求：程序运行后当输入购物金额
vb程序设计的几个简单例子
Option Explicit Private Sub Command1_Click() Dim i%, j%, r! i = Val(Text1.Text) j = Val(Text2.Text) Picture1.Print i; j; Call gysh(i, j) Picture1.Print "最大公约数是" & i r = Val(InputBox("输入半径")) Call S(r) End Sub Public Function gysh(m As Integer, n As Integer) As Integer Dim t% Do t = m Mod n: m = n: n = t Loop While t <> 0 End Function Public function S(r!) Const pi = 3.1415926 S = pi * r ^ 2 MsgBox "圆面积为：" & S End function Public Function 定积分() End Function
Dim a() As Integer, i%, j%, n%, t% Private Sub Command1_Click() Picture1.Print "排序前的数组为：" n = V al(InputBox("请输入一个3到100的整数")) ReDim a(1 To n) Randomize For i = 1 To n a(i) = Int(Rnd * 100) + 1 Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next i End Sub Private Sub Command2_Click() Picture1.Print Picture1.Print "排序后的数组为：" For i = 1 To n - 1 For j = i + 1 To n If a(i) > a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next Next For i = 1 To n Picture1.Print Tab(((i - 1) Mod 5) * 6); a(i); Next End Sub
VB程序设计课后习题答案(科学出版社)
同步练习1 二、选择题 01——05 CADAB 06——10 ACDAB 11——15 CBDBB 同步练习2 二、选择题 01——05 ABDCA 06——10 CACBC 11——15 DADAD 16——20 BDBBB 三、填空题 1．可视 2．LEFT、TOP、WIDTH、HEIGHT 3．按字母顺序 4．查看代码 5．工具、编辑器 6．FORM窗体、FONT 7．MULTILINE 8．在运行时设计是无效的 9．工程、工程属性、通用、FORM1.SHOW 10．TABINDEX、0 同步练习3 二、选择题 01——05 BCADB 06——10 ADBBC 11——15 DBCBA 16——20 BAABB 三、填空题 1．整型、长整型、单精度型、双精度型 2．SIN(30*3.14/180)+SQR(X+EXP(3))/ABS(X-Y)-LOG(3*X) 3．164、今天是：3-19 4．FALSE 5．-4、3、-3、3、-4、4 6．CDEF 7．(X MOD 10)*10+X\10 8．(35\20)*20=20 ( 35 \ 20 )* 20 = 20 9．X MOD 3=0 OR X MOD 5=0 10．27.6、8.2、8、1、100、397、TRUE、FALSE 同步练习4 一、选择题 01——05 DBCAD 06——10 CBBAB
11——15 D25BAC 16——20 CBACB 21——25 DAABC 二、填空题 1．正确性、有穷性、可行性、有0个或多个输入、有1个或多个输出2．1 2 3 3．X>=7 4．X 第一套试题 一、选择题（每题2分，共30分） 1.在VB环境中，工程文件的扩展名是( C ) （A）.frm （B）.bas （C）.vbp （D）.frx 2.下面4项中不属于面向对象系统三要素的是( A ) （A）变量（B）事件（C）属性（D）方法 3. \、/、Mod、*这4个算述运算符中，优先级别最低的是( C ) （A）\ （B）/ （C）Mod （D）* 4.要使Print方法在Form_Load事件中起作用，要对窗体的( C )属性进行设置（A）BackColor （B）ForeColor （C）AutoRedraw （D）Caption 5.不论何控件，共同具有的属性是( B ) （A）Text （B）Name （C）ForeColor （D）Caption 6.要使Form1窗体的标题栏显示“欢迎使用VB”，以下语句正确的是( D ) （A）Form1.Caption=“欢迎使用VB”（B）Form1.Caption=ˊ欢迎使用VBˊ（C）Form1.Caption=欢迎使用VB （D）Form1.Caption=〞欢迎使用VB〞 7.VB提供了结构化程序设计的3种基本结构，这3种基本结构是( D ) （A）递归结构，选择结构，循环结构（B）选择结构，过程结构，顺序结构 （C）过程结构，输入、输出结构，转向结构（D）选择结构，循环结构，顺序结构 8.给变量赋值a=123+MID(“123456”,3,2)，a变量中的值是( D ) （A）“12334”（B）123 （C）12334 （D）157 9.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是( D ) （A）If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1 （B）If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1 （C）If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1 （D）If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1 10.若要清除列表框的所有内容，可用来实现的方法是( C ) 《VB语言程序设计》教材 林卓然编著 《VB程序设计》习题参考答案 第1章习题 一、单选题 1．D 2．B 3．C 4．A 5．C 6. A 7．A 8．B 9．C 10．(1)A (2)B 二、多选题 1．ACDE 2．BCDE 3．CD 4. CE 三、填空题 1．事件驱动 2．解释，编译 3．设计，运行，中断 4. 属性，方法，事件 5. Command2_Click 6. 中央，代码 7．MyForm.frm 8. (1)Cmd1_Click() (2)Print "VB语言程序设计" 编程及上机调试 1. 按要求设置窗体属性 2．在窗体上建立一个标签Label1。程序代码如下： Private Sub Form_Click() Label1.Caption = "你单击了窗体" End Sub Private Sub Form_DblClick() Label1.Caption = "你双击了窗体" End Sub 3．在窗体上建立两个文本框Text1(输入数)、Text2(输出数)和一个命令按钮Command1。两个文本框的Text属性均为空。 Private Sub Command1_Click() Dim x As Single x = Val(Text1.Text) Text2.Text = 15 * x End Sub 第2章习题 一、单选题 1．①D，②D 2．①A，②C 3．A 4．B 5．B 6．B 7．C 8．D 9．B 10．B 11．A 12．A 13．B 14．A 15．B 16．A 17．B 二、多选题 1．BD 2．CD 3．AC 4. AD 三、填空题 1．(1) Sin(50*3.14159/180) (2) (2+x*y)/(2–y*y) 《VB程序设计》期末复习要点 重点复习内容: 通过本课程的学习,要求重点掌握: 1. VB窗体的属性,事件和方法,常用的控件的公用属性和常用标准控件. 2. VB常用的数据类型,常量的定义,变量的命名,变量的声明及作用域. 3. 常用的表达式. 4. For…Next循环,Do…Loop循环,If…Then…Else条件判断语句,Select Case语句. 5. 一维数组,二维数组的声明与存取. 6. 过程的声明与调用. 7. 菜单编辑器,输入对话框,消息输出对话框及系统对话框的使用. 考试题型及分值: 1. 判断题共10题(每题1分,共10分) 2. 单项选择题10题(每题2分,共30分) 3. 填空题10空(每空2分,共20分) 4. 阅读程序,写出程序运行结果2题(每题10分,共20分) 5. 程序填空( 共20分) 复习题: 判断题(正确的打√,错误的打×) ( )1.VB对象就是窗体和控件. ( )2.事件是VB对象可以响应的用户操作. ( )3.文本框和标签框通过同一属性在窗体上显示文字. ( )4.For…Next循环结构的默认步长为1. ( )5.对象的属性都可以在程序中通过语句设置. ( )6.能够改变多项选择框中背景颜色的属性是BackColor. ( )7.使用Open语句可以创建新的顺序文件. ( )8.要在窗体上添加控件,从工具箱中将控件拖到窗体上即可. ( )9.所有对象的属性都可以在属性窗口中设定. ( )10.标签没有change事件和setFocus方法. ( )11.方法Form1.show与Form1.visible=True是等效的. ( )12.Msgbox函数建立的信息框既能显示信息又能输入用户的信息. ( )13.Do…Loop Until语句实现循环时,不管条件真假,首先无条件地执行一次循环. ( )14.函数Str(23)与Str(-23)的值的长度相同. ( )15.变量名的第一个字符必须是字母. ( )16.InputBox函数和MsgBox函数一样,返回的是字符串. ( )17.改变窗体的标题也就是改变其属性窗口中的name属性. ( )18.文本框控件有Caption属性. ( )19.在Visual Basic中,向过程传递参数时,按地址传递参数是缺省的. ( )20.在工具箱内双击命令按钮图标,便会在窗体上建立一个命令按钮. ● 单项选择题 1.若要求从文本框中输入密码时在文本框中只显示* 号,则应在此文本框的属性窗口中设置( ). A,Text属性值为* B,Caption属性值为* C,Password属性值为空D,Passwordchar属性值为* 2.在文本框的属性中,用于设定文本框最多可接受字符数的属性是( ). vb 课后习题答案 第一章习题参考答案 一、填空题 1、对象事件驱动 2、编译运行模式解释运行模式 二、简答题 1、简述 VB 的特点。 答：①可视化的程序设计方法 ②面向对象的程序设计思想 ③事件驱动的编程机制 ④结构化的程序设计语言 ⑤高度的可扩充性 ⑥强大的数据库访问能力 ⑦支持动态数据交换 ⑧支持对象链接与嵌入 2、简述 VB 的安装过程。 答：①向光驱中放入VB 安装光盘； ②计算机将运行自动安装程序，若没有，执行VB 目录下的Setup.exe； ③根据提示逐一回答问题，并点击“下一步”； ④点击“完成”； 2、如何启动 VB。 答：三种方法： ①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击； ②双击桌面上的VB6.0 快捷图标； ③在“开始”菜单的运行对话框中输入命令来启动VB； 第二章习题参考答案 一、选择题： 1-10、 DCACD BCBBC 11-20、 BADCA BBAAB 21-29、 AACBB CDDC 二、填空题 1．窗体、控件 2．属性值 3．属性窗口设置、代码窗口设置 4．事件过程 5．对象名、下划线、事件名 6． Form_Click 第三章习题参考答案 一、选择题 1、B 2、 C 3、 A 4、B 5、 A 6、 C 7、 C 二、填空题 1、 11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日 期型、对象型、变体型。 String、 Byte、 Integer 、 Long、 Single、 Double、 Currency、 Boolean 、Date、 Object 、 Variant 2、双引号 (英文 )、# 3、 ASCII、1 、2 4、 public 、通用、 Dim、 Static、Private、 Static 5、 &、 +、+ 6、 Now()、 Time 、日期型 三、解答题 1、(3) 2、 (1 ) 3、（ 1）常量（关键字）（ 2）字符型常量（ 3）逻辑型常量（ 4）变量（ 5）字符串常量（ 6）变量 （7）字符串常量（ 8）变量（ 9）日期型常量（题目应是 #11/16/1999# ）（ 10）数值型常量（单精度） 4、31 5、（ 1） (1+y/x)/(1-y/x) （2） x^3+3*x*y/(2-y) （3） sqr(abs(a*b-c^3)) （ 4）sqr(s*(s-a)*(s-b)*(s-c)) 6、 7、（ 1） 13 （ 2） 17 （3） #1999-11-12# （ 4） zxy123ABC 8、（ 1） 19 （ 2） 8.16666666666667 （3） 5． 25 （4） 2 9、（ 1） -4 （2） 2 . 82842712474619 （ 3） -3 （ 4） 49 （5）” hello （”6）He 7）16 （ 8）“-459.65 ”（ 9） 5 10、（ 4） 11、（ 2） 12、（ 4） 第四章习题参考答案 一、选择题： 1—7: DAABBCD 二、填空题 1． 500.00% 2．将字号扩大为原来的二倍 3． B 三、编程题（略） 1．文本框、标签和命令按钮的名称分别为text1 、 label1、 command1 Private Sub Command1_Click() Label1.caption=text1.text Command1.caption=text1.text End Sub 《VB 程序设计》考试题型练习 一. 填空 1. VB 中的对象具有 属性 、 事件 、和 方法 三种特性，它们是构成对象的三个基本要素。 2. VB 中的常量分为哪三种： 文字常量 、 符号常量（用户自定义常量） 系统内部常量 。 3. 变量的三要素是指： 变量的名 、 变量的数据类型 、 变量的值 。 4. VB 中日期型数据的表示格式为： #mm/dd/YYYY#或#mm-dd-YYYY# 。 5. 在VB 中，“\”是 整除 运算符；“/”是 浮点除 运算符。两个字符串可以使用连接符 &或+ 串接起来。 6. 2 22z y x z y x ++++的VB 表达式为 （x+y+z ）/sqr(x^2+y^2+z^2) 。 7. a ac b b 242-+的VB 表达式为 (b+sqr(b^2-4*a*c))/(2*a) 。 8. 计时器控件的 Interval 属性用于设置Timer 事件发生的时间间隔，为了使计时器控件Timer1每隔0.5秒触发一次Timer 事件，应将该属性设置为 500 ；为了暂时关闭计时器，应把该计时器的 Enable 属性设置为False 。 二. 单选题 1. 如果要使VB 程序运行时不能对文本框中的内容进行编辑，需将文本框的哪个属性设置为True （ D ）。 A ）MultiLine B ）Visible C ）TabStop D ）Locked 2. 表达式Right("asdf", 2)+Ucase("as" )的值为（ A ）。 A ）dfAS B ）asAS C ）dfas D ）asas 3. 执行如下语句： a ＝InputBox("Today", "Tomorrow", "Yesterday") 将显示一个输入对话框，在对话框的输入区中的默认值是（ C ）。 A) Today B) Tomorrow C) Yesterday D) Today Tomorrow Yesterday 4. 设a=3，b=5，则以下表达式值为真的是（ B ）。 A) a>=b And b>10 B) (a>b) Or (b>0) C) (a<0) Or Not (b>0) D) (-3+5>a) And (b>0) VB程序设计答案 第一章习题参考答案 一、填空题 1、对象事件驱动 2、编译运行模式解释运行模式 二、简答题 1、简述VB的特点。 答：①可视化的程序设计方法 ②面向对象的程序设计思想 ③事件驱动的编程机制 ④结构化的程序设计语言 ⑤高度的可扩充性 ⑥强大的数据库访问能力 ⑦支持动态数据交换 ⑧支持对象链接与嵌入 2、简述VB的安装过程。 答：①向光驱中放入VB安装光盘； ②计算机将运行自动安装程序，若没有，执行VB目录下的Setup.exe； ③根据提示逐一回答问题，并点击“下一步”； ④点击“完成”； 2、如何启动VB。 答：三种方法： ①单击“开始”按钮，选择“程序”菜单下的“Microsoft Visual Basic 6.0 中文版”菜单项并单击； ②双击桌面上的VB6.0快捷图标； ③在“开始”菜单的运行对话框中输入命令来启动VB； 第二章习题参考答案 一、选择题： 1-10、DCACD BCBBC 11-20、BADCA BBAAB 21-29、AACBB CDDC 二、填空题 1．窗体、控件 2．属性值 3．属性窗口设置、代码窗口设置 4．事件过程 5．对象名、下划线、事件名 6．Form_Click 第三章习题参考答案 一、选择题 1、B 2、C 3、A 4、B 5、A 6、C 7、C 二、填空题 1、11 字符型、字节型、整型、长整型、单精度型、双精度型、货币型、逻辑型、日期型、对象型、变体型。String、Byte、Integer、Long、Single、Double、Currency、Boolean 、Date、Object、Variant 2、双引号(英文)、# 3、ASCII、1、2 4、public、通用、Dim、Static、Private、Static 5、&、+、+ 6、Now()、Time、日期型 三、解答题 1、(3) 2、(1 ) 3、（1）常量（关键字）（2）字符型常量（3）逻辑型常量（4）变量（5）字符串常量（6）变量 （7）字符串常量（8）变量（9）日期型常量（题目应是#11/16/1999#）（10）数值型常量（单精度） 4、31 5、（1）(1+y/x)/(1-y/x) （2）x^3+3*x*y/(2-y) （3）sqr(abs(a*b-c^3)) （4）sqr(s*(s-a)*(s-b)*(s-c)) 6、 7、（1）13 （2）17 （3）#1999-11-12# （4）zxy123ABC 8、（1）19 （2）8.16666666666667 （3）5．25 （4）2 9、（1）-4 （2）2 . 82842712474619 （3）-3 （4）49 （5）”hello”（6）He 7）16 （8）“-459.65”（9）5 10、（4） 11、（2） 12、（4） 第四章习题参考答案 一、选择题： 1—7: DAABBCD 二、填空题 1．500.00% 2．将字号扩大为原来的二倍 3． B 三、编程题（略） 1．文本框、标签和命令按钮的名称分别为text1、label1、command1 Private Sub Command1_Click() Label1.caption=text1.text Command1.caption=text1.text 索引 一、在窗体上画一个文本框，其名称为Text1，Text属性为空白。再画一个命令按钮，其名称为C1，Visible属性为False。编写适当的事件过程。程序运行后，如果在文本框中输入字符，则命令按钮出现。 二、计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和一个图片框（Picture1）。程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。（要求在未输入半径前两个按钮呈灰色不可用。） 三、在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”、“十位”、“百位”。程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。 四、设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数点后一位）。单击退出按钮则程序退出。 五、某税务部门征收所得税，规定如下：（1）收入200元以内，免征。（2）收入在200~400元，超过200元的部分纳税3%。（3）收入超过400元的部分，纳税4%。（4）当收入达5000元或超过时，将4%税金改为5%。编程序实现上述操作。 六、给定三角形的三条边的边长，计算三角形的面积。编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。 七、编程求100以内的全部素数。 八、编程打印钻石图案。 九、输出杨辉三角形。 十、有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。 十一、在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。编程实现当按下标题不同的命令按钮时，使文体框中文字的字体发生相应的变化。 十二、编程求1000以内的完全数。所谓完全数是指这样的自然数：它的各个约数（不包括该数本身）。如28=1+2+4+7+14就是一个完全数。 V B程序设计试题及答案（一） 一、单选题 1. VB6.0是一种面向B 的编程环境。 (A) 机器(B) 对象 (C) 过程(D) 应用 2. 要使FormI窗体的标题栏显示"欢迎使用VB"，以下D 语句是正确的。 (A) Forml.Caption=“欢迎使用VB” (B) Forml.Caption='欢迎使用VB' (C) Forml.Caption=欢迎使用VB (D) Forml.Caption="欢迎使用VB" 3. 若要使命令按钮不可操作，要对A 属性进行设置。 (A) EnabIed (B)Visible (C) Backcolor (D)Caption 4. 如果在窗体上已经创建了一个文本框对象TextI，可以通过C 事件获得输入键值的ASCII码。 (A) Change (B) LostFocus (C) KeyPress (D) GotFocus 5. 下面A 是合法的变量名。 (A) X_yz (B) 123ab。(C) integer (D) X-Y 6. 以下关系表达式中，其值为False的是A 。 (A) "ABC">"AbC" (B) "女">"男" (C) "BASIC"=UCase("basic) (D) "123"<"23" 7. 为了给x、y、z三个变量赋初值1，下面正确的赋值语句是A 。 (A) x=1:y=1:z=1 (B) x=1,y=1,z=1 (C) x=y=z=1 (D) xyz=1 8. VB提供了结构化程序设计的三种基本结构，三种基本结构是D 。 (A)递归结构、选择结构、循环结构 (B)选择结构、过程结构、顺序结构 (C)过程结构、输入输出结构、转向结构 (D)选择结构、循环结构、顺序结构 9. 下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是 D 。 (A) If sex="男" And age=4O And InStr(duty，"教授")>O Then n=n+l (B) If sex="男" And age=4O And (duty="教授" Or duty="副教授") Then n=n+l (C) If sex="男" And age=4O And Right(duty，2)="教授" Then n=n+l (D) If sex="男" And age=4O And duty="教授" And duty="副教授" Then n=n+l 10.下列关于Do…Loop循环结构执行循环次数的描述正确的是D 。 (A) Do While…Loop循环和Do…Loop Until循环至少都执行一次 (B) Do While…Loop循环和Do…Loop Until循环可能都不执行 (C) Do While…Loop循环至少执行一次和Do…Loop Until循环可能不执行 (D) Do While…Loop循环可能不执行和Do…Loop Until循环至少执行一次 11.以下B 是正确的For…Next结构。 (A) For x=1 To Step 10 (B) For x=3 To -3 Step -3 …… 课后习题解答 第一、二章： 1、简述VB6.0的主要特点 答：方便、直观的可视化设计工具；面向对象程序设计方法；事件驱动的编程机制；易学易用的应用程序集成开发环境；结构化程序设计语言；完备的联机帮助功能；强大的多媒体、数据库和网络功能。2、当正常安装VB6.0后，误把Windows子目录删除。当重新安装Windows后，是否需要再次安装VB6.0？ 答：要重新安装的。因为安装VB6.0时，有些VB程序被系统自动安装在Windows目录下，所以一旦删除Windows子目录，就必须重新安装VB6.0。 3、Visual Basic 6.0分为学习版、专业版和企业版，如何知道所安装的是哪个版本？ 答：在VB6.0的启动界面上，能显示对应的版本。 4、叙述建立一个完整应用程序的过程 答：首先建立用户界面的控件对象（简称控件）；然后对控件属性进行设置；再对控件事件过程及编程； 保存应用程序；程序调试和运行。 5、Visual Basic 6.0有多种类型窗口，若要在设计时看到代码窗口，应怎样操作？ 答：选择“视图”—>“代码窗口”命令或单击“工程资源管理器”窗口中的“查看代码”按钮。 6、当建立好一个简单的应用程序后，假定该工程仅有一个窗体模块。试问该工程涉及多少个要保存的文件？ 若要保存该工程的所有文件，应先保存什么文件？再保存什么文件？若不这样做，系统会出现什么信息？ 答：涉及两个文件要保存。先保存窗体文件（.frm），再保存工程文件（.vbp）。若先保存工程文件，系统也会先弹出“文件另存为”对话框，要求先保存窗体文件。 7、保存文件时，若不改变目录名，则系统默认的目录是什么？ 答：系统默认的目录是VB98 8、安装Visual Basic 6.0后，帮助系统是否也已安装？ 答：没有。VB6.0的帮助系统在两光盘上，即MSDN Library，其中还包含了VC、VFP等其他语言的帮助系统。 9、如何使用Visual Basic 6.0的帮助系统？ 答：最方便的方法是选定要帮助的容，然后按F1功能键，这时系统打开MSDN Library查阅器，直接显示与选定容有关的帮助信息。 10、什么是类？什么是对象？什么是事件过程？ 答：类是同类对象集合的抽象，它规定了这些对象的公共属性和方法； 对象是类的一个实例，对象包含三个要素：属性、方法和事件。 当在对象上发生了事件后，应用程序就要处理这个事件，而处理的步骤就是事件过程。 11、属性和方法的区别是什么？ 答：属性是对象的特征，方法是对象的行为。前者有值，可以被赋值或引用；后者没有值，表示能够执行的操作。 12、当标签边框的大小由Caption属性的值进行扩展或缩小时，应对该控件的什么属性进行何种设置？ 答：将该控件的Autosize属性值设置为true。 13、在VB6.0中，命令按钮的显示形式可以有标准的和图形的两种选择，它们通过什么属性来设置？若选 择图形的，则通过什么属性来装入图形？若已在规定的属性里装入了某个图形文件，但该命令按钮还是不能显示该图形，而显示的是Caption属性设置的文字，应怎样修改？ 答：命令按钮的显示形式通过将Style属性值设置为Graphical来实现。通过Picture属性来装入图 '以下程序段用于输出杨辉三角:结果样式如图1 ' Private Sub Form_Click() Const n = 10 Dim arr(n, n) As Integer For I = 1 To n arr(I, I) = 1 '**********SPACE********** 【arr(I, 1) = 1】 Next I For I = 3 To n For j = 2 To I - 1 '**********SPACE********** arr(i, j) =arr(i-1,j-1)+arr(i-1,j) Next j Next I For I = 1 To n For j = 1 To I '**********SPACE********** 【print arr(I,j)】 Next j Print Next I End Sub Option Explicit '------------------------------------------------ '【程序改错】 '------------------------------------------------ '题目：用自定义函数的方法求sum（x），求当-1≤x≤1时，' sum（x）=x/2！+x^2/3!+x^3/4!+……+x^n/(n+1)!， ' 当x〉1或x〈-1时，函数值为0。当n〈=0时，输入数' 据错误。X、N都是由用户输入。 '------------------------------------------------ '注意：不可增加或删除程序行，也不可以更改程序结构 '------------------------------------------------ Private Sub Command1_Click() Dim s As Single Dim n As Integer, x As Single, k As Integer n = Val(InputBox("Please input a integer value:")) 常见vb程序设计代码 作者 : 窦振山 1、猴子每天吃掉的桃子是所有桃子的一半多一个，到第七天发现只剩下一个了，问最开始有几个桃子？、、 Private Sub Command1_Click() Dim m(1 To 7) m(1) = 1 For i = 2 To 7 m(i) = (m(i - 1) + 1) * 2 Next For i = 1 To 7 Print "第" & i & "天的桃数是"; m(i) Next End Sub 2、百元百鸡问题：公鸡三元一只，母鸡两元一只，小鸡一元两只，现用百元买一百只鸡Private Sub Command1_Click() Dim x As Integer Dim y As Integer For x = 1 To 100 For y = 1 To 100 If 3 * x + 2 * y + (100 - x - y) / 2 = 100 Then Print "公鸡 "; x; "母鸡"; y; "小鸡"; 100 - x - y End If Next Next End Sub 1、综合运用一维数组、二维数组、动态数组和控件数组的有关知识编写程序，要求能输入学生的学号、姓名、性别、年龄等个人简况，输入的学生人数不限，并可按学号或姓名查询。界面设计用到了三个command即“添加”、“查询”和“退出”，八个label和四个text 用来输入学号、姓名、成绩和年龄，一个frame，一个picturebox图片框用来显示结果 其程序代码设计如下： Private Type stu id As Integer nam As String sco As Single age As Integer End Type Dim students(100) As stu Dim s As Integer Private Sub Command1_Click() Static i As Integer If Text1.Text = "" Then VB可视化程序设计实例——小时钟 本例专门针对程序设计初学者而设计，尤其适合第一次接触VB的学生学习。通过用VB来设计如图3.39所示的时钟程序，初步感受一下可视化和面向对象的程序设计过程。 图3.39 时钟程序运行效果 小时钟程序中包含窗体控件、标签控件和计时器控件等3个控件。窗体控件是小时钟程序运行时的窗口，标题栏上的标题是“时钟”，在右上角有最小化、最大化和关闭按钮。标签控件可以用来显示文本，本例中用来显示时间，如“9:48:57”。计时器控件每秒一次把计算机的当前系统时间显示到标签控件中，使得小时钟不停地运行。Array启动VB，首先显示“新建工程”对话框（图3.40），在选择“新建”选项卡中的“标 准EXE”项后，单击“打开”按钮，进入VB编程环境，如图3.41所示。 图3.40 “新建工程”对话框 图3.41 VB 可视化编程环境 除了标题栏、菜单栏和标准工具栏外，编程环境中还有工具箱、窗体和属性等窗口。 双击工具箱（图3.42）中的标签控件，在窗体Form1中放置可以显示文本信息的标签控件Label1，见图3.43。时钟的时、分和秒以后就显示在Label1中。拖曳Label1可以移动它，拖曳它的八个控制点，可以改变它的大小。 图3.42 工具箱 图3.43 label1控件 图3.44 计时器控件 双击工具箱中的计时器控件，在窗体Form1中放置计时器控件Timer1，见图3.44。计时器控件以一定的时间周期，调用一个事件。计时器控件只有在设计阶段出现在窗体上，程序运行时是不可见的，它的位置和大小无关紧要。 到目前为止，已经建立了窗体Form1、标签控件Label1和计时器控件Timer1等3个对象。下面，将设置它们的属性。 窗体窗口 Visual Basic程序设计知识点（基础部分） 说明：黄色突出显示的为重点记忆内容，灰色突出显示的不作掌握要求。 第1章Visual Basic概述 一、VB对象与事件驱动的编程机制 1．VB对象 在Visual Basic应用程序设计中，构成图形用户界面的（GUI）的每一个可视的部件，均可视为对象。Visual Basic中的对象分为窗体和控件两大类。窗体就是窗口本身，是屏幕上的一个矩形区域；控件则是窗体上构成图形用户界面的一些基本组成部件。 Visual Basic的对象是具有特殊属性和行为方法的一个可视化实体，每一个对象均有自己的特殊属性、事件和方法。 属性是一个对象的特性。属性的设置方法：（1）设计阶段修改对象属性值；（2）程序运行阶段修改对象属性值，其语法格式为：对象名.属性名=属性值。例如：Command1.Caption=”确定”。 事件在发生对象身上，且能被对象识别的动作。当事件在对象身上发生后，应用程序就要处理这个事件，处理事件的步骤就是事件过程。事件过程的一般格式为： Private Sub 对象名_事件( [参数列表]) ……事件过程代码 End Sub 例如： Private Sub Command1_Click() End …结束程序 End Sub 方法是对象本身所包含的一些特殊函数或过程。方法的调用格式：[对象名.]方法名[参数名表]。若省略了对象名，表示为当前对象，一般指窗体。例如：Form1.print “VB is fun!”2．事件驱动的编程机制 应用程序先等待某个事件的发生，然后再去执行处理此事件的事件过程。发生事件的顺序决定了代码执行的顺序，若没有事件发生，整个程序处于停滞等待状态。 二、窗体对象 属性：Namek, Caption, Height, Width, Left, Top, MaxButton, MinButton 事件：Click, DblClick, Load 方法：Print, Cls, Move 三、基本控件 1．标签 属性：Caption, Alignment, Autosize, BorderStyle 2．文本框 属性：Text, PasswordChar, SelStart, SelLength, SelText 事件：Change, GotFocus, LostFocus, KeyPress 方法：SetFocus 3．命令按钮 属性：Caption, Cancel, Default 中南大学现代远程教育课程（专科）考试复习题及答案 《VB程序设计与应用》 一、选择题：在每小题给出的四个选项中，只有一项是符合题目要求的，请把所选项前的字母填在 题后的括号内。 1. Visual Basic程序中分隔一行中各语句的字符是（）。[ ] A)‘ B): C)\ D)_ 2. 下列可作为Visual Basic的变量名的是（）。[ ] A: Filename B: A（A＋B）C: A%D D : Print 3. 要让菜单项无效，应将（）属性值设置为False。 [ ] A. Visible B. Enabled C. Moveable D. Checked 4. 以下过程是（）事件。 Prviate Sub Form_Load( ) …… End Sub [ ] A: 命令按钮的单击B: 命令按钮的装载 C; 窗体的装载D: 窗体的单击 5. Vb中描述文件扩展名的是（）属性。[ ] A: Drive B: Pattern C: FileName D: Path 6. 关于Visual Basic中事件的说法中，不正确的为（）。[ ] A)事件是由Visual Basic预先定义好的，能够被对象识别的动作 B)DblClick（双击）是Visual Basic中的一种事件 C)一个对象可以识别一个或多个事件 D)对于一个系统提供的对象可以识别哪些事件，需要程序员自己定义 7. 下列控件中可设置滚动条是（）。 [ ] A. 检查框（复选框） B. 框架 C. 文本框 D. 标签框 8. 在Visual Basic中建立一个空窗体，( )不会是其默认名。 [ ] A. Form1 B. Form2 C. Formx D. Form10 9. Const One&=1，则One为（）类型的常数。[ ] A)整型 B)字节型 习题一 答案在教材上找。 习题二 1.对象指现实世界中的实体。每个对象有自己的特征(属性)、行为(方法)和发生在该对象上的活动(事件)。 类是对同一种对象的集合与抽象。类包含所创建对象的属性数据，以及对这些数据进行操作的方法。封装和隐藏是类的重要特性，将数据结构和对数据的操作封装在一起，类的内部实现细节对用户来说是透明的。 VB工具箱中的可视图标是VB系统设计好的标准控件类。通过将控件类实例化，得到真正的控件对象。在窗体上画一个控件，就将类转换为对象，创建了一个控件对象。 VB中常用的对象是控件。此外，VB还提供了系统对象。窗体是个特例，它既是类也是对象。当向一个工程添加一个新窗体时，实质就由窗体类创建了一个窗体对象。 对象的三要素：属性、事件和方法。 属性：存放对象的数据(决定对象外观及功能)对象属性的设置方法：在设计阶段，利用属性窗口直接设置属性值；程序运行时，通过语句[对象名.]属性名=属性值。若属性只能在设计阶段设置，在程序运行阶段不可改变，称为只读属性。 事件：发生在对象上的事情。同一事件，对不同的对象，会引发不同的反应。事件过程：应用程序处理事件的步骤。应用程序设计的主要工作就是为对象编写事件过程的代码。 方法：面向对象的程序设计语言，为程序设计人员提供了一种特殊的过程和函数。方法是面向对象的，调用时一定要指明对象。 2.窗体和控件具有的基本属性“ (1) Name属性：名称 所创建的对象名称,在程序中引用。 (2) Caption属性：标题 该属性决定了对象上显示的内容。 (3) Height、Width、Top和Left属性 决定对象的大小和位置。 (4) Enabled 属性：对象是否允许操作 (5) Visible 属性：对象是否可见 (6) Font 属性组：文本的外观 FontName字体、FontSize大小 FontBold粗体、FontItalic斜体 FontStrikethru 删除线 FontUnderline 下划线 (7) ForeColor属性：前景颜色 (8) BackColor属性：背景颜色 (9) MousePointer属性：鼠标指针类型, 设置值范围0～15，由系统指定。若为99，由用户提供的图形文件定义鼠标指针形状。 一．编写程序，当单击窗体时求出1+1/3+1/5+1/7+... 的和，直到所加项1/n小于10-3，所求结果用变量s存放,并在窗体上输出计算结果。(要求用While .............Wend 循环来做此题) Private Sub Form_Click() Dim s!, n% ‘注意必须定义为！ s = 0 ‘计算累加和时，存放累加和的变量初值为0 n = 1 ‘n为第1项的值 While 1 / n > 10 ^ (-3) ‘注意乘幂的写法，s = s + 1 / n n = n + 2 ‘注意每次加2 Wend Print "s="; s End Sub 二．请编写程序：有一个三位数，减去七能被七除尽，减去八能被八除尽，减去九能被九除尽，当单击窗体时计算并输出这个数是多少。 Private Sub Form_Click() Dim i% ‘i作为循环变量 For i = 100 To 999 If (i - 7) Mod 7 = 0 And (i - 8) Mod 8 = 0 And (i - 9) Mod 9 = 0 Then Print I End If Next End Sub 三．编写程序，当单击窗体时求1~100中既是5的倍数又是7的倍数的数的和。其中Sum为累加和变量，i为循环控制变量，并在窗体上输出累加结果。 Private Sub Form_Click() Dim Sum%, i% Sum = 0 For i=1 to 100 If i mod 5=0 and i mod 7=0 then Sum = Sum + i End if Next i Print "Sum="; Sum End Subvb程序设计试题(含答案)
《VB程序设计》习题答案-林卓然编著
《VB程序设计》期末复习要点
VB程序设计教程第四版课后答案
《VB程序设计》考试题型练习 答案
VB程序设计答案
完整word版,VB程序设计例题12例
VB程序设计试题及答案一
VB程序的设计教程课后答案
VB程序设计例题程序改错程序填空程序设计
常见vb程序设计代码
VB可视化程序设计实例——小时钟
VB程序设计知识点
[整理]VB程序设计复习题及答案.
vb程序设计教程课后答案(第三版)
vb 程序设计