【VB开源代码栏目提醒】：网学会员,鉴于大家对VB开源代码十分关注，论文会员在此为大家搜集整理了“vb_数组和过程 - 产品手册”一文，供大家参考学习!

VB6.0 数组程序设计一、实验目的1．掌握数组的基本概念；2．掌握数组的声明、引用；3．掌握静态数组和动态数组的区别；4．掌握控件数组；5．掌握如何利用数组解决与数组相关的常用算法（特别是排序算法）。

    二、实验内容1．用数组保存随机产生的 10 个介于 20 到 50 之间的整数，求其中的最大数、最小数和平均值，然后将 10 个随机数和其最大数、最小数以及平均值显示在窗体上。

    2．随机产生 10 个介于 0 到 100 之间的整数，分别用选择法和冒泡法对其进行排序。

    3．用数组求得 Fibonacci 数列（1 1 2 3 5 8 13 21 34…）的前 20 项并按照每行 5 个打印在图片框控件 中 F （i-2） （i-1） （PictureBox） 。

    Fibonacci 数列数学描述式为：（i） F F 。

    提示：将打印内容打印到图片框中，例如，Picture1.Print Hello！。

     有4． 3×4 矩阵 A，求其中值最大和值最小的那两个元素的值，以及它们所在的行号和列号。

     1 4 7 2其中， A＝ 9 7 6 8 。

     0 5 3 75．打印出如图 7-1a 所示的杨辉三角形，要求先输入行数 n。

    进一步要求：如果要显示为图7-1b 所示的样式，该如何改动原来的程序呢？ 图 7-1（a） 实验 7.5 界面 图 7-1（b） 实验 7.5 界面6．已知数组 A＝Array765185394，编写一程序，删除数组中值为 x（例如为 3）的第一个元素。

    要求用户可以输入 x。

    提示： （1）首先要查找待删除的元素，没有则返回。

     （2）如果找到待删除的元素，则从下一个元素到最后元素依次往前移位。

     （3）最后利用 ReDim Preserve 语句将数组大小减 1。

    7．使用控件数组，产生如图 7-2 所示的 QBColor 颜色系统的 16 种标准色，每行显示 8 个。

    提示： 图 7-2 实验 7.7 界面 （1）首先创建一个显示一种颜色的控件，如 Label1，设置其 Index 属性为 0，将其作为控件数组的第 0 号元素。

     （2）设置 Lable1（0）的 BackColor 属性为黑色（QBColor（0））。

     （3）用代码 Load Label1（k）（k＝1，2，…15）产生其余的 15 个控件数组元素，同时，将产生的 Label1 数组元素用 Move 方法或用 Left、Top、Width、Height 属性移开，以免后者将前者覆盖而使前者不可见； （k） 将产生的 Label1 数组元素用 Label1 .BackColorQBColor（k）设置其背景颜色。

    VB6.0 过程程序设计一、实验目的1．掌握过程的概念和使用方法；2．掌握形参和实参的概念以及在调用过程时两者的对应关系；3．掌握数值传递和地址传递，并注意区分这两种参数传递方式；4．掌握变量、过程的作用域；5．掌握递归的概念及其使用方法；6．熟悉程序设计中的常用算法。

    二、实验内容1．编写一个判断素数的子过程或函数过程。

    要求输入一个整数，就能够通过该子过程或函数过程求得该整数是否为素数。

    2．编写一个在数组中查找最大值的过程。

    要求给定或由机器产生一系列随机数构成一个一维数组，然后调用该过程，就可以找到并显示数组中的最大值。

    3．编写一个函数过程，能够通过该函数过程求任意正整数的阶乘，并利用该函数过程分别求 5 的阶乘、8 的阶乘、10 的阶乘，将结果打印在窗体上。

    提示： 考虑能保存较大的整数，函数的返回值类型应定为 Long，但这样仍然存在稍大一些的整数阶乘结果超过 Long 所能表示的最大值。

    4．使用函数过程求：当 a3，b5，c7，d9 时， 2 a 2 b 2 c 2 da/1aa ...a b/1bb ...b c/1cc ...c d/1dd ...d 的值。

    5．编写一个类似 Replace（）函数的 SReplace（ssscsr）函数。

    要求输入一个字符串 ss，通过调用该函数，将 ss 中的子字符串 sc 替换为字符串 sr，并将结果字符串用函数名返回。

    例如，ssBBCA17553XWEBBC39U，scBBC ，srARX2，则函数返回值为ARX2A17553XWEARX239U。

    提示： （1）首先利用标准函数 InStr（）找到 sc 在 ss 中的位置。

    考虑到 sc 在 ss 中的多处出现，用 Do While InStr（ss，sc）0Loop 循环来实现。

     （2）使用 Left、Right、Mid等标准函数来重新构造结果字符串，以达到删除子字符串 sc 的目的。

    6．用递归法求得 Fibonacci 数列（1 1 2 3 5 8 13 21 34…）的第 20、200 项。

    Fibonacci数列数学描述式为：F（i） F（i-2）F（i-1）。