visual-basic程序设计教程--生物安全实验报告

《visual-basic程序设计教程--生物安全实验报告》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、福建农林大学植物保护学院（程序设计类课程）实验报告课程名称：VisualBasic程序设计教程姓名：李珠蓬系：生物安全专业：植物保护学院年级：10级学号：102251001045指导教师：黄红兵职称：讲师2012年5月20日实验项目列表序号实验项目名称成绩指导教师1VisualBasic环境和程序设计初步黄红兵2顺序程序设计黄红兵3选择结构程序设计黄红兵4循环结构程序设计及数组的运用黄红兵5过程黄红兵6窗体和常用控件（一）黄红兵7常用控件（二）黄红兵8循环结构程序设计及动态数组的应用黄红兵9综合实例（一）黄红兵10综合实例（二

2、）黄红兵系：生物安全专业：生物安全年级：10级姓名：李珠蓬学号：102251001045计算机号实验时间：2012、4、4实验地点：综南附307指导教师签字：黄红兵实验一VisualBasic环境和简单应用程序设计一、实验目的及要求1、了解VisualBasic系统对计算机软件、硬件的要求。2、掌握启动与退出VisualBasic的方法。3、熟悉VisualBasic的集成开发环境（IDE）。4、掌握在窗体上添加控件的各种方法。5、掌握建立、编辑、运行和保存一个简单的VisualBasic应用程序的全过程。二、实验内容1、启动

3、VisualBasic6.0，熟悉其集成开发环境。2、请按图所示在标题为“第一个应用程序”的窗体Forml上添加两个标题分别为“欢迎使用VisualBasic”和“请输入您的姓名“的表签（Label1和Label2）,Label1的字体为隶书，并且能根据文本大小自动调整尺寸，Label2的字型为倾斜，然后再添加一个初始文本为空的文本框Text1。操作如下：3、请按图所示在标题为“命令按钮设置“的窗体Forml上添加三个标题为”禁止用C3”、“允许用C3”和“C3”的命令按钮。运行时，如果单击“禁止用C3”按钮，则C3按钮无效，

4、如果单击“允许用C3”按钮，则C3按钮有效。操作如下：代码如下：PrivateSubCommand1_Click()Command3.Enabled=FalseEndSubPrivateSubCommand2_Click()Command3.Enabled=TrueEndSub1、请按图所示在标题为“文本复制”的窗体Forml上添加两个文本框，其初始文本为空，设置适当的属性是文本框Text2可以显示多行文本，有一个垂直滚动条，而且Text2不可编辑文本。运行时，在文本框Text1中输入一个字符串，单击窗体，则将Text1的文本

5、复制到Text2中。操作如下：代码如下：PrivateSubForm_Click()Text2.Text=Text1.TextEndSub2、请按图所示在标题为“标题内容显示“的窗体Forml1上添加一个标题为空、带有单边框的标签Label1,再添加两个标题分别为“显示”和“清空”的命令按钮。运行时，单击“显示”按钮，则再Label1中显示“欢迎使用VisualBasic6.0！”；单击“清空”按钮，则在Label1的标题为空。操作如下：代码如下：PrivateSubCommand1_Click()Label1.Caption

6、="欢迎使用VisualBasic6.0!"EndSubPrivateSubCommand2_Click()Label1.Caption=""EndSub三、总结通过本次实验熟悉了VisualBasic的集成开发环境（IDE）。掌握在窗体上添加控件的各种方法。掌握建立、编辑、运行和保存一个简单的VisualBasic应用程序的全过程。系：生物安全专业：生物安全年级：10级姓名：李珠蓬学号：102251001045计算机号实验时间：2012、4、4实验地点：综南附307指导教师签字：黄红兵第二章顺序结构程序设计一、实验目的和要求

7、1.掌握常用内部函数的使用2.掌握表达式　赋值语句的正确书写规则3.掌握InputBox和MsgBox的使用二、实验内容和原理1、设计图所示的窗体Forml,其标题为“Print”方法。运行时，自动在窗体上显示图所示图。代码如下：PrivateSubForm_Activate()PrintTab(10);"※"'输出第一行※号PrintTab(10);"※※"'输出第二行※号PrintTab(10);"※";Spc(2);"※"'输出第三行※号PrintTab(10);"※";Spc(4);"※"'输出第四行※号PrintTa

8、b(10);"※";Spc(6);"※"'输出第五行※号PrintTab(10);"※";Spc(8);"※"'输出第六行※号PrintTab(10);"※";Spc(10);"※"'输出第七行※号PrintTab(10);"※";Spc(12);"※"'输出第八行※号Pri