算法与数据管理VIP免费

4．2算法与数据管理1．SQL语言及其功能SQL：StructuredQueryLanguage结构化查询语言，是对数据操作的命令集。SQL功能：可以面向数据库执行查询、从数据库取回数据、可在数据库中插入新的记录、可更新数据库中的数据、可从数据库删除记录、可创建新数据库、可在数据库中创建新表等。其功能可归结为查询、定义、操纵和控制等几个方面。①SELECT语句从数据库中查询数据，并以表格形式返回查询结果。用法：SELECT[DISTINCT]目标列表达式1[AS别名][，目标列表达式2][AS别名],…FROM表名1[，表名2]…[WHERE条件表达式]例如语句：“Select*FROMinfo”表示查询数据表“info”中的全部数据。②DELETE语句的功能为删除表中指定的记录。格式：DELETEFROM表名[WHERE条件]【例】删除用户名为“donghan”的所有记录。DELETEFROMUsersWHEREUserName＝“donghan”；③UPDATE语句功能为更新表中指定记录中指定字段的值。格式：UPDATE表名SET字段1＝表达式[，字段2＝表达式2，……，字段N＝表达式N][WHERE条件]④INSERT语句功能是向数据表中插入新的记录，格式：INSERTINTO表名[(字段1，…，字段N)]VALUES(表达式1，…，表达式N)；2.算法在数据管理中的综合应用VB程序获取到的Access数据库中数据，可采用数组等方式进行存储，并可以通过编程对数据进行各种加工处理，如统计、分析、查找、排序等。使用数组读取数据表的主要步骤为：①先定义数组②建立与数据库的连接③打开数据表④使用DoWhile语句读取Fields对象中的记录到数组中⑤关闭数据库连接【例】将student.accdb“数据中，家长数据表jizhang”中的手机号码字段记录“cmcc”读取到数组phone中。程序代码如下：Dimphone(1To100)AsString'学生家长手机号码DimnumAsInteger'统计班级人数变量PrivateSubForm_Load()DimconnAsNewADODB.Connection,rsAsNewADODB.RecordsetDimstrSQLAsStringconn.ConnectionString＝“Provider＝Microsoft.ACE.OLEDB.12.0；DataSource＝”＋App.Path“\student.accdb”conn.OpenstrSQL＝“SELECT*FROMjizhang”Setrs.ActiveConnection＝connrs.OpenstrSQLnum＝0DoWhileNotrs.EOFnum＝num＋1'cmcc字段存储的家长手机号码phone(num)＝rs.Fields(“cmcc”)rs.MoveNextLooprs.Close'关闭数据表conn.Close'关闭数据库连接MsgBox“家长手机号码读取完成，共有”＋Str(num)＋“个。”EndSub本节课学习要求识记基本的SQL语句，初步掌握从ADO对象中获取数据的方法(使用数组来读取数据库记录的方法)，能够使用合适的算法来处理从数据库中获取的数据。考查方式为填空题。1．某电视台的直播节目结束后，主持人从参与短信投票的观众中抽取若干名幸运观众。假设共有n(n<1000)名观众参与短“信投票，手机号码数据存放在数据库文件lottery.accdb”的vote表中，抽奖程序的VB代码如下，程序运行时界面如下图所示。主持人在文本框Text1中输入幸运观众数量后“”，单击开始按钮Command1，在列表框List1中显示幸运观众的手机号码。程序代码如下：Dimphone(1To1000)AsString'参与抽奖观众的手机号码Dimluck(1To100)AsString'幸运观众的手机号码DimnumAsInteger'参与抽奖观众的总人数DimnAsInteger'幸运观众的人数PrivateSubCommand1_Click()DimtAsInteger'幸运编号DimiAsIntegerRandomizen＝Val(Text1.Text)Ifn>0ThenFori＝1Tonluck(i)＝“”NextiList1.ClearFori＝1Ton'抽取幸运编号t＝Int(Rnd*num)＋1DoWhilecheck(phone(t))t＝Int(Rnd*num)＋1Loopphone(i)=luck(t)'①List1.AddItemMid(luck(i),1,3)＋“****”＋Mid(luck(i),8,4)NextiEndIfEndSub'check函数用于判断随机抽中的幸运观众电话号码是否重复，函数值为True表示号码重复Functioncheck(sAsString)AsBooleanDimiAsIntegercheck＝FalseFori＝1TonIfluck(i)＜＞sThen'②check＝TrueExitFor'中止FOR循环EndIfNextiEndFunctionPrivateSubForm_Load()DimconnAsNewADODB.Connection,rsAsNewADODB.RecordsetDimstrSQLAsStringconn.ConnectionString＝“Provider＝Microsoft.ACE.OLEDB.12.0；DataSource＝”＋App.Path“\lottery.accdb”conn.OpenstrSQL“＝SELECT*FROMvote”Setrs.ActiveC...