VB 课后练习及答案 (辽宁工业大学).doc

第二篇 计算机软件基础实验一 熟悉Visual Basic 6.0编程环境【实验目的】（1）熟悉VB集成开发环境。（2）掌握建立、编辑和运行一个VB应用程序的全过程。（3）掌握窗体、文本框、标签和命令按钮控件的基本属性及其设置。（4）掌握窗体、文本框、标签和命令按钮的应用。（5）掌握每个控件的常用事件和方法。【实验内容】用事例介绍在VB集成环境下操作的整个过程。【1-1】用VB设计一个应用程序，用鼠标单击窗体显示文字“欢迎使用Visual Basic 6.0！”，运行程序的结果如图1-1所示。图1-1 程序运行结果操作步骤：（1）建立工程选择“文件”菜单的“新建工程”命令，打开“新建工程”对话框，界面如图1-2所示。图1-2 “新建工程”对话框选择“新建”选项卡，再选择“标准EXE”，最后单击“打开”按钮，新建一个默认名称为Form1的窗体，如图1-3所示。工程资源管理器窗口布局窗口立即窗口属性窗口代码窗口工具箱窗体图1-3 VB窗口的布局（2）设计界面在属性窗口中，参照表1-1设置窗体Form1各个属性的值。表1-1 窗体属性的设置对象名称属性名属性值说明Form1Caption第一个VB程序设置窗体标题Width5000窗体的宽度Height4000窗体的高度BackColor&HFF00&窗口背景颜色（绿）ForeColor&HFF0000&窗口显示文字的颜色（蓝）Font隶书，小三号，粗体窗体文字的字体、字号和字型AutoRedrawTrue解决Print显示问题MaxButtonFalse最大化按钮是否可用MinButtonFalse最小化按钮是否可用（3）编写源代码双击窗体空白处，进入代码窗口，为窗体的鼠标单击事件编写事件过程代码。Private Sub Form_Click() Form1.Print "欢迎使用Visual Basic 6.0！"End Sub（4）调试运行选择“运行”菜单的“启动”命令，或者单击“标准”工具栏中的“启动”按钮4，或者直接按F5键，运行程序，检查运行结果是否正确。（5）保存工程和窗体选择“文件”菜单的“保存Form1”命令，出现“文件另存为”对话框，如图1-4所示，选择好保存位置，文件名输入“1_1.frm”，然后单击“保存”按钮。图1-4 “文件另存为”对话框选择“文件”菜单的“保存工程”命令，出现“工程另存为”对话框，如图1-5所示。选择好保存位置后，文件名输入“1_1.vbp”，然后单击“保存”按钮。图1-5 “工程另存为”对话框工程文件保存后，随后弹出“Source Code Control”消息框，询问是否把当前工程添加到微软的版本管理器中，单击“No”按钮即可。如果计算机上没有安装Visual Source Safe则不会出现“Source Code Control”消息框。注意：由于一个工程可能会有多种文件，如工程文件和窗体文件，这些文件集合在一起才能构成一个完整的应用程序。因此，建议在保存工程时将同一工程所有类型的文件存放在同一文件夹中，以便于修改和管理工程文件。保存VB工程文件的默认路径是VB98。（6）生成可执行文件选择“文件”菜单中的“生成工程1.exe”命令，在打开的“生成工程”对话框中使用“工程1.exe”文件名，则工程就生成可以脱离VB环境的扩展名为EXE的可执行文件。注意：窗体的MDIChild属性设置为False。否则无法运行。【1-2】用VB设计一个应用程序，运行结果如图1-6所示。图1-6 “宿舍管理系统”运行结果操作步骤：（1）新建一个工程，在窗体中，使用控件工具箱中的“标签”按钮，分别创建3个标签控件。提示：按住Ctrl键的同时单击工具箱中的“标签”按钮，然后在窗口中可以拖曳出无数个标签；按ESC键取消。（2）在属性窗口中，参照表1-2，分别设置窗体和控件各个属性的值。（3）按F5功能键，运行该程序，观察运行效果。表1-2 窗体及各控件属性值设置对象名称属性名属性值说明Form1Caption标签控件的使用设置窗体的标题Label1Caption宿舍管理系统第一个标签的内容Font幼圆，小一，粗体第一个标签字体ForeColor红色第一个标签文字的颜色BackColor白色第一个标签文字背景色BackStyle1-Opaque(不透明)第一个标签背景不透明AutoSizeFalse不自动调整标签大小标签是否标签与字的大小一致Label2Caption研制人：夏天第二个标签的内容Font隶书，二号，粗体第二个标签字体名BackStyle0-透明第二个标签背景透明AutoSizeTrue自动调整标签与字的大小一致Label3Caption版权所有（C）2012第三个标签的内容Font隶书，三号，粗体第三个标签字体名BackStyle0-透明第三个标签背景透明AutoSizeTrue自动调整标签与字的大小一致【1-3】用VB设计一个应用程序，运行结果如图1-7所示。图1-7 “用户登录系统”运行结果操作步骤：（1）新建一个工程，在窗体中创建2个标签控件和3个文本框控件。（2）在属性窗口中，参照表1-3，分别设置窗体和控件各个属性的值。（3）按F5功能键，运行该程序，观察运行效果。表1-3 窗体及各控件属性值设置对象名称属性名属性值说明Form1Caption文本框控件的使用设置窗体的标题BackColor&H00C0FFC0&设置窗体背景颜色Lable1Caption用户名：第一个标签的内容Font宋体，小四，常规第一个标签字体BackStyle0-Transparent(透明)第一个标签背景透明AutoSizeTrue自动调整标签与字的大小一致Lable2Caption密码：第二个标签的内容Font宋体，小四，常规第二个标签字体BackStyle0-Transparent(透明)第二个标签背景透明AutoSizeTrue自动调整标签与字的大小一致Text1Text用户登录系统设置和返回文本框内容Alignment2-Center设置文字对齐方式Font隶书，四号，粗体设置文本框字体、字号和字型Text2Text空设置和返回文本框内容Text3Text空PasswordChar*输入的字符不显示，而显示*号【1-4】窗体的背景色。设计一个如图1-8所示的界面，单击对应的命令按钮后可以改变窗体的背景颜色。图1-8 窗体的背景色操作步骤：（1）新建一个工程，在窗体中添加1个标签控件和4个命令按钮控件。调整各控件的相互位置，参照表1-4设置窗体和控件的各个属性的值。表1-4 窗体及控件属性值的设置对象名称属性名属性值说明Form1Caption命令按钮控件的使用设置窗体的标题Label1Caption窗体背景颜色设置标签的显示内容AutoSizeTrue自动调整标签大小BackStyle0-Transparent(透明)标签背景透明Font幼圆，三号，粗体标签字体、字号和字型Command1Caption黄色设置命令按钮标题Command2Caption红色设置命令按钮标题Command3Caption绿色设置命令按钮标题Command4Caption退出(&E)设置命令按钮标题Style1-Graphical同时显示图片和文字PictureBOOK04.ICO装入图片（2）在“窗体布局”窗口中，单击鼠标右键，依次选择快捷菜单中的“启动位置”“屏幕中心”命令，可设置程序执行时窗口在屏幕中央的位置，如图1-9所示（或在“窗体布局”窗口中直接将窗体移动到中央）。图1-9 “窗口布局”窗口和快捷菜单（3）为4个命令按钮的单击事件编写事件过程代码。Rem 单击“黄色”命令按钮，设置窗体背景为黄色Private Sub Command1_Click() Form1.BackColor = vbYellowEnd SubRem 单击“红色”命令按钮，设置窗体背景为红色Private Sub Command2_Click() Form1.BackColor = vbRedEnd SubRem 单击“绿色”命令按钮，设置窗体背景为绿色Private Sub Command3_Click() Form1.BackColor = vbGreenEnd SubRem 单击“退出”命令按钮，结束程序Private Sub Command4_Click() EndEnd Sub【1-5】在窗体上创建2个命令按钮和1个文本框，一个命令按钮放大文本框内的文字，另一个命令按钮缩小文本框内的文字，运行结果界面如图1-10所示。图1-10 运行界面操作步骤：（1）在窗体上创建1个文本框和2个命令按钮。（2）参照表1-5设置窗体和控件的属性。表1-5 窗体及控件属性值的设置对象名称属性名属性值说明Form1Caption文本框控件的使用设置窗体的标题Text1Text辽宁工业大学文本框内显示的内容Alignment2-Center文本框内显示的内容居中Command1Caption放大设置命令按钮的标题Command2Caption缩小设置命令按钮的标题（3）为2个命令按钮的单击事件编写事件过程代码。Rem 单击“放大”命令按钮，设置文本框字号为30Private Sub Command1_Click()Text1.FontSize = 30End SubRem 单击“缩小”命令按钮，设置文本框字号为18Private Sub Command2_Click()Text1.FontSize = 18End Sub【1-6】用VB设计一个应用程序，完成以下功能。（1）单击“文字”命令按钮，显示出红色文字“面向对象的程序设计语言VB”，如图1-12所示。（2）单击“计算”命令按钮，计算并显示该门课程的学时，如图1-13所示。（3）“文字”命令按钮和“计算”命令按钮可以多次使用。（4）单击“结束”命令按钮，则结束程序的运行。操作步骤：（1）单击工具箱中的控件，在窗体设计窗口中添加一个标签和3个命令按钮，如图1-11所示。 图1-11 应用程序界面（2）设置每个对象（控件）的属性如表1-6。表1-6 窗体及各控件属性值设置对象名属性名属性值说明Form1AutoRedrawTrue解决Print显示问题ForeColor&HFF0000&窗口显示文字的颜色（蓝）BackColor&HFF00&窗口背景颜色（绿）Label1ForeColor&HFF&标签文字的颜色（红）Font隶书，二号，粗体标签文字的字体设置Caption空BackStyle0-Transparent(透明)标签背景透明AutoSizeTrue自动调整标签与字的大小一致Command1Caption文字第一个命令按钮标题名Command2Caption 计算第二个命令按钮标题名Command3Caption结束第三个命令按钮标题名（3）输入代码代码又称为命令或者语句。u 双击“文字”按钮，进入代码窗口。Private Sub Command1_Click() Command1的Click（单击）事件过程 Form1.Cls 或Cls Label1.Caption = "面向对象程序设计-VB"End Sub说明：Form1表示窗体这个对象。Cls是一个方法，功能是清除。因为“文字”和“计算”两个命令按钮允许多次使用，为了不使结果在窗口上重复显示，用Form1.Cls方法，清屏。1-12 单击“文字”命令按钮以下几个u 双击“计算”按钮，进入代码窗口。Private Sub Command2_Click() Cls Label1.Caption = "" Print 输出一空行 Print Spc(6); "VB程序设计课程学时数为：" & 4 * 16 & "学时"End Sub1-13 运行“计算”命令按钮运行结果界面u 双击Command3(结束)按钮，进入代码窗口Private Sub Command3_Click() EndEnd Sub【1-7】加法运算器。设计一个如图1-14所示的界面，在文本框Text1中输入第一个加数，在文本框Text2中输入第二个加数，然后单击“计算”按钮求和，并将结果显示到文本框Text3中；单击“清除”按钮，清空3个文本框的内容。图1-14 加法运算器操作步骤：（1）在窗体上创建3个标签，3个文本框和2个命令按钮。（2）参照表1-7设置窗体和控件的属性。表1-7 窗体及控件属性值的设置对象名称属性名属性值说明Form1Caption加法器窗体的标题Label1Caption加法运算器标签的显示内容Font楷体_GB2312，粗体，小四标签内文字的字体Label2Caption+标签的显示内容Label3Caption=标签的显示内容Text1-3Text空文本框内显示的内容Alignment2-Center文本框内容居中显示Command1Caption计算设置命令按钮的标题Command2Caption清除设置命令按钮的标题（3）为2个命令按钮的单击事件编写事件过程代码。Rem 单击“计算”按钮，进行加法运算Private Sub Command1_Click() Text3.Text = Val(Text1.Text) + Val(Text2.Text)Val函数，将数字字符串转换为数值End SubRem 单击“清除”按钮，将3个文本框内容清空Private Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocusEnd Sub【作业】（1）在窗体上使用标签控件显示文字“VB程序设计”，通过属性窗口完成设置，要求：字体为黑色、28号，前景色为红色，标签能自动调整大小，背景透明并带有边框，效果如图1-15所示。 图1-15 设置标签属性及其效果（2）“数学计算”程序。在窗体上添加2个命令按钮、3个文本框和3个标签，界面设计如图1-14所示。运行程序后，要求单击Command1按钮可以清除3个文本框的文字，在文本框Text1中输入半径值后，单击Command2按钮可以计算出圆的周长、面积，并分别显示到Text2、Text3中。控件的属性参照图1-16进行设置，部分属性分别如下：标签的Font属性均为“粗体、小四号”。文本框Text2和Text3的Locked属性均为True。图 1-16 数学计算源代码：Private Sub Command1_Click() Text1.Text = "" 清空文本框内容 Text2.Text = "" Text3.Text = ""End SubPrivate Sub Command2_Click() Text2.Text = str(2 * 3.14 * Val(Text1.Text) ' str函数将数值转换为字符串 Text3.Text =str(3.14 * Val(Text1.Text) 2)End Sub实验二 Visual Basic语句基础【实验目的】（1）掌握变量的数据类型定义、赋值、表达式和内部函数的应用。 （2）进一步了解窗体（Form）、命令按钮（CommandButton）、标签(Label)、文本框（TextBox）的使用。【实验内容】1、尝试编写下列程序【2-1】设计一个能实现计算大学计算机基础课程期末综合成绩的简单程序，综合成绩=平时成绩×20%+考试成绩×80%。2-1 运行结果界面Option Explicit '强制变量显式定义Private Sub Command1_Click() Dim zonghe As Single, ps As Single, ks As Single '变量定义 Dim xm As String xm = Text1.Text '数据输入 ks = Val(Text2.Text) ps = Val(Text3) zonghe = ks * 0.8 + ps * 0.2 '数据的运算处理 Label4.Caption = xm & "的综合成绩是" & zonghe & "分"End Sub【2-2】设有变量x%和y%，随机产生两个1,10之间的数，计算x/y和xy的值,试设计一个简单的窗体。窗体装入界面如图2-2-1所示，运行结果界面如图2-2-2所示。2-2-1 窗体装入界面 2-2-2 窗体运行结果界面源代码：Dim x%, y% '在“通用”状态下定义模块变量，供几个过程使用Private Sub Form_Load() x = Int(Rnd * 10 + 1) '产生1,10之间的数 Text1.Text = Str(x) 'str函数，将数值型数据转换为字符型 y = Int(Rnd * 10 + 1) Text2.Text = Str(y) Text3.Text = "" '清除文本框内容 Text4.Text = ""End SubPrivate Sub Command1_Click() Text3.Text = x / y Text4.Text = x yEnd SubPrivate Sub Command2_Click()Text3.Text = "" Text4.Text = "" Text1.SetFocus '文本框text1重新获得焦点 Randomize '每次产生的随机数不同 x = Int(Rnd * 10 + 1) Text1.Text = Str(x) y = Int(Rnd * 10 + 1) Text2.Text = Str(y)End SubPrivate Sub Command3_Click() EndEnd Sub【2-3】随机产生一个3位的整数，然后逆序输出，要求产生的数与逆序数都显示。窗体设计界面如图2-3-1所示。运行结果界面如图2-3-2所示。 2-3-1 窗体设计界面 2-3-2 运行结果界面源代码：方法一Option Explicit '强制变量显式定义Dim a As IntegerPrivate Sub Command1_Click() a = Int(Rnd * 900 + 100) Text1.Text = a '或 Text1.Text =str(a) Text2.Text = ""End SubPrivate Sub Command2_Click() Dim b As Integer, a1%, a2%, a3% a1 = a 100 a2 = a 10 Mod 10 a3 = a Mod 10 b = a3 * 100 + a2 * 10 + a1 '如果a1或a2或a3为0，则不准确 Text2.Text = Str(b)End Sub源代码：方法二Option Explicit '强制变量显式定义Dim a As IntegerPrivate Sub Command1_Click() a = Int(Rnd * 900 + 100) Text1.Text = a '或 Text1.Text =str(a) Text2.Text = ""End SubPrivate Sub Command2_Click() Dim b As String, a1$, a2$, a3$, s$ s = Trim(Str(a) '将数值型转换为字符串型再去掉前后的空格 a1 = Left(s, 1) a2 = Mid(s, 2, 1) a3 = Right(s, 1) b = a3 & a2 & a1 Text2.Text = bEnd Sub【2-4】任意输入一个字母，分别以大写字母和小写字母形式显示。运行结果界面如图2-4所示。图2-4 运行结果界面源代码：Private Sub Form_Load() Text1.MaxLength = 1 文本框可以输入字符的最大数 Text1.Text = "": Text2.Text = "": Text3.Text = ""End SubPrivate Sub Command1_Click() Dim s As String * 1 s = Text1.Text Text2.Text = UCase(s) 小写字母转换为大写字母 Text3.Text = LCase(s) 大写字母转换为小写字母End SubPrivate Sub Command2_Click() Text1.Text = "" Text2.Text = "" Text3.Text = "" Text1.SetFocusEnd SubPrivate Sub Command3_Click() EndEnd Sub【2-5】（选作）制作一个倒计时牌，计算当前到暑假所剩下的时间，并将时间分别以天、周、月等为单位显示。运行结果如图2-5所示。2-5 运行结果界面提示：计算两个时间之差可以使用DateDiff()函数。形式：DateDiff（间隔日期形式，日期1，日期2）。其中：间隔日期形式有“d”、“w”、“m”等，分别表示以天、周、月等作为单位。函数返回值为：日期2-日期1 源代码：Dim tim As DatePrivate Sub Form_Load() Text1.Text = "2012" Text2.Text = "7" Text3.Text = "20": Text4.Text = "" tim = Text1.Text & "," & Text2.Text & "," & Text3.TextEnd SubPrivate Sub Command1_Click() Text4.Text = DateDiff("d", Now, tim)End SubPrivate Sub Command2_Click() Text4.Text = DateDiff("w", Now, tim)End SubPrivate Sub Command3_Click() Text4.Text = DateDiff("m", Now, tim)End Sub【2-6】（选作）假设某电话系统按秒计费（0.02元/秒）,编程实现其通话计费程序。要求能够显示通话开始时间、通话结束时间、通话时间以及通话费。窗体设计界面如图2-6-1所示，运行结果界面如图2-6-2所示。2-6-1 窗体设计界面 2-6-2 运行结果界面源代码：Rem 在代码窗口选择“通用”,声明几个模块级变量供几个事件过程共同使用Dim t1 As Date, t2 As Date, t3 As DateRem 按钮Command1的Click事件(通话开始)过程代码：Private Sub Command1_Click() t1 = Time '读取通话开始时间，并存入变量t1中 Text1.Text = t1 '显示通话开始时间 Text2.Text = "" '将文本框内容清空 Text3.Text = "" Text4.Text = ""End SubRem 按钮Command2的Click事件(通话结束)过程代码：Private Sub Command2_Click() t2 = Time '读取通话结束时间，并存入变量t2中 Text2.Text = t2 '显示通话结束时间 t3 = t2 - t1 '计算通话时间 Text3.Text = t3 '显示通话时间 Text4.Text = Second(t3) * 0.02 '计算通话费，用second函数将时间转换为妙End Sub2、填空题(1) 设有变量x=35,y=20，试设计一个如图所示的窗体界面2-7-1，运行结果界面如图2-7-2、2-7-3所示，显示相应的值。2-7-1窗体界面图形2-7-2窗体装入结果图2-7-3计算结果图源代码：Private Sub Form_Load() _【1】_End SubPrivate Sub Command1_Click() Dim x _【2】_ x = 35 y = 20 Text1.Text = x > y Text2.Text = x >= y Text3.Text = x = y_【3】_ End SubPrivate Sub Command2_Click() _【4】_End Sub（2）输入圆半径，计算圆面积。运行结果如图2-8所示。2-8运行结果界面源代码：Private Sub Form_Load() Text1.Text = "" Text2.Text = ""End SubPrivate Sub Command1_Click() Dim r As Single, area As Single Const pi _【1】_ r = Val(Text1.Text) area = r * r * pi Text2.Text = Str(area)End SubPrivate Sub Command3_Click() EndEnd Sub实验三 顺序结构【实验目的】（1）掌握顺序结构程序执行方式。（2）掌握InputBox()和MsgBox()函数的使用方法。（3）掌握Print方法以及与之相关的函数的使用方法。【实验内容】1、尝试编写下列程序【3-1】设有如下的人员名册：姓名 年龄 职务 单位 籍贯 李爽 25 科长 劳资科 辽宁 赵旭 40 处长 科研处 上海编程序显示上面的表格（不显示横线）。输出结果如图3-1所示。3-1 运行结果界面源代码：Private Sub Form_Click() Print: Print FontName = "华文新魏" '字体类型 FontSize = 18 '字体大小 Print Tab(20); "人员", "名单" '用逗号分隔 Print FontName = "隶书" '字体类型 FontSize = 16 '字体大小 Print Spc(5); "姓名" Tab(14); "年龄" Tab(23); "职务" '一个汉字占两个字节 Print Tab(32); "单位" Tab(40); "籍贯" Print Print Print Space$(5) & "李爽" Spc(4); "科长" Tab(23); "25" Spc(6); "劳资科" Print Space$(3) & "辽宁"End Sub【3-2】从键盘上输入4个数，编写程序，计算并输出这4个数的和及平均值。通过InputBox函数输入数据，在窗体上显示和及平均值。运行结果如图3-2所示。 3-2 运行结果界面源代码：Private Sub Form_Click() Dim a%, b%, c%, d%, sum%, aver! a = Val(InputBox("输入第一个数") b = Val(InputBox("输入第二个数") c = Val(InputBox("输入第三个数") d = Val(InputBox("输入第四个数") sum = a + b + c + d: aver = sum / 4 Print "所输入的4个数分别为：" a, b, c, d Print "4个数的和为：" sum Print "4个数的平均值为:" averEnd Sub【3-3】用InputBox函数替代文本框实现【2-1】中的“考试姓名”、“考试成绩”和“平时成绩”数据的输入，本题的功能与【2-1】相同。程序运行结果如图3-3-4所示，其中包括一个PictureBox和一个Command。该工程项目的名称为“3-3”。3-3-1 “考生姓名输入框”对话框3-3-2 “考生成绩输入框”对话框 3-3-3 “考试成绩输入框”对话框3-3-4 运行结果界面源代码：Option Explicit '强制显示声明Private Sub Command1_Click() Dim zonghe As Single, ps As Single, ks As Single Dim xm As String, strs1 As String, strs2$strs1 = "请输入考生姓名" + Chr(13) + Chr(10) + "然后单击确定" 'Chr(13) + Chr(10)回车换行 strs2 = "请输入考试成绩" + Chr(13) + Chr(10) + "然后单击确定" xm = InputBox(strs1, "考生姓名输入框", "王晓明", 100, 100) ps = Val(InputBox(strs2, "请输入平时成绩", "90", , 400) ks = Val(InputBox("考试成绩输入框", , , 300, 200) zonghe = ps * 0.2 + ks * 0.8 Picture1.Print Tab(5); "姓名：" xm Picture1.Print "考试成绩：" ks Picture1.Print "平时成绩：" ps Picture1.Print xm & "的综合成绩是：" & zonghe & "分"End Sub【3-4】输入矩形的长和宽，然后输出矩形的面积。要求采用InputBox函数和MsgBox函数结合的方式进行输入和输出。运行结果界面如图3-4所示。 3-4 运行结果界面源代码：Private Sub Command1_Click() Dim x As Integer, y As Integer, area As Integer x = Val(InputBox("给变量x赋值") y = Val(InputBox("给变量y赋值") area = x * y MsgBox "矩形的面积是：" & areaEnd Sub2.填空题（1）写出下面事件过程测试数据的格式化输出_