福建农林大学计算机与信息学院(计算机公共基础二级课程)实验报告课程名称：Visual Basic 程序设计*名：***学院: 食品科学学院专业：食品科学与工程年级：2010级学号：************指导老师：***职称：讲师2012 年5 月20 日实验项目列表福建农林大学计算机与信息学院实验报告学院：食品科学学院专业：食品科学与工程年级： 2010级姓名：邹丽平学号： 102258016001 实验室号__宝玲楼304___计算机号 01 实验时间： 2012.3.5 指导教师签字：黄红兵成绩：报告退发（订正、重做）实验一 VB环境和简单应用程序设计一、实验目的和要求1.了解Visual Basic系统对计算机软件、硬件的要求。
2.掌握启动与退出Visual Basic的方法。
3.熟悉visual basic的集成开发环境（IDE）。
4.掌握建立、编辑、运行和保存一个简单visual basic应用程序的全过程。
5.了解基本控件（窗体、标签、文本框、命令按钮）的简单应用。
二、实验内容1.启动Visual Basic 6.0，熟悉其集成开发环境。
2.按图1-1在标题为“第一个应用程序”的窗体Form1上画两个标题分别为“欢迎您使用Visual Basic”和“请输入您的姓名”的标签（ Label1和Label2），Label1的字体为隶书，并且其能根据文本大小自动调整尺寸，Label2的字型为倾斜；然后再设计一个初始文本为空的文本框Text1.图1-1 运行界面3.按图1-2在标题为“命令按钮设置”的窗体Form1上画三个标题分别为“禁止用C3”、“允许用C3”和“C3”的命令按钮（C1、C2和C3）。
运行时，如果单击“禁止用C3”按钮，则C3按钮无效（如图10-2所示）；如果单击“允许用C3”按钮，则C3按钮有效。
图1-2 运行界面4.按图1-3在标题为“文本复制”的窗体Form1上画两个文本框（Text1和Text2），其初始文本为空，设置适当的属性使文本框Text2可以显示多行文本，有一个垂直滚动条，而且Text2不可编辑文本。
运行时，在文本框Text1中输入一个字符串，单击窗体，则将Text1中的文本复制到Text2中。
图1-3 运行界面5.按图1-4在标题为“标签内容显示”的窗体Form1上画一个标题为空、带有单边框的标签Label1,再画两个标签分别为“显示”和“清空”的命令按钮（Command1和Command2）。
运行时，单击“显示”按钮，则在标签Label1中显示“欢迎使用Visual Basic6.0！”；单击“清空”按钮，则Label1的标题为空。
图1-4 运行界面三、实验步骤1、实验内容1的操作步骤：（1）单击“开始”按钮，在“程序”中执行“Microsoft Visual Basic6.0中文版”命令，系统将自动显示“新建工程”对话框。
（2）在“新建工程”对话框中选中“标准EXE”图标，单击“打开”按钮，就可以打开Visual Basic集成开发环境（IDE）。
（3）观察其标题栏、菜单栏、工具栏与Microsoft其他应用程序的不同之处。
（4）将鼠标指向工具箱上的各个标准控件，了解它们各自的默认名称。
（5）分别单击“工程”、“属性”、“窗体布局”窗口及“工具箱”窗口右上角的“关闭”按钮，将其全部关闭。
（6）执行“视图”菜单中的“工程资源管理器”、“属性窗口”、“窗体布局窗口”及“工具箱”命令，分别打开相应的窗口。
2、实验内容2的操作步骤：（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上添加两个标签和一个文本框。
（2）各控件属性设置如下：控件名称属性属性值Form1 Caption 第一个应用程序Label1Caption 欢迎您使用Visual Basic Font→字体选择“隶书”AutoSize TureLabel2Caption 请输入您的姓名Font→字体选择“斜体”Text1 Text （空白）（3）各控件的布局如下：（4）单击“文件︱保存工程”菜单项，以Fe.frm为窗体文件名和为Fe.vbp 为工程文件名保存在VB实验文件夹中。
3、实验内容3的操作步骤：（1）新建一个新建一个“标准EXE”类型的工程，然后在窗体Form1上添加三个命令按钮，并将它们名称分别改为C1、C2和C3。
控件名称属性属性值Form1 Caption 命令按钮设置C1 Caption 禁止用C3C2 Caption 允许用C3C3 Caption C3（3）各控件的布局如下：（4）双击窗体，打开代码窗口，输入如下代码：Private Sub Command1_Click()Command3.Enabled = False ’禁止使用C3命令按钮End SubPrivate Sub Command2_Click()Command3.Enabled = True ’允许使用C3命令按钮End Sub（5）单击“文件︱保存工程”菜单项，以Cs.frm为窗体文件名和为Cs.vbp 为工程文件名保存在VB实验文件夹中。
4、实验内容4的操作步骤：（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上添加两个文本框。
（2）各控件属性设置如下：控件名称属性属性值Form1 Caption 文本复制Text1 Text （空白）Text2Text （空白）MultiLine Ture ScrollBars 2-Vetical Licked Ture（3）各控件的布局如下：（4）双击窗体，打开代码窗口，输入如下代码：Private Sub Form_Click()Text2.Text = Text1.Text ’把Text1中的文本信息复制到Text2 End Sub（5）单击“文件︱保存工程”菜单项，以Copy.frm为窗体文件名和为Copy.vbp 为工程文件名保存在VB实验文件夹中。
5、实验内容5的操作步骤：（1）新建一个“标准EXE”类型的工程，然后在窗体Form1上添加一个标签和两个命令按钮。
（2）各控件属性设置如下：控件名称属性属性值Label1Caption （空白）BorderStyle 1-Fixed SingleCommand1 Caption 显示Command2 Caption 清空（3）各控件的布局如下：（4）双击窗体，打开代码窗口，输入如下代码：Private Sub Command1_Click()Label1.Caption = "欢迎使用VISUAL BASIC 6.0" ’显示文本信息End SubPrivate Sub Command2_Click()Label1.Caption = "" ’退出程序End Sub（5）单击“文件︱保存工程”菜单项，以Es.frm为窗体文件名和为Es.vbp 为工程文件名保存在VB实验文件夹中。
四、实验环境1.硬件：PC机2.软件：Windows操作系统、Visual Basic 6.0五、实验结果五个实验都能按照要求做出相应的结果，结果都正确。
六、总结1、掌握了的启动与退出，熟悉了的集成开发环境（IDE）；2、掌握了应用程序建立、编辑、运行和保存的全过程；3、了解了系统的基本控件的简单应用。
福建农林大学食品科学学院实验报告学院：食品科学学院专业：食品科学与工程年级： 2010级姓名：邹丽平学号： 102258016001 实验室号：宝玲楼304_计算机号： 01 实验时间： 2012.3.12 指导教师签字：黄红兵成绩：实验二顺序结构程序设计一、实验目的1、掌握常用内部函数的使用。
2、掌握表达式、赋值语句的正确书写规范。
3、掌握InputBox与MsgBox的使用。
4、掌握Print方法的使用。
二、实验内容1、在立即窗口中运行下列表达式的值:(1)16/4-2^5*8/4mod5\2(2)Int(198.555*100+0.5)/100(3)123+Mid(“123456”,3,2)(4)123&Mid(“123456”,3,2)(5)Ucase(Mid(“123456”,3,4))2、设计图2-1所示的窗体Form1，其标题为“Print方法”。
运行时，自动在窗体上显示图2-1所示的图形。
图2-1 运行界面【提示】（1）将窗体的Caption属性设置为“Print方法”，AutoRedraw属性设置为Ture。
（2）在Form-Load()事件中输入代码，用Print语句及Tad()函数和Spc()函数实现。
3、请按图2-2所示在窗体Form1上创建一个初始文本为“Visual Basic”的文本框Text1以及两个标题分别为“放大”和“还原”的命令按钮（Command1和Command2）。
运行时，单击“放大”按钮，将文本框中显示的字符串放大2倍或3倍（随机数）；单击“还原”按钮，则文本框中显示的字符串大小还原。
【提示】（1）字体缩放使用FontSize属性。
（2）要还原字体大小，必须保存放大前的字体大小，可以使用模块级变量来保存放大前的字体大小。
（3）放大2倍或3倍可以用随机数：Int(Rnd*2+2)实现图2-2 运行界面4、请按图2-3所示在标题为“日期时间函数应用”的窗体Form1上添加两个标题分别为“当前日期”和“当前星期”的标签（Label1和Label2），两个初始文本为空的文本框（Text1和Text2），最后添加两个标题分别为“确定”和“退出”的命令按钮（Command1和Command2）。
运行时，单击“确定”按钮，则在文本框Text1和Text2中分别显示当前系统日期和当前星期；单击“退出”按钮，则结束程序运行。
图2-3 运行界面【提示】使用Date()、Weekday()以WeekdayName()及函数来实现。
5、请按图2-4所示在标题为“计算”的窗体Form1上添加三个标题分别为“半径”、“周长”和“面积”的标签（Label1、Label2和Label3）以及以一个标题为空的标签，然后再添加两个初始文本为空的文本框（Text1和Text2），最后添加两个标题分别为“输入半径”和“计算”的命令按钮（Command1和Command2）。
运行时，单击“输入半径”按钮，则出现图2-4所示的输入框，输入半径并按“确定”按钮，则在标签Lr中显示刚才输入的半径；单击“计算”按钮，则计算圆的周长和面积，并分别在Text1和Text2中显示。
【提示】（1）使用InputBox()及函数实现数据输入，为了使程序正常运行应通过Val()函数将InputBox()的函数值转换为数值型。
（2）求周长公式为：L=2∏R,求面积公式为：S=∏R2,其中∏可以定义为一个符号常量，用PI来表示。