VB实验指导

(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 题 假设有变量
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
《VB程序设计》实验指导书
实验一 VB集成环境及简单应用程
序的建立 一、实验目的 1．掌握Visual Basic启动和退 出的方法。 2．熟悉Visual Basic的集成开 发环境。 3．掌握Visual Basic程序设计 的基本步骤。 4. 掌握窗体的使用方法。 二、实验内容 1 启动Visual Basic，然后创 建一个“标准 EXE”工程。了解 Visual Basic集成开发环境下各组 成部分及其作用。 【要求】 （1）在集成开发环境中分别寻 找“窗体窗口”、“属性窗
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)如果两个操作数是数值型，则按 其大小进行比较。
二、实验内容 1 已知三角形三条边a、b、c， 从键盘输入其值（利用inputbox函 数），编写程序，计算三角形的面 积。 2 编写程序，界面如图4-1所 示。使得单击一次按钮可以产生一 个[60,90]之间的随机数并显示在标 签1上，再求出该数的正弦值，将结 果写在标签2上。 【提示】
（1）使用Rnd函数产生随机数，注意，为了防止两次运行程序的随 机数序列相同，调用Rnd之前先用Randomize语句进行初始化。 （2）产生某闭区间内的随机数的公式为：(上限-下限+1)*rnd+下 限。 （3）求正弦值函数为：sin()。
1 利用标签做浮雕效果文字。 参考书上例题[4-1]。
图2-1 实验2-1程序运行界面 2 编写一个应用程序，界面如 图2-1所示。窗体中文字“VB应用程 序！”为一标签控件，单击标题 为“放大”的命令按钮，则“VB应用 程序！”的字号放大一号，单击“缩 小”按钮则反之；同时，窗体中还有 4个含某种指向图案的按钮，若单击 某个按钮，则使“VB应用程序！”向 该按钮所指向的方向移动50Twip。
实验六 选择结构程序设计（二）
一、实验目的 1、掌握逻辑表达式及关系表达式的正确书写形式。 2、掌握IF语句单行和块书写格式及其正确使用（尤其注意ELSE 和 ELSE IF）。 3、掌握多分支情况的控制（使用Select CASE语句）的使用及与多 分支条件语句的区别。 二、实验内容 1 设计一个猜数字游戏软件，点击出题按钮，产生一个10到99的随机 数，然后在文本框中由用户输入数字，如果结果不对，应提示是大了， 还是小了，否则提示正确。运行界面下图所示。（思考：如何限制用户 猜数字的次数？）
三、注意事项 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个连续的“*”，即“****”。
二、实验内容 1 有函数：
图5-1 实验5-2程序运行界面
写一个程序，输入x值后，则输出相应y值。要求用“If…ElseIf… EndIf”和用“Select Case”两种方法完成该题目。 【提示】 注意区分1≤x<10和1<=x And x<10有什么不同。 2 编写一个判断给定坐标在第几象限的程序，界面如图5-1所示。
（5）保存文件。 【提示】 在窗体上显示“江西农业大 学”有两种方法： （1）用Print方法：颜色应该设 置窗体的前景色。 （2）用一个标签控件：颜色应 该设置标签控件的前景色。 【思考】为什么在以上两种方 法中在颜色的设置问题上有所不 同？ 3 窗体无最大化和最小化按钮。 在窗体装入时，在窗体的标题栏显 示“装入窗体”，并在窗体上装入 一幅图片作为背景；当用户单击窗 体，在标题栏显示“鼠标单击”， 在窗体上显示“单击窗体”；当用 户双击
接参加算术运算时，Text属性值先会自动转换为数值类型，然后再参加 算术运算。但是当Text属性值含有非数字字符时，会产生“类型不匹 配”的运行时错误，因此有些情况下采用显示转换更为安全妥当。 当字符串类型向数值类型转换时用函数Val（）；而当数值类型向 字符串类型转换时，可以用Str（）函数或格式化函数Format（）。
窗体，在标题栏显示“鼠标双 击”。去除窗体的背景图案，并
显示“双击窗体”。参考书上例 题[2-6]。运行结果如下图：
1-2 实验1-3程序运行界面 三、实验要求 1、做好实验预习，掌握，并熟 悉本实验中所使用的VB6.0企业版环 境及相应的控件。 2、写出实验报告，内容是： 1).程序的界面设计。
图4-3 实验4-4程序运行界面
实验五 选择结构程序设计（一）
一、实验目的 1、掌握逻辑表达式及关系表达式的正确书写形式。 2、掌握IF语句单行和块书写格式及其正确使用（尤其注意ELSE 和 ELSE IF）。 3、掌握多分支情况的控制（使用Select CASE语句）的使用及与多 分支条件语句的区别。
2).程序主要代码。 3).运行结果。 4).实验总结。 四、注意事项 1、注意VB集成开发环境各部分 的应用和控件的使用。 2、注意VB程序编码方式及书写 习惯。 实验二 VB常用控件的使用 一、实验目的 1．掌握基本控件（标签、命令 按钮和文本框）的基本使用方法。 2. 掌握Visual Basic程序设计 的基本步骤。 二、实验内容
图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．掌握循环的基本概念。 2．掌握For循环。 3．掌握Do ... While循环和Do While ... Loop循环，注意区分两 种循环。 4．了解Do ... Loop Until循环和Do Until ... Loop循环。 5．掌握如何利用循环条件来控制循环，防止死循环的出现。
图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
2 编写一个简单的应用程序。
要求窗体的标题为“简单VB实 验”；窗体中有一个标题为“显 示”的按钮；单击该按钮后在窗体 上显示蓝色的“江西农业大学”。 运行结果如下图：
图1-1 实验1-2程 序运行界面 【步骤】 （1）设计应用程序的界面； （2）设置对象的属性； （3）编写事件代码； （4）程序的运行及调试；
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