VB实验报告样本[浩特个人网]

今天是：	本站首页文章频道动画频道下载频道图片频道在线书库魔方世界英语广播音乐在线笨笨论坛

·设为首页

·在线留言

·关于本站

您现在的位置：浩特个人网 >> 文章频道 >> 编程源码 >> VB源代码 >> 正文

本站公告：

VB实验报告样本

热

VB实验报告样本

［作者：无来源：搜集整理点击数：更新时间：2006-06-08 文章录入：无］

【字体：

】

实验报告样本

1．VB的启动和集成开发环境

一、    实验目的：
1．掌握VB的启动方法；
2. 熟悉VB 集成开发环境
3. 掌握新建工程和打开已有工程的方法、保存工程文件和窗体文件的要领；
4. 了解Visual Basic联机帮助的使用。
二、实验内容：
1. Visual Basic的启动方法
2. 集成开发环境
3. 新建工程
4. 打开已有工程
5. 保存工程文件和窗体文件
6. 使用联机帮助
三、实验用设备仪器及材料：
软件需求：
使用Win2000,VB6。
硬件需求：
Pentium III 450以上
四、实验方法及步骤：
1. Visual Basic的启动操作步骤：执行菜单“开始 | 程序 | Microsoft Visual Basic 5.0”命令。
2. 观察集成开发环境的主要组成部分：
3. 新建工程：执行菜单“文件 | 新建工程”。
4. 打开已有工程：执行菜单“文件 | 打开工程”。
5. 保存工程文件和窗体文件：执行菜单“文件 | 保存工程”。
6. 使用联机帮助功能：执行菜单“帮助 | Microsoft Visual Basic帮助主题”。


2．建立窗体界面、编写程序代码
一、实验目的：
1．熟练掌握在窗体上的放置控件的方法；
2. 熟练地调整窗体和控件的大小与位置；
3. 掌握窗体、命令按钮、文本框和标签对象的常用属性、方法和事件；
4. 熟练地使用属性窗口对象的初始属性；
5．学会使用代码窗口编写简单的事件过程；
6．掌握启动、中断、结束程序的方法。

二、实验内容：
1. 编程实现单击窗体按钮，在标题栏显示“你好，Visual Basic!”

三、实验用设备仪器及材料：
软件需求：
使用Win2000,VB6或更新的版本。

硬件需求：
Pentium III 450以上

四、实验方法及步骤：
1.        选定窗体，双击窗体进入窗体单击事件编程，代码为：
PRIVATE SUB FORM1_CLICK( ):
   FORM1.LEFT=0
   FORM1.TOP=0
   FORM1.CAPTION=“你好，VISUAL BASIC!”
  END SUB


3．数据类型、变量与常量
一、实验目的：
1．熟记各种数据类型的名称、占用内存的字节数和表示数据的范围；
2. 理解变量的作用域和生存期；
3. 掌握变量与常量的命名规则；
4. 掌握不同类型直接常量的表示方法；
5．掌握声明变量的方法；
6．掌握不同类型数据之间的隐式与显式转换规则；
7．掌握数组的声明方法；
8．掌握自定义数据类型的声明方法。

二、实验内容：

编程实现单击命令按钮，则文本框中的数值递增。

三、实验用设备仪器及材料：

软件需求：
使用Win2000,VB6或更新的版本。

硬件需求：
Pentium III 450以上

四、实验方法及步骤：
1．选定窗体并将其Caption 属性值清空，并将其值赋为“数据递增”。

2．    单击工具栏中文本框1次并将其Text属性值清空；
双击工具栏中命令按钮1次并将其Caption属性值清空，并赋值为“递增”；
3．    命令按钮进入命令按钮单击事件编程，代码为：
Private   Sub  Command1_Click( ):
Static  int1  AS Integer
Int1=int1+I
Text1.text=int1
End  Sub

4．运算符与表达式

一、实验目的：
1．掌握运算符的分类；
2. 掌握各类运算符的运算规则；
3. 掌握表达式中运算符的运算规则；
4. 能够熟练地求表达式的值；
5．能够熟练地编写表达式。

二、实验内容：
1. 编程显示表达式a+b>c And b=c的值(a=3:b=4:c=5)
2. 编程显示表达式a or b +c  and b-c的值(a=3:b=4:c=5)

三、实验用设备仪器及材料：
软件需求：
使用Win2000,VB6或更新的版本。
硬件需求：
Pentium III 450以上

四、实验方法及步骤：
1．选定窗体、双击文本框、命令按钮各一次，分别将其“text ”属性值和“Caption”
属性值清空，赋予命令按钮“Caption”属性值“计算”。
双击命令按钮进入代码窗口，编程代码如下：
    DIM  A  AS  INTEGER , B  AS INTEGER, C  AS INTEGER
A=3:B=4:C=5
TEXT1.TEXT=NOT(A>B) AND NOT C OR 1
2.    选定窗体、双击文本框、命令按钮各一次，分别将其“text ”属性值和“Caption”
3.    属性值清空，赋予命令按钮“Caption”属性值“计算”。

双击命令按钮进入代码窗口，编程代码如下：
              DIM  A  AS  INTEGER , B  AS  INTEGER , C  AS INTEGER
A=3:B=4:C=5
TEXT1.TEXT=A OR B +C  AND B-C

5. 选择结构

一、    实验目的：
1．熟练掌握If语句的用法；
2. 熟练掌握Select Case语句的用法。

二、实验内容：

1. 使用IF语句编写“猜数字”游戏，随机产生一个整数，输入一个整数，如果猜对，显示“你猜对了” 并显示猜测次数。如果猜错，显示猜大了，或猜小了。
三、实验用设备仪器及材料：

软件需求：
使用Win2000,VB6或更新的版本。
硬件需求：
Pentium III 450以上

三、实验方法及步骤：

（1）选择窗体，双击文本框1次，命令按钮2次，调试位置，将文本框text属性值清空；命
令按钮的 Caption属性值清空，并分别赋予“开始”，“猜!”，双击标签框将其Caption属性
值清空。
    ⑵进入代码窗口并输入以下代码：
A)    DIM INTV  AS INTEGER
DIM INTNUM  AS INTEGER
B)    PRIVATE SUB COMMAND1_CLICK()
        RANDOMIZE
        INTNUM=RND*100
        LABEL1.CAPTION=“请输入0～100之间的数字，然后按“猜!”按钮”
        INTN=0
       END SUB
C)    PRIVATE SUB COMMAND2_CLICK()
DIM INTENTER AS INTEGER INTENTER=INT(TEXT1.TEXT)
     INTV=INTV+1
IF INTENTER>INTNUM TEN
LABELI.CAPTION=“您猜大了，再试一次吧”
ELSE IF INTENTER<INTNUM THEN
LABELI.CAPTION=“您猜小了，再试一次吧”
ELSE LABELI.CAPTION=“恭喜，您猜对了!共用3”“&CSTR(INTN)”次。
按开始“再来一局吧。”
END IF
END IF
END IF
END SUB

6.  循环语句
一、实验目的：

1．熟练掌握 DO…Loop 循环语句的使用；
2. 熟练掌握For…Next循环语句的使用；
3. 熟练掌握使用循环语句的使用；

二、实验内容：

1. 编程计算1-2+3-4+……+n 的值，其中n由文本框输入。
三、实验用设备仪器及材料：

软件需求：
使用Win2000,VB6或更新的版本。

硬件需求：
对于硬件方面的要求，建议配置是Pentium III 450以上的CPU处理器，64MB以上的内存，
200MB的自由硬盘空间。
四、实验方法及步骤：
1.    ⑴选定窗体，双击工具栏中的文本框两次，命令按钮一次，并将其Caption
属性赋为计算
⑵进入命令按钮单击事件，代码编程如下：
  PRIVATE SUB COMMAND1_CLICK()
   DIM INTN AS INTEGER,DIM INT1  AS INTEGER, DIM SUM AS INTEGER
   DIM INTSGN AS INGER
     INTSNG=1
INTN=CINT(TEXT1.TEXT)
     FOR INT1=1 TO INTN
INTSUM=+INTSGN*INT1
         INTSGN=-INTSGN
     NEXT
     TEXT2.TEXT=INTSUM
END SUB

7. 数组与循环语句
一、实验目的：

1．熟练地使用循环语句对数组进行操作；
2. 掌握常规数组、动态数组的声明方法；
3. 理解数组的维数和下标的上界、下界的概念；
4. 使用数组表示多个数据、行列式和矩阵。

二、实验内容：

1. 利用数组编制矩阵相乘的程序

三、实验用设备仪器及材料：

软件需求：
使用Win2000,VB6或更新的版本。

硬件需求：
对于硬件方面的要求，建议配置是Pentium III 450以上的CPU处理器，64MB以
上的内存，200MB的自由硬盘空间。

四、实验方法及步骤：

1.    选定窗体，文本框，命令按钮，进入代码窗体，编程如下：
PRIVATE SUB COMMAND1_GICK()
DIM A1 AS INTEGER, A2  AS INTEGER, A3 AS INTEGER, A  AS INTEGER
DIM INT1 AS INTEGER , N AS INTEGER
N=CINT(TEXT1.TEXT)
FOR INT=1 TO N   IF INT<4 THEN
   A1=1:A2=1:A3=1:A=1
ELSE
   A=A1+A3:A1=A2:A2=A3:A3=A
ENDIF
NEXT
TEXT1.TEXT=A
END  SUB
2.    选定窗体命令按钮，进入代码编程如下：
PRIVATE SUB COMMAND1_GICK()
DIM A( ) AS INTEGER, NC  AS INTEGER, NR AS INTEGER, K  AS INTEGER
        N=CINT(TEXT1.TEXT)   REDIM A(1TON,1TON)
        NC=N:NR=1:I=1:J=1  FOR K=1 TO N*N   A(I,J)=K
        IF I<NC AND J=NR THEN I=I+1
        ELSEIF I>NR  AND J<NC THEN J=J+1
        ELSEIF I>NR  AND J<NC THEN I=I-1
        ELSEIF I=NR  AND J=NR+1 THEN NC=NC+1 NR=NR+1
        END  IF
        NEXT
        FOR I=1 TON FOR J=1 TO  N     PRINT A (I,J)
        NEXT  PRINT
        NEXT
        END  SUB

五、实验结果分析：

8.过程

一、    实验目的：

1．理解通用过程的概念；
2. 掌握Sub过程和Function过程(函数)的声明方法；
3. 掌握调用Sub过程和Function过程的方法；
4. 理解形式参数和实际参数的概念以及参数的传递方式；
5．掌握递归过程的特点与使用方法；
6．熟练编制通用过程。

二、实验内容：

1. 编写递归函数求1+2+3+……+n的值
三、实验用设备仪器及材料：

软件需求：
使用Win2000,VB6或更新的版本。

硬件需求：
对于硬件方面的要求，建议配置是Pentium III 450以上的CPU处理器，64MB
以上的内存，200MB的自由硬盘空间。

四、实验方法及步骤：

1.    布置一个命令按钮及两个文本框，双击命令按钮，进入单击窗体事件编程：
DIM INT1 AS INTEGER
INT1=CINT (TEXT1.TEXT)
TEXT2.TEXT=ADD(INT1)

PRIVATE FUNCTION ADDCN AS INTEGER1 AS INTEGER
IF N=1 THEN ADD=1 EXIT  FUNCTION ENDIF
ADD=N+ADD(N-1)
END FUNCTION

9.内部控件

一、实验目的：

掌握各种内部控件的常用属性、方法和事件以及控件之间的配合使用。

二、实验内容：

1.    编程找出两个正整数m和n，使得m<n、m+n=99、m和n的最大公约
数是3的倍数。统计满足条件的数共有多少对，使用列表框控件把找到的数
对显示出来，要求同一组的两个数用逗号隔开作为一个条目添加到列表框中。
三、实验用设备仪器及材料：
软件需求：
使用Win2000,VB6或更新的版本。
硬件需求：
对于硬件方面的要求，建议配置是Pentium III 450以上的CPU处理器，64MB以上的内存，
200MB的自由硬盘空间。

四、实验方法及步骤：
1.    设置控件，双击命令按钮进入代码编程：
DIM M AS INTEGER , N AS INTEGER , DIM INT1 AS INGEGER
FOR M=1 TO 49
N=99-M
IF GCD(M,N) MOD 3=0 THEN
LIST.ADDITEN(CSTRON)&“，”&STR(N)
END IF  NEXT
TEXT1.TEXT=“共”&CSTR(LISTL.LISTCOUNT)&“对”
10  菜单设计与通用对话框
1、实验目的和要求：
（1）掌握菜单编辑器的使用方法。
（2）熟悉菜单事件的编程方法。
（3）掌握通用对话框控件的基本用法。
（4）了解剪贴板对象的基本用法。
2、实验内容
（1）编制COMMAND1的CLICK事件过程：调用“打开文件对话框”（通过控件COMMONDIALOG1）选择文件，将所选的文件名追加到列表框控件LIST1中。
（2）编制COMMAND1的CLICK事件过程：调用“另存为对话框”（通过控件COMMONDIALOG1）选择文件，将所选的文件名追加到列表框控件LIST1中。
（3）设计一个图片浏览器，使用LOADPICTURE函数装入图片。
（4）设计一个菜单，利用一个形状控件，可选择基本图形、填充方式、填充颜色。
前面的实验汇总为一个工程，每个菜单项代表一个实验，每个子菜单代表实验中的一个小题。
3、实验主要仪器设备及材料
   微型计算机（CPU为PENTIUM 166MHZ以上，内存64M以上，硬盘为2GB以上，装有WINDOWS 2000操作系统，VISUAL BASIC 6.0软件。

11. 基本控件和自定义对话框
1、实验目的和要求：
（1）掌握单选按钮、复选框、框架、滚动条、列表框、组合框和时钟控件的常用属性、基本方法和主要事件。
（2）掌握VB中设置字体的方法。
（3）熟悉设计用户自定义对话框的一般方法。
2、实验内容（教材P136程序设计题）
（1）使用单选按钮实现时间和日期的单选。利用组合框按年月日的次序选择日期的格式。
（2）利用文本框、列表框和四个命令按钮实现英文单词的添加、删除、全部删除和退出四个功能。
（3）利用单选按钮和文本框编制一个进制转换的应用程序。
（4）利用三个组合框编制一个简单的选择学校院系的应用程序。
3、实验主要仪器设备及材料
   微型计算机（CPU为PENTIUM 166MHZ以上，内存64M以上，硬盘为2GB以上，），装有WINDOWS 2000操作系统，VISUAL BASIC 6.0软件
12. VB数据库编程基础
1、实验目的和要求：
（1）熟悉数据库的基本概念。
（2）掌握VB数据管理器的使用方法。
（3）掌握常用数据控件的基本用法。
（4）了解在VB中使用结构化查询语言SQL的方法。
2、实验内容
（1）在窗体上放置合适的多个数据绑定控件和数据控件。
      （A）单击数据控件的移动记录按钮时，显示当前记录所代表学生的个人信息。
      （B）显示该学生所学的全部课程的信息。
（2）在窗体上建立组合框COMBO1、文本框TEXT1、表格控件DATAGRID1和数据控件ADODC1。
（A）在COMBO1中显示3项：“全部显示”、“按姓名查询”。
（B）如果“全部显示”，则在DBGRID1中显示“学生”表全部记录，并且TEXT1不允许输入信息。
（C）如果COMBO1中选择“按学号查询”，则在TEXT1中输入待查询学生的学号，输入完毕后按回车键后在DBGRID1中显示该学生记录或显示“查无此人”。
（D）如果COMBO1中选择“按姓名查询”，则在TEXT1中输入待查询学生的姓名，输入完毕后按回车键后在DBGRID1中显示该学生记录或显示“查无此人”。
（3）在窗体上建立多个数据绑定控件、一个数据控件DATA1和文本框。
      （A）在列表框LIST1中显示所有课程名，在列表框LIST2中显示所有专业名。
      （B）选择列表框LIST1中的某门课程后，显示学习该课程学生的各个成绩档次的统计人数（优、良、中、及、差）。
      （C）选择列表框LIST2中的某个专业课程后，显示该专业学生奖学金的总数和平均数、以及获得奖学金的人数比例。
3、实验主要仪器设备及材料
   微型计算机（CPU为PENTIUM 166MHZ以上，内存64M以上，硬盘为2GB以上，，装有WINDOWS 2000操作系统，VISUAL BASIC 6.0软件12.常用内部函数
13.函数
一、实验目的：

1．掌握数学、字符串、日期时间等类型常用内部函数的用法，特别是参数与返回值的类型与意义；
2. 掌握预定义对话框的使用方法；

二、实验内容：

在窗体上有两个文本框，当在第一个文本框中输入一个十进制整数，单击窗体，在第二个文本框中以十六进制的形式显示该数。
设窗体上有两个文本框和一个按钮，在第一个文本框中输入一个全部由“0”和“1”组  成的字串，单击按钮，在第二个文本框中显示出给定字符串中连续的0和连续的1中连续字符数目的最大值。

三、实验用设备仪器及材料：

软件需求：
使用WIN2000,VB6或更新的版本。

硬件需求：
PENTIUM III 450以上

四、实验方法及步骤：

1.在窗体上放置两个文本框，一个命令按钮，进入单击按钮事件编程如下：
DIM LOGINPUT AS LONG, STR1 AS STRING
DIM INT1 AS INGEGER
LNGINPUT=(TEXT1.TEXT)
DO
INT1=LNGINPUT MOD 16
LNGINPUT=INGINPUT\16
IF INT1<10 THEN
STR1 CSTR(INT1)&STR1
ELSE
STR1=CHR(55+INT1)&STR1
END IF
LOOP UNTIL LNGINPUT=0
TEXT2.TEXT=STR1

2.在窗体上放置两个文本框，一个命令按钮，进入单击按钮事件编程如下：
DIM STRSOURCE AS STRING
DIM STR1 AS STRING
INTMAX AS INTEGER
DIM INTLEN AS INTEGER
DIM INTNUM AS INGEGER
STRSOURCE = TEXT1.TEXT
INTNUM=0
INTMAX=0
FOR I=1 TO LEN(STRSOURCE)
    IF MID(STRSOURCE,I,1)=STR1 THEN
        INTNUM=INTNUM+1
    ELSE
        INTNUM=1
    ENDIF
    IF INTNUM>INTMAX THEN INTMAX=INTNUM
NEXT I
TEXT2.TEXT=INTMAX

14．数据库
•  实验目的、要求
目的：能建立、操作数据库。 SQL 的基本操作。
要求：建立数据库的概念：库、表、记录和字段。创建数据库。使用数据控件访问数据库：记录的增、删、改。数据绑定控件的使用。结构化查询语言 SQL 在 VB 数据库应用程序中的使用。
实验前，请预习实验内容。熟悉实验中要使用的控件，写好相关程序代码。
•  实验设备
586 以上的计算机，安装有 VISUAL BASIC 6 软件。
•  实验内容、步骤
内容：
建立学生成绩管理软件。
•  建立数据库。学生成绩表，成绩表字段分别有“学号、姓名、性别、 VB 编程、 C 语言、数字电路“。
•  建立数据库管理软件。要求具有功能：上一条、下一条、第一条、最后一条、添加、删除、更新和关闭按钮。
•  可输入学号或姓名进行查找记录。
•  可根据学号或各门课的分数进行排序。
步骤：
•  新建数据库表（学生成绩表）
•  新建工程
•  根据题目要求，设计界面。
•  连接数据库
•  编写代码。
•  运行与调试工程
•  保存工程（请将每个程序的工程与窗口存在一个文件夹中）。
15．界面设计
•  实验目的、要求
目的：。掌握基本界面设计的方法。
要求：要求会设计下拉式菜单、弹出式菜单、工具栏的设计、状态栏的设计、多文档界面的设计和对话框的设计。
实验前，请预习实验内容。熟悉实验中要使用的控件，写好相关程序代码。
•  实验设备
586 以上的计算机，安装有 VISUAL BASIC 6 软件。
•  实验内容、步骤
内容
•  设计下拉式菜单。
•  弹出式菜单是设计。
•  工具栏的设计
步骤：
•  分析题意
•  新建工程
•  根据题目要求，设计界面。
•  编写代码。
•  运行与调试工程
•  保存工程（请将每个程序的工程与窗口存在一个文件夹中）。

上一篇文章：没有了

下一篇文章： Shell语句用法心得