3.3.1在数组中查找数据

算法的程序实现3.3.1在数组中查找数据方金明1解析法DimmAsInteger,nAsIntegerDimxAsInteger,yAsIntegerm=Val(Text1.Text)n=Val(Text2.Text)x=2*m-n/2y=n/2-mPrintx,y解析式计算2穷举法Dima,b,cAsIntegerFora=0To20Forb=0To33c=100-a-bIfa*5+b*3+c/3=100ThenPrinta,b,cEndIfNextbNexta穷举范围逐一验证是否符合条件数据存储

上一节课我们进行了一次测试，现在打算用VB程序进行成绩分析，如何存储数据？

定义变量可以用来存储数据，假设我们班有50个人，应该怎么定义变量？Dimcs1_01asSingleDimcs1_02asSingleDimcs1_03asSingle......Dimcs1_50asSingle繁琐数组

概念：数组是一组相同类型的变量集合，集合的每个元素都是独立的变量，它们能够通过数组序号被引用。

变量和数组的关系：

变量类似于一个个独立的柜子，而数组则类似于一组柜子，它们共同构成一个整体，可以用统一的名称进行管理数组

表示方法：数组名（下标），如cs1(0)、cs1(1)、cs1(2)...cs1(49)，cs1数组名，0、1、2...49表示元素在数组中的位置。

定义格式：Dim数组名（常量）As数据类型

例如，用数组cs1来存储50人的测试一成绩，可以定义为：

Dimcs1(49) AsSingle数组50个元素分别是：cs1(0)、cs1(1)...cs1(49)数组

数据重置：

Fori=0To49 cs1(i)=0 Next

数据输入：Fori=0To49 cs1(i)=InputBox(Str(i)&"号的成绩") Next

数据输出：Fori=0To49Printcs1(i)NextInputBox作用：返回输入值，格式:InputBox(提示[，标题])r=inputbox(“请输入r”,”输入圆半径”)数字转字符串数据查找

题目要求：设计一个程序，完成以下功能：1、可以存放本班所有学生的测试成绩；2、可以输出本班所有学生的测试成绩；3、可以查询某个成绩是哪位同学的。数据查找操作步骤：1、参考上图完成用户界面设计。2、定义全局变量、数组

DimiAsIntegerConstzrs=10Dimcs1(zrs)AsSingle3、设计输入成绩代码

Fori=1Tozrscs1(i)=Val(InputBox(Str(i)&"号的成绩"))Next4、设计输出成绩代码Fori=1TozrsPrintStr(i)&"号的成绩",cs1(i)Next定义变量i计数定义常量总人数定义数组测试11查找算法1、输入需要查询的成绩a2、i=13、验证a=cs1(i)

成立，则输出a是i号的成绩4、如果i≤zrs,则i=i+1，回步骤3操作步骤：4、数据查找代码DimaAsSinglea=Val(InputBox("请输入要查询的成绩"))Fori=1TozrsIfa=cs1(i)ThenPrinta;"是";i;"号的成绩"EndIfNext定义变量a输入数据数据查找小试身手2-28、阅读程序，写出运行结果Dima(10)

As

IntegerDimiAsInteger

a(1)=1

a(2)=1

Fori=3To6

a(i)=a(i-1)+a(i-2)

Next

i

Printa(6)

上述程序运行后，输出a(6)的值是______。课堂小结数组定义格式：Dim数组名（常量）As数据类型

例如，Dimcs1(49)AsSingle数组50个元素分别是：cs1(0)、cs1(1)...cs1(49)Fori=1TozrsIfa=cs1(i)ThenPrinta;"是";i;"号的成绩"EndIfNext数据查找Fora=0To20Forb=0