VB程序设计上机指导.docx

《VB程序设计上机指导.docx》由会员分享，可在线阅读，更多相关《VB程序设计上机指导.docx（31页珍藏版）》请在三一办公上搜索。

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:设计如图4的密码验证程序，假设正确密码是“123456”，单击“验证”按钮时，如果输入的密码正确则在标签2上提示“密码正确！”，否则则在标 签2上提示“密码错误！”，单击“退出”按钮退出程序。主要步骤提示：（1）建立如图4所示的应用程序界面（包括两个

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

18、k事件中输入下列程序代码（代码中横线部份需要根据后面注释补充完整）：Private Sub Form_Click（）声明somevalue为变体型变量Somevalue = “200”存入字符串 “200”Print somevalue;”它的类型是：”;typename（somevalue）Somevalue = somevalue 20somevalue 的值为数值 180Print somevalue;”它的类型是：”;typename（somevalue）Somevalue = “ abc ” & somevaluesomevalue 的值为字符串“abc180”Print somev

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

20、t Chr(65)Print在窗体上显示 “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

21、 * r ” 2l = 2 * 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

22、)Print LCase(HOW 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的值对调，单击“清空”按钮时 两个文本框清空，并且将焦点放在第一个文本框内

23、。图1主要步骤提示：（1）建立一个标准工程文件，并按图1所示设计好程序界面；（2）双击“调换”按钮，进入代码编辑窗口，在该按钮的Click事件中输入程 序代码（代码中横线部份请先填写完整）：Private Sub Command1_Click（）Dim a As Integer, b As Integer, t As Integera =Text1.Text b=Text2.TextText1.Text=aText2.Text=bEnd Sub（3）双击“清空”按钮，编写该按钮的单击事件代码，代码如图2：Privat e Sub Cojrunand2_Click ()Test 1.Text =

24、*Test 2.Text =Teirt 1. SetFocusEnd Sub图2（4）保存工程，运行并调试。上机题2：商场为了促销，经常采用购物打折的销售办法，根据购物款的多少将折扣分为若干种，例如： 购物款在1000元（含1000元）以上，打7.5折。 购物款在5001000元（含500元）之间，打8.5折。 购物款在200500元（含200元）之间，打9折。购物款在200以下，不打折。请编写一个初始界面如图3的程序：当输入客户购物金额后单击“结账”按钮会 显示出相应的折扣、优惠金额和实际付款数；单击“重置”按钮程序回到初始状 态。主要步骤提示：（1）建立一个标准工程文件，并按图3设计好程序

25、界面；（2） 编写各按钮的事件过程，其中“结账”、“重置”按钮的名字分别是 commandl、command2。相应的代码如图4；Couauidl | Click |Private Sub Commandl_C1i ck ()二Dim gwje As Eingl土 zk As Single yh As Einglf yk As Singlegwj e = Vai (Textl. Text)I gwj e X 1000 Thenzk = 7. 5: Text2. Text = zkyh 二 gwj e * (1 - zk + 0.1)： Text3. Text 二 yhyk - gwj e 一

26、yh： Text4. Text - ykEl self gwj e X 500 And gwj e 1000 ThenIzk = 8. 5: Text2. Text = zkyh 二 gwj e * (1 一 zk + 0.1)： Text3. Text 二 yh.yk = gwj e 一 yh： Text4. Text = ykEl self gwj e X 200 And gwj e 500 Thenzk = 9: Text2. Text = zkyh 二 gwj e * (1 - zk + 0.1)： Text3. Text 二 yhyk = gwj e 一 yh： Text4. Tex

27、t = ykEl self gwj e0 And gwj e200 ThenText2. Text =打桥*yh = 0: Text3.Text = yhyk = gwj e - yh: Text4.Text = ykElseMsgBox 非法数据，沽重新输入:Textl.Text 二心Text2.Text 二心Text3.Text 二 TText4.Text 二心Textl.SetFocusEnd IfEnd SubPrivate Sub Command2_Cli ck ()Textl.Text = 一TextZ.Text =心Text3.Text =Text4.Text =心Textl.

28、SetFocusEnd Subr图4（3）保存工程，运行并调试。上机题3：编制一个程序，界面如图5。输入的自变量x的值，利用下列公式求函数值y。x3-1x0x2+10Mx10Y=2xl0Mx20图5主要步骤提示：(1) 建立一个标准工程文件，按图5设计好程序界面；(2) 编写各按钮的事件过程，其中“求值”、“清空”按钮的名字分别是 commandl、command2。相应的代码如图6；图6(3) 保存工程，运行并调试。三、注意事项：(1)上机题1答案:t=aa=bb=t实验六循环结构(4学时)一、上机目的掌握循环结构程序设计方法二、上机内容及主要步骤上机题1：编写一个程序，该程序用来求1X2X

29、3X-X10的积。主要步骤提示：(1) 建立一个标准工程文件。(2) 双击Forml窗体，进入代码编辑窗口，在Form 1的Click事件中输入程序 代码：Private Sub Form_ClickDim s As Long, i As IntegerS=1Print sEnd Sub(3)运行程序，观察运行结果。上机题2:编写一个程序，初始界面如图1。该程序能生成20个110之间的随机数，并统计出其中偶数的个数和奇数的个数。主要步骤提示：(1) 建立一个标准工程文件，并按图1设计好程序界面；(2) 编写各按钮的事件过程，其中“生成随机数”和“退出”按钮的名字分 别是command1、com

30、mand2。相应的代码如图2所示：(3) 保存工程，运行并调试。Private Sub Couunandl_Click ()As Integerj i As Integetj j As Integer3 k As Integers o o 顼一一= D JkText 1.Text =RandomizeFor i = 1 To 20|s 二 Int(End * 10) + 1If s Mod 2 = 0 ThenJ = j + 1Elsek = k + 1End IfText 1. TeKt = m & & Text 1. TextNeKt iTeKt2.Text 二 jTest3.Text = kEnd SubPrivate Sub Couunand2_Click ()EndEnd Sub三、注意事项：(1)上机题1答案：for i=1 to 10s=s*inextLoop语句如何实现呢?请大家思考一下，本题如果用Do While