VB程序设计上机指导

1、VB程序设计上机指导实验一 窗体文件、工程文件的建立、保存与打开（一）（2学时）一、上机目的1、掌握工程文件的建立、保存和打开方法。2、掌握窗体文件的建立、保存和打开方法。3、掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。二、上机内容及主要步骤上机题1：设计一简单应用程序，在窗体上放置1个文本框、2个命令按钮，初始的时候text控件值为空，单击“继续”按钮后text控件显示“这是我的第一个VB应用程序”，单击“结束”按钮退出，用户界面如图所示。图1主要步骤提示：（1）新建一个工程；（2）按上图所示在窗体上添加一个标签（label）控件，两个命令按钮（command）控

2、件，并相应调整它们在窗体中的位置；（3）将标签控件的text属性设置为空（即清除text属性中的文本text1）；（4）双击“结束”按钮，在弹出的代码窗口中编写相应的事件过程，如图2；（5）同理，双击“继续”按钮，在弹出的代码窗口中编写相应的事件过程，如图3；（6）保存并运行工程，如运行时有错误请根据提示做相应修改后再保存再运行。 图2图3上机题2：设计如图4的密码验证程序，假设正确密码是“123456”，单击“验证”按钮时，如果输入的密码正确则在标签2上提示“密码正确！”，否则则在标签2上提示“密码错误！”，单击“退出”按钮退出程序。主要步骤提示：（1）建立如图4所示的应用程序界面（包括两个

3、标签，标签1用于显示“请输入密码”，标签2用于显示经过密码校验后的结果，标签2初始值为空；一个文本框，注意密码输入的时候要显示成*号的形式，可在password属性里设置；两个命令按钮）。（2）“验证”按钮的事件过程如下：Private Sub Command1_Click() If Text1.Text = 123456 ThenLabel2.Caption = 密码正确！Else Label2.Caption = 密码错误！ Endif End Sub（3）保存并运行工程，结果如图5、图6所示。图4图5图6上机题3：设计一个简单程序，该界面如下图所示。程序运行后单击“开始”按钮，文本框中显

4、示“欢迎使用VB6.0!”，单击“修改” 按钮时，将文本框中的文字的大小设为20号，前景色设成红色。单击 “清除”按钮时，清除文本框的内容，单击“结束”按钮时，程序结束。图7主要步骤提示：（1）按上图所示建立好程序界面（2）各按钮的主要事件过程如图8所示：图8三、注意事项：（1）修改对象属性和引用对象方法时用的对象名必须是属性窗口中第一个属性“名称”属性里的值；（2）对象名后的句点不能输成句号；（3）输出一段文字时，在文字的两端必须加上英文输入状态下的双引号。实验二 窗体文件、工程文件的建立、保存与打开（二）（2学时）一、上机目的1、熟练掌握工程文件的建立、保存和打开方法。2、熟练掌握窗体文件

5、的建立、保存和打开方法。3、熟练掌握建立、编辑和运行一个简单的Visual Basic应用程序的全过程。二、上机内容及主要步骤上机题1：设计一个程序，程序界面如图1：程序由7个标签（label）、两个文本框（textbox）和三个按钮组成。当用户输入完相应的姓名和学号信息后单击“确定”按钮会显示出校对信息（如图2）；单击“清空”按钮后清空输入的信息及验证信息；单击“退出”按钮结束程序。另外，在单击窗口的时候使窗口隐藏，并弹出一个对话框（如图3），该对话框提示“单击显示，重新显示窗口”，当单击“显示”按钮后重新显示窗口。图1图2图3主要步骤提示：（1）新建一个工程；（2）建立如图1所示的应用程序

6、界面（包括7个标签（label）、两个文本框（textbox）和三个按钮）；（3）编写各按钮的事件过程，其中“确定”、“清空”、“退出”、按钮的名字分别是command1、command2、command3。相应的代码如图4；（4）保存工程，运行并调试。图4上机题2：设计一个程序，程序界面如图5所示：程序由一个图像框（image）、四个按钮组成。单击“左移”按钮，图像左移（每次向左移动100）；单击“缩小”按钮图像，图像缩小为原来的一半；单击“放大”按钮，图像放大为原来的两倍；单击“右移”按钮，图像右移（每次向右移动100）。图5主要步骤提示：（1）新建一个工程；（2）建立如图5所示的应用程序

7、界面（包括1个图像框（image）、和三个按钮），并事先往图像框中添加一张图片；（3）编写各按钮的事件过程，其中“左移”、“缩小”、“放大”、“右移”按钮的名字分别是command1、command2、command3、command4。相应的代码如图6；（4）保存工程，运行并调试。图6三、注意事项：（1）有关对话框的知识请参阅课本P176；实验三 常用标准控件（4学时）一、上机目的1、掌握标签、文本框、命令按钮的设计方法及常用属性、事件和方法；2、掌握单选按钮、复选按钮和框架的设计方法及常用属性、事件和方法；3、掌握列表框、组合框的设计方法及常用属性、事件和方法。二、上机内容及主要步骤上机题

8、1：设计一个程序，程序由两个按钮组成，每个按钮都有相应的快捷键，程序界面如图1。当用户单击“确定”按钮或按键盘上的Enter键时窗体会显示信息“确定按钮被选中！”（如图2）；当用户单击“取消”按钮或按键盘上的Esc键时窗体会显示信息“取消按钮被选中！”（如图3），图1图2图3主要步骤提示：（1）新建一个工程；（2）建立如图1所示的应用程序界面；（3）将command1的Default属性设置为true，将command2的Cancel属性设置为true；（4）编写两按钮的单击事件（利用窗体的Print方法输出提示信息）；（5）保存工程，运行并调试。上机题2：设计一个简单计算器，程序初始界面如图

9、4所示：当单击“相加”按钮，在前两个文本框的标签中显示“+”号，并计算出前两个文本框中两数的和，将和存放到第三个文本框；同样的道理单击其它按钮都会显示相应的运算符号，并算出结果；单击“归零”按钮，程序界面回到图4所示的界面（焦点在第一个文本框）。图4主要步骤提示：（1）新建一个工程；（2）建立如图4所示的应用程序界面（包括3个文本框、两个标签和五个按钮，为避免运算结果被误改，将文本框3设为只读）；（3）编写各按钮的事件过程，其中“相加” 、“相减” 、“相乘” 、“相除” 、“归零”按钮的名字分别是command1、command2、command3、command4、command5。相应的

10、代码如图5；（4）保存工程，运行并调试。图5上机题3：设计一个初始界面如图6的程序，文本框中默认显示“单选按钮演示”，单击“字体”框架中某一项时，文本框中的文字就被修改为相应的字体；单击颜色框架中某一项时，文本框中的文字就被修改为相应的颜色；单击“结束”按钮退出应用程序。图6主要步骤提示：（1）新建一个工程；（2）建立如图6所示的应用程序界面（包括1个文本框、两个框架frame和6个单选按钮OptionButton，1个命令按钮）；（3）编写各控件的事件过程，其中单选按钮“宋体”、“隶书”、“幼圆”、“红”、“绿”、“蓝”的名字分别是Option1、Option2、Option3、Option

11、4、Option5、Option6。相应的代码如图7；（4）保存工程，运行并调试。图7上机题4：设计一个初始界面如图8的程序，程序中文本框中默认显示“复选框演示”，选中“粗体”复选框时，文本框中的文字被加粗；选中“斜体”复选框时，文本框中的文字被改成斜体；选中“下划线”复选框时，文本框中的文字被加上下划线。图8主要步骤提示：（1）新建一个工程；（2）建立如图6所示的应用程序界面（包括1个文本框、3个复选框CheckBox）；（3）编写各控件的事件过程，其中复选框“粗体” 、“斜体” 、“下划线”的名字分别是Check1、Check2、Check3。相应的代码如图9；（4）保存工程，运行并调试。

12、图9上机题5：设计一个简单记事本程序，程序初始界面如图10所示。该程序能够在右边文本编辑区内输入多行文字，并通过单击左边列表框里相应的字号来修改编辑区里文本字体的大小。另外，通过单击“添加”按钮会弹出一个如图11的输入对话框来添加新的字号；单击“删除”按钮删除选中的字号；单击“清除”按钮清除列表框内所有的字号。图10图11主要步骤提示：（1）新建一个工程；（2）建立如图10所示的应用程序界面（包括1个文本框、1个标签，一个列表框ListBox和3个命令按钮）；（3）按图11的样式来设计界面，注意为使文本框能输入多行文本需把文本框的MultiLine属性设置为true；（4）编写各控件的事件过程

13、，其中复选框“添加” 、“删除” 、“清空”三个命令按钮的名字分别是command1、command2、command3，列表框的名字为List1。相应的代码如图12；（5）保存工程，运行并调试。图12上机题6：设计如图13所示的程序，该程序通过三个滚动条来改变窗体的颜色。图13主要步骤提示：（1）新建一个工程；（2）建立如图13所示的应用程序界面（包括3个标签，3个水平滚动条HScrollBar）；（3）将3个水平滚动条的min属性值都设为0，max属性值都设为255；（4）编写各控件的事件过程，其中三个水平滚动条从上到下的名字依次是：HScroll1、HScroll2、HScroll3。相

14、应的代码如图14；（5）保存工程，运行并调试。图14三、注意事项：（1）上机题2中在实现除法运算的时候要扣除除数为0的情况（可弹出对话框提示除数不能为0）；（2）在上机题2中在各个运算都能得出正确结果后试着将代码中的“val”去掉，例如加法运算代码改成“text3.text=text1.text+text2.text”看看结果会变成什么？想想为什么会出现这个结果；（3）通过上机题3与上机题4明确单选按钮与复选框的用法；（4）输入对话框的相应知识参阅课本P148。实验四 常量、变量、函数、表达式的应用（4学时）一、上机目的1、掌握VB数据类型；2、学会定义符号常量；3、掌握变量的类型及定义方法；

15、4、学会使用VB表达式；5、掌握VB常用内部函数的用法。二、上机内容及主要步骤上机题1：编写一个程序，该程序通过输入一个圆的半径，能求出圆的周长和面积 。主要步骤提示：（1）建立一个标准工程文件。（2）双击Form1窗体，进入代码编辑窗口，在Form1的Click事件中输入程序代码（代码中横线部份需要根据后面注释补充完整）：Private Sub Form_Click()_定义单精度型变量R，S和L_定义单精度符号常量PI ，赋值为3.14R = Val ( InputBox(“请输入该圆的半径：”) )S =_计算圆的面积L =_计算圆的周长Print “圆的面积为：” ； SPrint “

16、圆的周长为：” ； LEnd Sub（3）运行程序，单击窗体，观察运行结果，并保存工程文件。上机题2：分别定义几个符号常量（如双精度、字符串型、日期时间型等符号常量），并根据提示赋予相应的初值，最后用Print语句输出相应结果。主要步骤提示：（1）建立一个标准工程文件。（2）双击Form1窗体，进入代码编辑窗口，在Form1的Click事件中输入以下程序代码（代码中横线部份需要根据后面注释补充完整）：Private Sub Form_Click()_定义PI为双精度符号常量，并赋值为3.14。Print “PI=”;PI_定义VB6为字符型符号常量，并赋值为“Visual Basic 6.0”

17、。Print “Visual Basic 6.0”Print “VB6=”;VB6_定义BIRTHDAY为日期型符号常量，并赋值为你的生日。Print “我的生日是：”; BIRTHDAY_定义BEGIN_TIME为日期型符号常量,并赋值为7:50:20 AMPrint BEGIN_TIMEEnd Sub（3）运行程序，单击窗体，观察运行结果，并做记录。上机题3：定义一个变体型变量somevalue，并赋予几个不同类型的值，观察变体型变量类型的变化。主要步骤提示：（1）建立一个标准工程文件。（2）双击Form1窗体，进入代码编辑窗口，在Form1的Click事件中输入下列程序代码（代码中横线部

18、份需要根据后面注释补充完整）：Private Sub Form_Click()_声明somevalue为变体型变量Somevalue = “200” 存入字符串“200”Print somevalue;”它的类型是：”;typename(somevalue)Somevalue = somevalue 20 somevalue 的值为数值 180Print somevalue;”它的类型是：”;typename(somevalue)Somevalue = “abc” & somevalue somevalue的值为字符串“abc180”Print somevalue;”它的类型是：”;typen

19、ame(somevalue)End Sub（3）保存文件。（4）运行文件，单击窗体，观察运行结果，并作记录。上机题4：按要求填写代码，并观察输出结果。主要步骤提示：（1）建立一个标准工程文件。（2）双击Form1窗体，进入代码编辑窗口。在Form的Click事件中输入下列代码：Private Sub Form_Click()Const pi as single=3.14Print_在窗体上显示 Sin30的值。Print_在窗体上显示 10的值。Print Sgn(10) 在窗体上返回10的符号。Print_在窗体上显示 字母A的ASCII码值。Print Chr(65) Print_在窗体上

20、显示 “HOW ARE YOU!”的小写形式。Print_在窗体上显示字符串 “HOW ARE YOU!”的长度。Print_在窗体上返回字符串“HOW ARE YOU!” 的第6个字符。Print_在窗体上显示系统当前日期。Print_在窗体上显示系统当前日期和时间。Print_在窗体上显示系统当前的年份。End Sub（3）保存文件。（4）运行文件。单击窗体，观察运行结果，并作记录。三、注意事项：（1）上机题1的答案如下：Dim r As Single, s As Single, l As SingleConst pi As single = 3.14s = pi * r 2l = 2 *

21、 pi * r（2）上机题2的答案如下：Const PI As Double = 3.14Const VB6 As String = Visual Basic 6.0Const BIRTHDAY As Date = #1/1/2009#Const BEGIN_TIME As Date = #12:00:00 PM#（3）上机题3的答案如下 ：Dim somevlue as variant另外，“&”是字符串通用连接运算符（参阅课本P78）（4）上机题4的答案如下 ：Print Sin(30 * pi / 180)Print Abs(-10)Print Asc(A)Print LCase(HOW

22、 ARE YOU!)Print Len(HOW ARE YOU!)Print Mid(HOW ARE YOU!, 6, 1)Print DatePrint NowPrint Year(Date)另外，该题所调用的系统内部函数请参阅课本P79-P84实验五 顺序结构和选择结构（4学时）一、上机目的1、掌握顺序结构程序设计方法；2、掌握选择结构程序设计方法。二、上机内容及主要步骤上机题1：编写一个程序，该程序实现了两个变量的值调换功能，程序初始界面如图1。单击“调换”按钮时变量1与变量2的值对调，单击“清空”按钮时两个文本框清空，并且将焦点放在第一个文本框内。图1主要步骤提示：（1）建立一个标准工

23、程文件，并按图1所示设计好程序界面；（2）双击“调换”按钮，进入代码编辑窗口，在该按钮的Click事件中输入程序代码（代码中横线部份请先填写完整）：Private Sub Command1_Click() Dim a As Integer, b As Integer, t As Integer a =Text1.Text b=Text2.Text _ _ _ Text1.Text=a Text2.Text=bEnd Sub（3）双击“清空”按钮，编写该按钮的单击事件代码，代码如图2：图2（4）保存工程，运行并调试。上机题2：商场为了促销，经常采用购物打折的销售办法，根据购物款的多少将折扣分为若干种，例如： 购物款在1000元（含1000元）以上，打7.5折。 购物款在5001000元（含500元）之间，打8.5折。 购物款在200500元（含200元）之间，打9折。 购物款在200以下，不打折。请编写一个初始界面如图3的程序：当输入客户购物金额后单击“结账”按钮会显示出相应的折扣、优惠金额和实际付款数；单击“重置”按钮程序回到初始状态。图3主要步骤提示：（1）