VB程序设计实验指导书

VB程序设计实验指导书

实验项目名称：数组(一) 实验环境（硬件）： 普通PC机房 软件：VB6.0 序号：_7

实验时数：2学时 实验地点：计科系实验室

一、实验目的：

1、掌握静态数组和动态数组的概念及定义方法。

2、掌握一维和二维数组元素的引用、赋值、输入、输出方法。

3、掌握使用一重或二重循环结构控制数组元素的下标，按一定规律变化来处理一维数组元素和二维数组元素的程序设计方法。

二、实验类型：（验证性、演示性、综合性、设计性、操作性） 验证性

三、实验内容及基本要求：

1、 随机产生20个1~100的正整数放入数组中，显示产生的数，并求平均值以及高于平均

值的数有多少个。运行界面如图所示：

【要求】在窗体上单击，即产生如图所示结果，编写出程序代码，正确运行程序。并以文件名sy7-1.frm和sy7-1.vbp保存在F：盘或D：盘自己的姓名文件夹中。 2、编程：（程序存盘文件名sy7-2.vbp、sy7-2.frm） 程序运行界面如下图所示：

在窗口中有两个文本框和两个按钮。当单击“随机产生”按钮时，在text1中随机产生20个100~ 1000之间的整数，当单击“查找素数”按钮时，找出这20个整数中的所有素数，并显示在text2中。

乐山师范学院计科系实验指导书

3、如下图运行界面所示，单击命令按钮输入整数n，显示出具有n行的杨辉三角形：

分析：从一组数据中找规律，找通项，这是循环和数组相结合的优点。

杨辉三角形的形成可分为三部分数据：第1列全为1；主对角线全为1；从第3行第2列起到主对角线前一元素的各个元素为上一行前一列和本列元素之和。如： '第1列和主对角线元素为1 For i = 1 To n

a(i, 1) = 1: a(i, i) = 1 Next i

'从第3行第2列起到主对角线前一元素的各元素为上一行前一列和本列元素之和 For i = 3 To n For j = 2 To i - 1

a(i, j) = a(i - 1, j - 1) + a(i - 1, j) Next j Next i

【要求】设计界面，编写出程序代码（注意动态数组的使用），正确运行程序。并以文件名sy7-3.frm和sy7-3.vbp保存在F：盘或D：盘自己的姓名文件夹中。

4、使用随机函数产生0~9之间的随机整数形成一个5阶矩阵的元素，当程序运行时即将该矩阵存放到一个二维数组a并在一个文本框中显示出来。当单击“计算”按钮时，分别求出该矩阵的上三角元素（不包括对角线）之和、下三角元素（不包括对角线）之和、

主对角线元素之和、次对角线元素之和、靠边元素之和以及所有元素之和。 设计界面如下图所示：

1

乐山师范学院计科系实验指导书

运行界面如下所示：

【要求】设计界面，编写出程序代码，正确运行程序。并以文件名sy7-4.frm和sy7-4.vbp保存在F：盘或D：盘自己的姓名文件夹中。

注意：(1)文本框中要多行显示，须将Multiline属性设置为True。在代码设计时，换

行可用chr(13) & chr(10)。如：text1.text=text1.text & chr(13) & chr(10)

(2)计算各种和时注意数组下标变化的规律。 【思考】在随机函数产生的5阶二维数组a中，取出矩阵中不靠边元素生成一个3阶矩阵存放到二维数组b中，并把这个3阶矩阵在另一个文本框中显示，程序应该如何编写？如图所示：

2

本文来源：https://www.bwwdw.com/article/fwbt.html