VB实验指导

图4-3 实验4-4程序运行界面
实验五 选择结构程序设计（一）
一、实验目的 1、掌握逻辑表达式及关系表达式的正确书写形式。 2、掌握IF语句单行和块书写格式及其正确使用（尤其注意ELSE 和 ELSE IF）。 3、掌握多分支情况的控制（使用Select CASE语句）的使用及与多 分支条件语句的区别。
口”、“工程资源管理器”、“窗 体布局窗口”、“工具箱窗口”， 熟悉它们的默认位置。 （2）在“视图”或“工程资源 管理器”中切换显示“代码窗 口”和“窗体窗口”。 （3）在“视图”菜单中点 击“立即窗口”，观察刚刚显示出 来的“立即窗口”。 （4）尝试分别将各部分关闭， 然后再用“视图”菜单中对应的菜 单命令将其显示。
实验八 循环结构程序设计（二）
一、实验目的 1．掌握循环的基本概念。 2．掌握For循环。 3．掌握Do ... While循环和Do While ... Loop循环，注意区分两 种循环。 4．了解Do ... Loop Until循环和Do Until ... Loop循环。 5．掌握如何利用循环条件来控制循环，防止死循环的出现。
实验六 选择结构程序设计（二）
一、实验目的 1、掌握逻辑表达式及关系表达式的正确书写形式。 2、掌握IF语句单行和块书写格式及其正确使用（尤其注意ELSE 和 ELSE IF）。 3、掌握多分支情况的控制（使用Select CASE语句）的使用及与多 分支条件语句的区别。 二、实验内容 1 设计一个猜数字游戏软件，点击出题按钮，产生一个10到99的随机 数，然后在文本框中由用户输入数字，如果结果不对，应提示是大了， 还是小了，否则提示正确。运行界面下图所示。（思考：如何限制用户 猜数字的次数？）
【思考】怎样产生一个[60,90]之间的随机数？
图4-2 实验434程序运行界面 图4-1 实验4-2程序运行界面
3 编写一个华氏温度F与摄氏温度C之间转换的应用程序，界面如图 4-2所示。其中F与C之间的关系为：。 4 编写计算圆面积和球体积的程序，程序运行界面如图4-3所示。 要求输出结果只保留四位小数；如果半径的输入不合法，例如含有非数 值字符，应该用MsgBox报告输入错误，并在错误信息得到用户确认（点 击MsgBox对话框上的“确定”按钮）之后，将输入焦点转移到输入半径 的文本框中，且将当前的非法输入自动选定，反白显示。 【提示】 （1）判断输入值是否为数值类型可用函数IsNumber（）； （2）VB大部分数据类型之间在适当的时候会自动相互转换，此谓 隐式转换。例如，文本框的Text属性为字符串类型，当用Text属性值直
2).程序主要代码。 3).运行结果。 4).实验总结。 四、注意事项 1、注意VB集成开发环境各部分 的应用和控件的使用。 2、注意VB程序编码方式及书写 习惯。 实验二 VB常用控件的使用 一、实验目的 1．掌握基本控件（标签、命令 按钮和文本框）的基本使用方法。 2. 掌握Visual Basic程序设计 的基本步骤。 二、实验内容
Date,S2 as Date a = #5／9／2002# s = #5／12／1999 12：30： 15 PM# d = 2001．12 f = -2001．12 S1 = 0．5 S2 = 0 Print a,S Print d,f Print Sl,S2 End Sub (实例3) 求余数(模)运算符的使 用。 Private Sub Form_cliCk() Print 20 Mod 3 Print 20 Mod -3 Print -20 Mod 3
三、注意事项 1、注意VB集成开发环境各部分的应用和控件的使用。 2、注意VB程序编码方式及书写习惯。
实验七 循环结构程序设计（一）
一、实验目的 1．掌握循环的基本概念。 2．掌握For循环。 3．掌握Do ... While循环和Do While ... Loop循环，注意区分两 种循环。 4．了解Do ... Loop Until循环和Do Until ... Loop循环。 5．掌握如何利用循环条件来控制循环，防止死循环的出现。 二、实验内容 1 编写一个程序，当程序运行时，单击窗体后，用单循环在窗体上 输出规则字符图形，如图4-1所示。 【提示】 使用String（）函数，String（）函数可以重复显示某个字符串。 例如，String（4，"*"）可以生成4个连续的“*”，即“****”。
（5）保存文件。 【提示】 在窗体上显示“江西农业大 学”有两种方法： （1）用Print方法：颜色应该设 置窗体的前景色。 （2）用一个标签控件：颜色应 该设置标签控件的前景色。 【思考】为什么在以上两种方 法中在颜色的设置问题上有所不 同？ 3 窗体无最大化和最小化按钮。 在窗体装入时，在窗体的标题栏显 示“装入窗体”，并在窗体上装入 一幅图片作为背景；当用户单击窗 体，在标题栏显示“鼠标单击”， 在窗体上显示“单击窗体”；当用 户双击
Fra Baidu bibliotek
a=2,b=5,c=4,d=3,e=6，编写程序， 计算表达式a+b>c and d*a=e的值， 将结果打印在窗体上。 【提示】 注意复合表达式的运算顺序。 【思考】复合表达式按什么样 的顺序运算？ 实验四 顺序结构程序设计 一、实验目的 1．掌握常量和变量、表达式的 基本概念和正确书写格式。 2．掌握赋值语句和常用函数的 正确使用方法。 3. 掌握输入、输出对话框 （InputBox和MsgBox）的基本使用 方法。
Print -20 Mod –3 End Sub 观察运行结果。 (实例4) 关系运算符。 Private Sub Form_click() Print “abcde” = “abd” Print “abcde” > “aba” Print “BC” >= “ABCFF” Print 31 < 3 Print “34” < “3” Print “abc” <> “ABC” End Sub 在比较时注意以下原则： (1)如果两个操作数是数值型，则按 其大小进行比较。
(2)如果两个操作数是字符型，则按 字符的ASCⅡ码值从左到右一一比 较，也就是说，先比较两个字符串 中的第一个字符，其ASCⅡ码值大的 字符串大，如果第一个字符相同， 则比较第二个字符，依此类推，直 到比出结果为止。 (实例5) 算术运算函数的使用。 Private Sub Form_cliCk() Print Abs(-1.7), Log(12), Sqr(9) Print Exp(3), Sin(30 * 3.1415926/180) Print Int(-3.5), Fix(-3.5), Round(1.5), Round(1.512,2) End Sub 题 假设有变量
1 利用标签做浮雕效果文字。 参考书上例题[4-1]。
图2-1 实验2-1程序运行界面 2 编写一个应用程序，界面如 图2-1所示。窗体中文字“VB应用程 序！”为一标签控件，单击标题 为“放大”的命令按钮，则“VB应用 程序！”的字号放大一号，单击“缩 小”按钮则反之；同时，窗体中还有 4个含某种指向图案的按钮，若单击 某个按钮，则使“VB应用程序！”向 该按钮所指向的方向移动50Twip。
图2-2 实验2-2程序运行界面
【提示】 四种指向的图案自行在网上搜 索，也可以选择任意喜欢的图案替 换。
实验三 Visual Basic语言基础 一、实验目的 (1)掌握Visual Basic的数据类型和 变量定义方法。 (2)正确使用Visual Basic的运算符 和表达式。 (3)掌握Visual Basic中数据输入、 输出的方法。 (4)掌握Visual Basic常用函数的使 用方法。 (5)学会用赋值语句构造简单的顺序 结构程序。 二、实验内容 (实例1) 逻辑型数据的使用。 Private Sub Form_click() Dim a as Boolean,b as Boolean
图4-1 实验4-1程序运行界面
2 编写程序，计算Sum=1+2+3+...，的值，直到Sum > 6000为止。 3 计算的值，当第i项时结束。
4 使用双重循环，输出“九九乘法表”，如图4-3所示。
图4-2 实验4-4程序运行界面
【提示】 （1）注意行号和该行乘法单元的个数之间的关系。 （2）注意乘法单元的规律：“4×3＝12”中4为行号，3为列号， 且列号不大于行号。 （3）乘号“×”可从汉字输入法软键盘菜单的“数学符号”中找 到；或从Word中菜单【插入】->【符号】中找到，再从Word中剪切或复 制到VB代码中。 （4）可以将窗体的AutoRedraw属性设为True，以防初始大小的窗 体显示不下全部内容。
二、实验内容 1 有函数：
图5-1 实验5-2程序运行界面
写一个程序，输入x值后，则输出相应y值。要求用“If…ElseIf… EndIf”和用“Select Case”两种方法完成该题目。 【提示】 注意区分1≤x<10和1<=x And x<10有什么不同。 2 编写一个判断给定坐标在第几象限的程序，界面如图5-1所示。
二、实验内容 1 已知三角形三条边a、b、c， 从键盘输入其值（利用inputbox函 数），编写程序，计算三角形的面 积。 2 编写程序，界面如图4-1所 示。使得单击一次按钮可以产生一 个[60,90]之间的随机数并显示在标 签1上，再求出该数的正弦值，将结 果写在标签2上。 【提示】
（1）使用Rnd函数产生随机数，注意，为了防止两次运行程序的随 机数序列相同，调用Rnd之前先用Randomize语句进行初始化。 （2）产生某闭区间内的随机数的公式为：(上限-下限+1)*rnd+下 限。 （3）求正弦值函数为：sin()。
2 编写一个简单的应用程序。
要求窗体的标题为“简单VB实 验”；窗体中有一个标题为“显 示”的按钮；单击该按钮后在窗体 上显示蓝色的“江西农业大学”。 运行结果如下图：
图1-1 实验1-2程 序运行界面 【步骤】 （1）设计应用程序的界面； （2）设置对象的属性； （3）编写事件代码； （4）程序的运行及调试；
Dim X as Integer,y as Integer x = 0 y = -2 a = x b = y Print a,b,x,y a = True b = FalSe x = a y=b Print x,y,a,b End Sub (实例2) 日期型数据。 Private Sub Form_click() Dim a as Date,S as Date,d as Date Dim f as Date,S1 as
接参加算术运算时，Text属性值先会自动转换为数值类型，然后再参加 算术运算。但是当Text属性值含有非数字字符时，会产生“类型不匹 配”的运行时错误，因此有些情况下采用显示转换更为安全妥当。 当字符串类型向数值类型转换时用函数Val（）；而当数值类型向 字符串类型转换时，可以用Str（）函数或格式化函数Format（）。
窗体，在标题栏显示“鼠标双 击”。去除窗体的背景图案，并
显示“双击窗体”。参考书上例 题[2-6]。运行结果如下图：
1-2 实验1-3程序运行界面 三、实验要求 1、做好实验预习，掌握，并熟 悉本实验中所使用的VB6.0企业版环 境及相应的控件。 2、写出实验报告，内容是： 1).程序的界面设计。
《VB程序设计》实验指导书
实验一 VB集成环境及简单应用程
序的建立 一、实验目的 1．掌握Visual Basic启动和退 出的方法。 2．熟悉Visual Basic的集成开 发环境。 3．掌握Visual Basic程序设计 的基本步骤。 4. 掌握窗体的使用方法。 二、实验内容 1 启动Visual Basic，然后创 建一个“标准 EXE”工程。了解 Visual Basic集成开发环境下各组 成部分及其作用。 【要求】 （1）在集成开发环境中分别寻 找“窗体窗口”、“属性窗