5 2012 VB实验五数组

合集下载

VB实验报告(含答案)

End If
If Check1.Value = 1 Then
Label1.FontBold = True
Else
Label1.FontBold = False
End If
If Check2.Value = 1 Then
Label1.FontItalic = True
Else
Label1.FontItalic = False
图1.1实验1-1运行界面
三．实验结果：对象属性设置
对象
属性
属性值
说明
Form1
caption
我的第一个vb程序
窗体
Label1
caption
请输入姓名
标签
Text1
text
““
文本框
Command1
caption
显示
命令按钮
Command2
caption
清除
命令按钮
四．实验思考：
1.标签label控件设置的属性代码有哪些？
加粗
复选框
Check2
Caption
倾斜
复选框
Check3
Caption
下划线
复选框
Check4
Caption
删除线
复选框
四．实验思考：
1.模拟简易计算器Command1命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
Dim a!, b!
Dim c As String
If Option1.Value = True Then
Label1.FontName = “宋体”
ElseIf Option2.Value = True Then

Vb实验五数组的应用

《Visual Basic 6.0程序设计》实验报告（五）一、实验名称：数组的应用（4学时）二、实验目的：１．掌握数组的声明和数组元素的引用；２．掌握静态数组和动态数组的声明和使用；３．学会应用数组解决与数组有关的常用算法问题；４．掌握控件数组的建立和应用。

三、实验环境多媒体计算机WindowsXP操作系统Visual Basic 6.0四、实验内容及实验步骤（或记录）1.输入10名同学的成绩，求平均分、最高分和最低分。

设计步骤如下：①在窗体上添加3个标签（Label1、Label2和Label3）和3个文本框（Text1、Text2和Text3），设计界面如图7.2所示。

各控件的主要属性和作用如表1所示。

控件的属性和作用②编写程序代码如下：Private Sub Command1_Click()Dim Score(1 To 10) As Integer '声明存放成绩的数组ScoreDim i As Integer，Max As Integer，Min As Integer，Average As SingleFor i = 1 To 10 '逐一输入每个同学的成绩Score (i) = Val (InputBox ("输入第" & Str（i）& "个学生的成绩"，"成绩统计"，""))Next iEnd SubPrivate Sub Command2_Click()Dim i As IntegerDim sum As Single, aver As Singlesum = Score (1) ' sum 用于存放总成绩，初值为数组中的第一个元素Max = Score (1) ' 设变量Max的初值为数组中的第一个元素Min = Score (1) ' 设变量Min的初值为数组中的第一个元素For i = 2 To 10 ' 通过循环依次比较，求最大、最小值；求总和If Score(i) > Max Then Max = Score(i)If Score(i) < Min Then Min = Score(i)sum = sum + Score(i)Next iaver = sum / 10 ' 求平均值Text1.Text = Format (Average, "0.00 " ) ' 以两位小数显示平均值Text2.Text = MaxText3.Text = MinEnd Sub2.生成20个0到100之间的随机整数存于数组A，然后将这20个数按递增顺序排序。

VB第5章(数组)

7 a(3,1) 8 a(3,2) 9 a(3,3)
VB 程序设计教程
25
4. For Each …Next 语句
For i=1 to 10
Print a(i); Next i
窗体打印结果为：1 2 3 4 5 6 7 8 9 10
VB 程序设计教程
23
Dim a(10) As Integer
For i=1 To 9 a(i)=i Next i For i=1 to 9
1
2
3
4
7
5
8
6
9
Print a(i);
Mark(1) Mark(2) …… Mark(i) …… Mark(100)
数组元素
VB 程序设计教程
5
方法三：用数组统计高于平均分的人数
Dim mark(1 To 100) As Single aver = 0 For i = 1 To 100 mark(i) = InputBox("输入" aver = aver + mark(i)
Dim a%(10)
Dim st(-3 To 5) As String*3
一数组st是____维字符串型 9 数组，有___个元素，下标范围为-3~5，每个数组元素最多存放3个字符
VB 程序设计教程
10
Dim b( 3 , 4 ) As Long
b(0,0) b(0,1) b(0,2) b(0,3) b(0,4)
程中，且必须位于数组定义之前
VB 程序设计教程
15
• 数组下标测试函数
Lbound(数组名[, 维]): 返回数组中指定维的下界 Ubound(数组名[, 维]): 返回数组中指定维的上界

C语言实验五实验报告——数组

C语言实验五实验报告——数组实验五：数组实验目的：1.掌握数组的定义和使用；2.熟悉数组在函数中的传递；3.练习编写使用数组的程序。

实验原理：数组是一组相同类型的变量的集合，这些变量称为数组的元素。

数组的名字是一个指针常量，它存放的是数组首个元素的地址。

数组元素在内存中是连续存放的，可以通过下标访问每一个元素。

数组的定义：数组的定义格式为：数据类型数组名[数组长度];数组的初始化：数组可以在定义时进行初始化，也可以在定义之后通过赋值进行初始化。

数组作为函数参数：数组可以作为函数的形参进行传递，可以通过指针传递整个数组，也可以传递数组的部分元素。

实验步骤：1.编写一个程序，实现对学生成绩的管理。

要求如下：-使用一个数组保存学生的成绩；-能够动态添加学生的成绩，并显示添加成功的信息；-能够计算学生的平均成绩，并显示；-能够根据用户输入的学号查找对应学生的成绩，并显示。

2.编写一个程序，实现对一组整数进行排序。

要求如下：-首先自定义一个整数数组，数组元素个数为用户输入；-编写一个函数，实现对数组进行排序，要求使用选择排序算法；-在主函数中调用该函数，对数组进行排序后显示。

实验结果与分析：1.学生成绩管理程序运行结果如下：```-------学生成绩管理系统-------[1]添加学生成绩[2]计算平均成绩[3]查找学生成绩[4]退出系统请输入选项：1请输入成绩：90添加成功！[1]添加学生成绩[2]计算平均成绩[3]查找学生成绩[4]退出系统请输入选项：1请输入成绩：85添加成功！[1]添加学生成绩[2]计算平均成绩[3]查找学生成绩[4]退出系统请输入选项：2平均成绩为：87.5[1]添加学生成绩[2]计算平均成绩[3]查找学生成绩[4]退出系统请输入选项：3 [1]添加学生成绩[2]计算平均成绩[3]查找学生成绩[4]退出系统请输入选项：4退出系统。

```2.整数排序程序运行结果如下：```-------整数排序-------请输入待排序的整数个数：6请输入第1个整数：5请输入第2个整数：3请输入第3个整数：9请输入第4个整数：2请输入第5个整数：7请输入第6个整数：1排序前的整数序列为：539271排序后的整数序列为：123579 ```实验总结：通过本次实验，我深入理解了数组的原理和用法，并且掌握了数组在函数中的传递。

VB上机实验报告详细易懂

VB上机实验报告详细易懂实验五数组的应用一、实验目的1．掌握一维数组的概念、定义、数组元素的引用和初始化。

2．学会用数组和程序基本控制结构实现数据的求和、求平均、求极值和排序等算法程序的设计3．加深对循环控制结构的理解和使用二、实验环境1．计算机2．Visual Basic 6.0开发环境三、实验说明1．熟练运用Visual Basic 6.0开发环境2．熟悉建立VB应用程序的步骤3．学会使用一维数组实现简单的应用程序四、实验内容和步骤1.实验内容随机产生10个两位整数，找出其中的最大值、最小值和平均值。

2.实验步骤（1）打开计算机，在Visual Basic 6.0系统环境下，选择“文件”菜单中的“新建工程”菜单选项，打开“新建工程”窗口；（2）在“新建工程”窗口按下“确定”按钮打开“工程设计”窗口；（3）在“工程设计”窗口，首先设计窗口的属性，然后打开“工具箱”窗口添加所需控件，设计该实验的界面；（4）选择“视图”菜单中的“代码窗口”菜单选项，打开“代码窗口”窗口，设计命令按钮控件的事件代码；考虑到要在不同的过程中使用数组，所以首先在模块的通用段中声明数组：Dim a(1 To 10) As Integer随机整数的生成由窗体的Load事件代码完成：Private Sub Form_Load( )Dim p As StringRandomizep = ""For i = 1 To 10a(i) = Int(Rnd * 90) + 10p = p & Str(a(i)) & ","NextLabel1.Caption = L Trim(Left(p, Len(p) – 1))End Sub求最大、最小以及平均值由“确定”按钮Command2的Click事件代码完成：Private Sub Command2_Click( )Dim n As Integer, m As Integer, s As Singlemin = 100: max = 10: s = 0For i = 1 To 10If a(i) > n Then max = a(i)If a(i) < m Then min = a(i)s = s + a(i)NextText1.Text = maxText2.Text = minText3.Text = s / 10End Sub“重置”按钮Command1的Click事件代码：Private Sub Command1_Click( )Form_LoadText1.Text = ""Text2.Text = ""Text3.Text = ""End Sub最后是“关闭”按钮Command3的Click事件代码：Private Sub Command3_Click( )Unload MeEnd Sub（5）运行程序，观察结果；（6）保存窗体，保存工程。

VB实验案例(数组)

实验五数组一、控件属性的设置 (滚动条)1、在名称为Forml的窗体上添加一个名称为H1水平滚动条，请在属性窗口中设置它的属性值，满足下列要求：它的最小刻度值为1，最大刻度值为100，在程序运行时鼠标单击滚动条上滚动框以外的区域(不包括两边按钮)，滚动框移动10个刻度。

再在滚动条下面画两个名称分别为L1、L2的标签，并分别显示1、100，运行时的窗体如图5-1所示。

工程文件名保存为sy5-1.vbp，窗体文件名为sy5-1.frm。

2、在名称为Form1的窗体上添加一个名称为HS1的水平滚动条，其刻度值范围为1 -100；添加一个命令按钮，名称为C1，标题为"移动滚动框"。

请编写适当的事件过程，使得在程序运行时，每单击命令按钮一次(假定单击次数不多于10次)，滚动框向右移动10个刻度。

程序运行时的窗体如图5-2所示。

要求程序中不得使用变量，事件过程中只能写一条语句。

工程文件名保存为sy5-2.vbp，窗体文件名保存为sy5-2.frm。

3、在名称为Form1的窗体上画一个图片框，其名称为Picture1、一个水平滚动条，名称为HScroll1，和一个命令按钮，名称为Command1，标题为"设置属性"，通过属性窗口在图片框中装入一个图形(文件名为pic1.jpg，位于考生目录下)，图片框的高度与图形的高度相同，图片框的宽度任意(如图1所示)。

编写适当的事件过程，程序运行后，如果单击命令按钮，则设置水平滚动条的如下属性：Min 100Max 1500LargeChange 100SmallChange 10之后就可以通过移动滚动条上的滚动块来放大或缩小图片框。

程序运行后的窗体如图5-3所示。

要求程序中不得使用任何变量。

工程文件名为sy5-3.vbp，窗体文件名为sy5-3.frm。

4、在控件属性1文件夹下有一个工程文件sy5-4.vbp，窗体上有一个圆和一个矩形，还有水平和垂直滚动条各一个。

实验五数组实验

实验五数组的使用一实验目的要求1 掌握数组的概念和使用方法。

2 掌握数组初始化的方法。

3学会字符数组和字符串的应用。

4 学会用数组名作函数的参数。

二有关概念1 只有静态数组和外部数组才能初始化。

2 引用数组时，对下标是否越界不作检查。

如定义int a[5]；在引用时出现a[5]，不给出错信息，而是引a[4]下面一个单元的值。

3 字符串放在字符数组中，一个字符串以‘/o’结束，有一些字符串函数如strcpy，strcmp，strlen等可以方便一进行字符串运算。

4 如有如下定义：char *str=“I love china”；表示 str是一个字符型指针变量，它的值是一个字符数据的地址。

不要认为str是字符串变量，在其中存放一个字串“I love china”。

5 用数组名作函数实参时，传到形参的是数组的首地址。

三实验内容和步骤1 定义三个数组int a[5];int b[2][2];char c[10];（1）分别在函数体外和函数体内对它们进行初始化，然后输出它们的值。

（2）在程序中再加一语句，输出a[5],b[2][2] ，分析结果。

（3）对C数组改为用赋值语句给各元素赋初值：c[0] ～ c[9]各元素分别为：…I‟, …‟, …a‟, …m‟, …‟, …b‟, …o‟, …y‟。

然后用printf(“%s”,c)输出字符串，分析结果。

参考程序如下：(1)main(){ int i,x,y;static int a[5]={1,2,3,4,5};static int b[3][2]={{3,4},{6,7},{9,5}}static char c[10]={ …i‟, …l‟, …p‟, …q‟, …k‟, …s‟, …d‟, …e‟, …a‟};for(i=0;i<5;i++)printf( “%5d”,a[i]);for(x=0;x<3;x++)for(y=0;y<2;y++)printf(“%5d”,b[x][y]);for(i=0;i<10;i++)printf(“%3c”,c[i]);}（2）结果无此值，在上面程序中要输出a数组第5个元素，和b数组的第3行第2例元素，应加此程序行：Printf(“%d”,a[4]);Printf(“%d”,b[2][1]);2 有一数组，内放10个整数，要求找出最小的数和它的下标。

VB实验报告5

台州学院《VB程序设计》实验报告实验五：数组班级：11物理学号：1130010009姓名：廖建旭实验日期：2012.04.13一、实验目的和要求1．掌握数组的声明、数组元素的引用；2．掌握静态数组和动态数组的使用差别；3．应用数组解决与数组有关的常用问题。

二、实验主要仪器和设备计算机一台，Windows XP操作系统，V isual Basic环境。

三、实验内容实验5.1 输入10个数给x数组，找出其中值为最大的元素并将其与第一个元素互换，找出值最小的元素并将其与最后一个元素互换，其他元素不动。

如原来：8，7，9，15，0，3，-8，19，31，5输出：31，7，9，15，0，3，5，19，8，-8实验5.2 编写事件过程Command1_Click，完成下列运算：（1）输入10个数到整型数组a；（2）将a(1)各位数字和赋值到b(1)、a(2)各位数字和赋值到b(2)、...、a(10)各位数字和赋值到b(10)；（3）在窗体上以一行输出a数组各元素值（保持原输入值不变）；（4）在窗体上以一行输出b数组各元素值。

实验5.3利用随机函数产生30个不同的三位正整数，打印出这30个数，然后将它们按从大到小的次序排序，并打印出排序后的结果。

实验5.4（选做）输入n后，再输入n个数a1,a2,…，an,按照下列公式计算s的值并显示。

四、实验原始纪录实验5.1程序的界面设计。

程序代码。

Private Sub Command1_Click()Dim a(10) As Integer, i As Integer, m As Integer, n As IntegerDim x As Integer, y As Integerx = 1: y = 1Print "原数组："For i = 1 To 10a(i) = InputBox("请输入第" & i & "个数")m = a(1): n = a(1)If m < a(i) Thenm = a(i): x = iEnd IfIf n > a(i) Thenn = a(i): y = iEnd IfNext iPrintPrint "乾坤大挪移后："a(x) = a(1): a(1) = mIf y = 1 Then y = xa(y) = a(10): a(10) = nFor i = 1 To 10Print a(i),Next iEnd Sub实验5.2程序的界面设计。

vb实验5

实验五数组的练习一、实验目的：1、掌握数组的声明、赋值和使用方法；2、掌握自定义数据类型的声明和使用方法。

二、实验内容：要求：1、定义一个数组，，包含职工工号、姓名、工资三项内容，职工总人数由键盘输入，工号、姓名、工资由文本框内容读入。

2、单击“添加”按钮，添加一个职工的信息显示在Picture1中，总人数不能超过由键盘输入的职工人数，否则弹出提示框，提示“人数已达要求，不需再次输入”。

3、单击“排序”按钮，将职工信息按工资递减的顺序排列，并输出到Picture2中显示。

提示：1、由于所要表示的职工人数不定，所以需要定义一个动态数组。

2、所定义的动态数组可以是自定义类型。

首先在通用声明段定义一个用户自定义数据类型，然后定义动态数组为该用户自定义类型。

3、按工资递减排列可使用冒泡法，参照课本例题。

二、实验过程：1、设计用户界面并设置属性：打开VB软件，利用左边工具箱上的Label、Command、Text 等控件图标，在中间的窗体上建立相应的控件对象，并进行相关属性的设置：（1）Label1: 在窗体上建立一个新的Label1的标签控件。

属性“Caption”里面设置为“工号”，“Font”里面设置为“宋体，粗体，四号”；（2）Label2: 在窗体上建立一个新的Label2的标签控件。

属性“Caption”里面设置为“姓名”，“Font”里面设置为“宋体，粗体，四号”；（3）Label3：在窗体上建立一个新的Label3的标签控件。

属性“Caption”里面设置为“工资”，“Font”里面设置为“宋体，粗体，四号”。

（4）Text1：在窗体上建立一个新的Text1的文本控件。

属性“Text”里面设置为无；（5）Text2：在窗体上建立一个新的Text2的文本控件。

属性“Text”里面设置为无；（6）Text3：在窗体上建立一个新的Text3的文本控件。

属性“Text”里面设置为无；（7）Label4: 在窗体上建立一个新的Label4的标签控件。

VB第5章数组

dimarr3single?声明一个二维数组?输入数组中各元素的值arri元素的值next数组的输入可以通过textbox控件inputbox函数逐一输入2012111043例56在文本框中输入一系列数据输入的数据只能为数值包括09小数点负号等组成的数字串不同数之间以逗号为分隔符
第5章数组
2013-7-4
2013-7-4
10

下界范围：[-2,147,483,648，2,147,483,647]，若省略下界，则默认值为0。一维数组的大小为：下界-上界+1。数组类型一般都在As子句中给出，若省略As子句，则定义是默认数组。另外，也可通过类型说明符来指定数组的数据类型。如：Dim a%(10), b!(2 to 6), c#(8)。定义数组时，下界必须小于上界。可通过LBound和 UBound来测试数组上界值和下界值。其格式为： LBound（数组[，维数]） UBound（数组[，维数]）
2013-7-4
7
5.2.1 一维静态数组

声明一维静态数组的方法与声明一般变量类似，不同的是声明数组时，要在数组名后面加一对括号，括号里面用数字或 “下界 to上界”的方式指明数组的大小。
2013-7-4
8
1、数组定义的格式
第一种格式： Dim 数组名（下标上界） [As 数据类型] 如：Dim a(5) As Integer 数组a包含6个元素：a(0),a(1),…,a(5)
2013-7-4
12
3、数组操作
一般针对数组中的各个元素进行，多结合循环语句，通过引用数组的下标实现。例如： Dim a(9) As Integer '声明数组a For i = 0 To 9 a(i) = 2 * i + 1 '给数组中元素赋值 Print a(i) '打印出数组中元素 Next i

12级《VB程序设计》教学大纲

VB程序设计课程（Visual Basic Programming Design）（学时60 ）一、前言《VB程序设计》是面向全校所有非计算机专业的一门计算机公共基础课。

本课程共60学时，3.5学分，其中实验教学30学时。

二、课程教学目的本课程的教学目的就是使学生在掌握了计算机文化基础层次内容的基础上，进一步深化计算机的技术能力，培养学生利用计算机技术和自己所学专业，解决一些实际问题的能力。

通过本课程的学习，掌握VB集成开发环境的使用方法，掌握VB基本对象、属性、方法和事件的基本知识，掌握程序设计基础知识，结合程序设计的基本算法开发简单的应用系统。

三、教学基本要求和方法1、教学基本要求通过本课程的学习，使学生掌握面向对象程序设计的基本概念，了解程序设计的基本原理、技巧和方法，并且能够利用VB语言编写简单的程序。

基本要求如下：（1）熟悉Visual Basic操作环境与设计工具；（2）掌握面向对象程序设计基本概念和常用控件、窗体设计；（3）重点掌握结构化程序控制的三种基本结构，并且能够熟练运用之编写程序；（4）掌握子程序、自定义函数设计与参数传递的方法；（5）掌握变量和过程的作用域及变量生存期的概念；（6）掌握图形的基本操作；（7）掌握文件操作和菜单的设计。

2、教学方法（1）采用课堂讲授、上机实践相结合的教学方式；（2）在教学过程中，辅以小型实例，使学生加深对基本语法知识和编程思路的理解与运用，培养学生分析问题及实践能力。

（3）本课程是一门实践性很强的课程，要求学生不仅掌握基本原理以及会编制程序，而且会在计算机上调试和测试程序。

在学习的过程中，要求学生能切实掌握本门语言以便在实际工作中能作为工具使用，同时又应当对今后学习其它的语言起一定的触类旁通作用。

而对程序设计技巧和方法的学习和实践，则是基本的训练。

四、课程考核方式参加省计算机等级考试（二级Visual Basic）作为期末考核方式，考试形式：采用无纸化上机考试。

Visual Basic程序设计实教程vb05( 在程序中使用数组)

说明本案例中使用数组后,好处在于: 1. 变量的定义得以简化 2. 在各浏览按钮中的主要代码完全一样,为以后的内容奠定了基础.
5.7 控件数组
控件数组:
• 具有相同名称的多个同类控件的集合。

控件数组的标识控件数组的创建:
控件Index属性
1、对窗体上已经画好的一个控件进行先复制再粘贴； 2、将窗体已经画好的多个名称不同的控件改名为同一名称 3、不管用何种方法，创建控件数组时都将弹出如图所示的提示框，当选“是”时则创建了控件数组。
第5章
在程序设计使用数组
师生共勉
人生有一道难题，那就是如何使一寸光阴等于一寸生命
目录
5.1 问题引入与问题分析 5.2 数组的概念 5.3 一维数组的声明 5.4 给一维数组赋值的函数—Array函数 5.5 数组的应用 5.6 用一维数组存放员工工资信息 5.7 控件数组 5.8 控件数组的应用 5.9 在VB案例中使用控件数组 5.10 控件数组的应用 5.11 二维数组 5.12用二维数组存放员工信息师生共勉 5.13 本章容易出错的地方人生有一道难题，那就是如何使一寸光阴等于一寸生命 5.14 课堂实训与课后练习
数组的应用-引例2
代码编写:
Private Sub Form_Load() m_strArrWeek(1) = "星期一" m_strArrWeek(2) = "星期二" … i = Weekday(Date, vbMonday) lbl_Week.Caption = m_strArrWeek(i) End Sub Private Sub Timer1_Timer() i=i+1 If i > 6 Then i = 0 lbl_Week.Caption = m_strArrWeek(i) End Sub

程序设计语言实验指导书12版

《程序设计语言》实验指导书徐东燕编北方民族大学计算机科学与工程学院2012年9月目录实验一 C语言编程环境熟悉及简单程序的编写（验证型实验，2学时） (3)实验二分支结构程序设计（设计型实验，2学时） (6)实验三循环结构程序设计（设计型实验，2学时） (8)实验四函数程序设计（设计型实验，2学时） (10)实验五数组程序设计（（设计型实验，2学时） (12)实验六指针程序设计（设计型实验，2学时） (14)实验七结构体程序设计（设计型实验，2学时） (15)实验八程序结构与递归函数（综合性实验，2学时） (16)实验九指针进阶及综合程序设计（综合型实验，2学时） (17)实验十文件的程序设计（设计型实验，2学时） (18)参考文献 (20)课程编号：11101203 课程类别：专业基础课适用专业：计算机科学与技术、软件工程、网络工程、信管专业课程总学时：76 实验课学时：20开设实验项目数：10实验一C语言编程环境熟悉及简单程序的编写（验证型实验，2学时）一、实验目的与要求实验环境1．熟悉Cfree开发环境或Visual C++ 6.0的使用环境；2．掌握Cfree开发环境或Visual C++ 6.0环境下建立C程序的步骤；3．掌握C程序在Cfree开发环境或Visual C++ 6.0环境下的编辑、调试和运行的步骤、方法；4．理解C程序的一般结构；5．理解并掌握程序的顺序结构程序设计；6．在Cfree开发环境或Visual C++ 6.0环境下编写并运行基本的C程序；7．理解程序调试思想，能修改简单的C语法错误；8．掌握算术、赋值表达式，输入输入语句和简单数据处理方法。

二、实验环境1．微机每人一台，要求PⅢ以上处理器。

2．windows2000/xp操作系统。

3．Cfree开发环境或或Visual C++ 6.0开发环境。

三、实验预习与准备1．计算机基本操作练习。

2．Cfree开发环境或Visual C++ 6.0软件使用预习。

VB实验报告(实验5)

电子信息工程学系实验报告课程名称：面向对象程序设计实验项目名称：实验5 Function过程实验时间：2011-10-17班级：姓名：学号：实验目的:1)掌握Function过程的定义和调用。

2)掌握变量的有效范围和静态存储。

3)掌握递归过程的定义和调用。

实验环境:Windows XPVisual 2003实验内容及过程:使用静态变量用数组计算乘法口诀1、新建一个“Vusual Basic”项目2、界面设计如图1所示图1 界面设计3、编写程序代码Dim a(9) As IntegerDim x As IntegerPrivate Sub txtX_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles_ txtX.TextChangedx = Val(txtX.Text)txtResult.Text = ""End SubPrivate Sub cmdStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles_cmdStart.ClickDim i As Integer, j As IntegerFor i = 1 To xa(i - 1) = func(x)NextFor i = 1 To xtxtResult.Text = txtResult.Text & i & "x" & x & "=" & a(i - 1) & " "NextEnd SubFunction func(ByVal k As Integer)Static s As Integers = k + sfunc = sEnd FunctionPrivate Sub cmdEnd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdEnd.Click EndEnd Sub4、保存项目5、运行结果（图2 所示）图2 运行结果实验心得：通过本次实验让我熟悉了Function过程的运用和静态变量的运用，通过此次实验，让我更加深刻体会到了过程运用的重要性，它对简化程序的编写起着至关重要的意义。

vb程序设计第05章数组

注意： •利用Array对数组各元素赋值，声明的数组是可调数组或连圆括号都可省，并且其类型只能是Variant。 •数组的下阶为零，上界由Array函数括号内的参数个数来决定，也可通过函数Ubound( )获得。
Private Sub Form_Click() 2．数组的赋值 Dim a(4) As Integer, b() As Integer, 在VB6.0中，提供了数组直接对数组的赋值。例如： i% a(0) = 3: a(1) = 6: a(2) = 13 Dim a(4) As Integer, b() As Integer,i% = 34 a(3) = 23: a(4) b=a a(0)=3: a(1)=6: a(2)=13 For i = 1 To 4 ReDim b(UBound(a)) a(3)=23: a(4)=34 Print b(i);
例将数组中各元素交换 1 2 9 10 3 4 5 6 7 8 9 10 11 12 1 2 3 4 5
11 12 6 7 8
第一步：将前面的5个数倒置； 5 4 3 2 1 6 7 8 9 10 11 12
第二步：将中间的3个数倒置；
5 4 3 2 1 8 7 6 9 10 11 12 12 11 10 9 第三步：将后面的4个数倒置； 5 4 3 2 1 8 7 6 第四步：将所有的12个数倒置；
?在编程时通过load方法添加其余的若干个元素也可以通过unload方法删除某个添加的元素?每个新添加的控件数组通过left和top属性确定其在窗体的位置并将visible属性设置为true
第五章数组(4+2学时）
5.1 5.2 5.3 5.4 5.5 5.6 5.7 5.8 数组的概念静态数组及声明动态数组及声明数组的基本操作控件数组自定义数据类型常用算法（二）常见错误

青岛科技大学VB实验五

实验五数组应用程序设计〔3个学时〕一、实验目的1.掌握数组的声明、数组元素的引用。

2.掌握静态数组和动态数组的使用差异。

3.应用数组解决与数组有关的常用算法问题。

4.学会使用控件数组设计程序。

二、实验容1. 输入10个学生的成绩，并将成绩输出到窗体上，每行5个。

计算并显示平均分数，然后将高于平均分的分数输出到窗体上。

1〕代码设计如下Option ExplicitOption Base 1Private Sub Form_Click()Dim score(10) As Single, sum As SingleDim i As IntegerFor i = 1 To 10score(i) = Val(InputBox("请输入第" & i & "个学生的数学成绩"))sum = sum + score(i)Next iPrint "学生的数学成绩是："For i = 1 To 10Print score(i),If i Mod 5 = 0 Then PrintNext iPrintPrint "数学平均分是：" & sum / 10Print "高于平均分的分数："For i = 1 To 10If score(i) > sum / 10 Then Print score(i)Next iEnd Sub2〕将运行结果的界面截下来粘贴在下面：3〕调试过程记录〔错误情况及改正方法〕2. 设有一个6×6的方阵，其中的元素是随机产生的10 - 99 之间的两位整数。

分别求出主对角线和次对角线上元素之和，以及方阵中最小的元素的值和位置。

要求：程序运行后，单击“产生〞按钮时，输出方阵。

单击“计算〞按钮时，输出对角线元素之和，以及最小元素的值与位置。

1〕代码设计如下Option ExplicitOption Base 1Dim a(6, 6), i%, j%, s%, sum%Private Sub Command1_Click()ClsRandomizeFor i = 1 To 6For j = 1 To 6s = Int(Rnd * (99 - 10 + 1) + 10)a(i, j) = sPrint a(i, j);Next jPrintNext iEnd SubPrivate Sub Command2_Click()Dim min, p%, q%For i = 1 To 6For j = 1 To 6If i = j Thensum = sum + a(i, j)End IfNext jNext iPrint "主对角线的元素之和：" & sumFor i = 1 To 6For j = 1 To 6If i + j = 7 Thensum = sum + a(i, j)End IfNext jNext iPrint "次对角线的元素之和：" & summin = a(1, 1): p = 1: q = 1For i = 1 To 6For j = 1 To 6If a(i, j) < min Then min = a(i, j): p = i: q = jNext jNext iPrint "最小元素的值与位置：" & min & "位置为：" & "〔" & p; "，"; q; "〕" End SubPrivate Sub Form_Load()Command1.Caption = "产生"Command2.Caption = "计算"End Sub2〕将运行结果的界面截下来粘贴在下面：3〕调试过程记录〔错误情况及改正方法〕3．随机输入N个数据存放在一个数组中，N由用户指定。

VB实验内容

实验五数组和自定义类型
1．使用随机数函数随机产生10个0到100范围的整数，并放入一个一维数组中，然后将其前5个元素与后5个元素对换，及第1个与第10个交换，第2个与第9个交换，……，输出数组原来各元素的值和交换后各元素的值。

2．编程显示Fibonacci数列的前20项，该数列有如下特点：其第1、2项均为1，从第3项开始，该项是前两项之和，公式为：F(n)=F(n-1)+F(n-2)。

3．有一个n × m的矩阵，其各元素的值由随机函数生成（范围50~150）。

编写程序，找出其中最大的元素，以及该元素所在的行和列。

4. 练习选择排序与冒泡排序。

实验六过程
1．用过程、函数写一程序段，求N的阶乘，然后在主程序中调用该过程、函数。

一共使用三种方式。

第一种，过程；第二种，函数（不使用递归）；第三种，函数（使用递归）。

2．用递归算法，求两个数的最大公约数。

3．设计一函数，该函数的功能是求三角形的面积，参数是三角形的三个边长，如果三个参数不能组成三角形，函数的返回值设置为“—1”。

实验七用户界面设计
1．在一个窗体中设计2道单选题目和2道多选题目，要求运行程序做出选择之后，输出正确的单选题目数量以及多选题目数量。

2．在窗体中设计3个主菜单，分别为“文件”，“格式”，“帮助”。

然后在“文件”菜单中建立“打开”，“保存”，“退出”3个子菜单，并在“打开”，“保存”之间加上分隔线。

实验八图形操作
1．从窗体工作区左上角开始，沿主对角线画出8个圆，要求两个相邻的圆要相切。

8个圆的填充颜色、填充效果各不相同。

2．在一个图片框控件中画出余弦函数的图像。

实验5-数组教材

VB程序设计实验五实验目的●掌握一维数组和二维数组的操作●学习跟数组相关的控件：列表框和组合框复习1.列表框列表框（ListBox）控件允许用户查看和选择列表中的多个元素。

表5-11 列表框的常用属性和事件常用属性和事件描述常用属性Items表示该控件中所有元素的集合（类似于数组，有下标的，从0开始）MultiColumn布尔值。

若为True，则该控件中的所有列表元素分在多个列表中显示，从而避免在显示区域中出现滚动条SelectedIndex被选中元素的索引。

如果没有元素被选中，值为 1；如果用户选中了多个元素，这个属性只返回被选中的索引值之一。

由于这个原因，如果有多个元素被选中，应该使用SelectedIndices属性SelectedIndeces集合。

其中包含了所有被选定元素的索引值SelectedItem返回被选中元素的引用。

如果有多个元素被选中，则返回索引值最小的那个元素SelectedItems集合。

返回所有被选定的元素的引用SelectedMode确定可以选择的元素的数量，以及多个元素可以被选择的方式。

常用事件SelectedIndexChanged当用户选择的索引改变时发生的事件Click单击2.组合列表框（ComboBox）整合了列表框和文本框的功能，以一个文本框控件（TextBox）右边加上一个向下箭头的样式显示。

有Simple（简单组合框）、DropDown（下拉组合框）和DropDownList（下拉列表框）。

其中，Simple选项不显示下拉箭头，而是在控件的旁边显示一个滚动条；DropDown风格（默认值）在单击向下箭头时显示一个下拉列表，且在ComboBox中输入一个值；DropDownList显示一个下拉列表，但不允许用户在ComboBox中输入。

表5-13 组合列表框的常用属性和事件(1) Items.Count属性：列表框或组合框中项目数量。

最后一项的序号为Items.Count-1，该属性只能在程序中设置或引用。