1.要求建立一数据结构,用来保存学生的学号, 姓名和成绩,并在需要时以成绩的高低按顺序输出这些信息。
这里我想提供两种解决方法(当然还有其他方法)。
第一种:完全用集合来保存数据。
首先定义一个结构如下(该结构同时用与第二种 方式)
TypetMyType IDAsLong NameAsString ScoreAsInteger EndType 再定义类clsData如下 PublicIDAsLong PublicNameAsString PublicScoreAsInteger 并定义插入函数用来接受数据并插入到数据结构中 PublicFunctionInsertToCol(pDataAstMyType) 其中m_ColData保存记录 DimmyClassAsNewclsData SetmyClass=Nothing ForiLoopCtrl=1Tom_ColData.Count Ifm_ColData(iLoopCtrl).Score <=pData.ScoreThenExitFor Next myClass.ID=pData.ID myClass.Name=pData.Name myClass.Score=pData.Score Ifm_ColData.Count=0OriLoopCtrl =m_ColData.CountThen m_ColData.AddItem:=myClass Else m_ColIndex.AddItem:=myClass, before:=iLoopCtrl EndIf EndFunction 这时,对每个记录做处理如下 PublicFunctionOutProcess() ForiLoopCtrl=1Tom_ColData.Count CurrentID=m_ColData(iLoopCtrl).ID CurrentName=m_ColData(iLoopCtrl).Name CurrentScore=m_ColData(iLoopCtrl).Score 对当前记录做相应处理 Next EndFunction
首先定义如下变量
Publicm_Array(99)AstMyType 根据需要也可以定义成动态数组 Publicm_ColIndexAsNewCollection 用来保存索引信息 向数组中插入数据的函数如下 PublicFunctionInsertToArray(pDataAstMyType) IfiCurIndex>99ThenExitFunction ForiLoopCtrl=1Tom_ColIndex.Count Ifm_Array(m_ColIndex(iLoopCtrl)).Score <=pData.ScoreThenExitFor Next Ifm_ColIndex.Count=0OriLoopCtrl =m_ColIndex.CountThen m_ColIndex.AddiLoopCtrl-1 Else m_ColIndex.AddiLoopCtrl-1,before:=iLoopCtrl EndIf m_Array(iCu dex).ID=pData.ID m_Array(iCurIndex).Name=pData.Name m_Array(iCurIndex).Score=pData.Score iCurIndex=iCurIndex+1 EndFunction 这时,对每个记录做处理如下 PublicFunctionOutProcess() ForiLoopCtrl=1Tom_ColData.Count I=m_ColData(iLoopCtrl) CurrentID=m_Array(I).ID CurrentName=m_Array(I).Name CurrentScore=m_Array(I).Score 对当前记录做相应处理 Next EndFunction
对于集合来讲,随着记录个数的增长,对集合的操 作效率飞快下降。因为,集合按下标查找一记录时首先从集合的头一条记录开始,顺序向下, 直到指定的下标位置。因此,访问m_ColData(99)要比访问m_ColData(1)慢的很多。而大家 都知道数组在内存中是顺序存放,因此,访问某条记录的效率与下标大小无关。当记录数或 每个记录的项目数越大,效率的提高越明显。(大家可以自己写一些测试程序,具体比较以 下它们之间的效率差别,会感到非常惊讶的)
2.当记录有唯一关键字,并经常以这个关键字 做查询时可以使用以下方法。
定义用于保存数据的结构和结构数组
TypetMyType Item_1AsString 为关键字 Item_2AsString Item_3AsString EndType Publicm_Array()AstMyType Publicm_ColIndexAsNewCollection 用于保存索引的集合 定义用于保存索引信息的类clsIndex如下 PublicItem_KeyAsString PublicID_OfArrayAsInteger 当接受到一条记录pData后插入过程如下 PublicFunctionInsertData(pDataAstMyType) DimmyClassAsNewclsIndex ID_OfArray=ID_OfArray+1 m_Array(ID_OfArray).Item_1=pData.Item_1 m_Array(ID_OfArray).Item_2=pData.Item_2 m_Array(ID_OfArray).Item_3=pData.Item_3 myClass.Item_Key=pData.Item_1 myClass.ID_OfArray=ID_OfArray m_ColIndex.AddItem:=myClass,Key:=pData.Item_1 EndFunction 那么,当需要以给出的关键字(mKey) 取得数据时,用以下方法实现 Current_Item1=m_Array(myClass(mKey) .ID_OfArray).Item_1 Current_Item2=m_Array(myClass(mKey) .ID_OfArray).Item_2 Current_Item3=m_Array(myClass(mKey) .ID_OfArray).Item_3
Copyright @ 2007-2012 敏韬网(敏而好学,文韬武略--MinTao.Net)(学习笔记) Inc All Rights Reserved. 闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)
鄂公网安备 42011102001154号
站长:MinTao ICP备案号:鄂ICP备11006601号-18