创新设计选考总复习（浙江）信息技术必修3课件：第2单元算法与程序实现.ppt

因此，在文本框Text1上显示的内容为321。 如问标签Label1中显示的内容为多少？那又该如何解题呢？这就要求大家掌握递归算法的实现过程了。递归函数f(n)的执行过程如图所示： 即y＝f(3)＝5，因此在标签Label1上显示的内容为5。 答案　B 七、VB和数据库的连接 八、Fields集合 对学生来说，这部分知识比较陌生，牵涉一系列的基本概念和操作，刚开始容易出现各种错误，需要学会根据产生的错误提示，分析产生该错误的可能原因。 要求了解Fields集合通过指定字段序号或字段名返回数据的方法，要清楚字段名和字段序号之间的对应关系以及当前记录是哪一条。Fields集合返回的是当前记录的数据。 九、VB应用程序 通过ADO访问Access数据库，将数据库作为VB程序设计时的数据源，可用数组的形式存储获取的数据，进而可以通过枚举、解析等算法对从数据库中获取的数据进行简单的处理。 【典例11】　通过ADO的Recordset对象从数据库中获取数据，代码如下： Dim aa As New ADODB.Recordset aa.Open “SELECT*FROM info” 在调试时出现了如图所示的错误提示： 产生该错误提示的原因可能是(　　) A.没有定义ADO的Connection对象实例 B.Recordset对象实例没有打开记录集 C.没有设置Recordset对象实例的ActiveConnection连接属性 D.指定的数据库文件不存在 解析　代码中第一行定义了Recordset对象实例aa，第二行代码的功能是打开记录集，查询数据库的SQL语句“SELECT*FROM info”表示获取数据库中表“info”的所有记录，没有错误。但代码中没有设置Recordset对象实例aa的ActiveConnection属性值，使之与Connection对象实例产生关联，所以提示该错误。 答案　C 【典例12】　通过ADO的Recordset对象实例aa打开了如下表所示的记录集： 序号 货名 售价 数量 1 B5笔记本 6.5 12 2 4B橡皮 1.2 50 3 签字笔 1.1 45 4 圆规 5.3 25 当前记录是第3条，要用Fields集合返回第3个字段的信息，正确的表示是(　　) A.aa.Fields(0) B.aa.Fields(1) C.aa.Fields(“序号”) D.aa.Fields(“售价”) 解析　需要了解Fields集合的两种书写格式，指定字段名或者字段序号。题目要求返回第3个字段的信息，即“售价”字段的信息。而字段序号是从0开始编号，所以第3个字段应该是编号2，故A、B选项均错误。 答案　D 【典例13】　小叶编写了一个Visual Basic程序，用于查找数据库sq.mdt，文件中所有相同身高的同学编号。程序运行界面如图所示，在列表框List1中显示所有同学的编号和身高(按身高从低到高排列)，在文本框Text1中输入需要查找的身高，单击“查找”按钮Command1，在列表框List2中显示所有此身高的同学编号。数组a和数组b分别存储同学的编号和对应的身高(身高已从低到高排列)。 解决此问题的程序代码如下： Dim conn As New ADODB.Connection Dim rs As New ADODB.Recordset Dim n As Integer Dim a(500) As String Dim b(500) as Integer Private Sub Form_Load() conn.ConnectionString＝“Provider＝Microsoft.ACE.OLEDB. 12.0；DATA Source＝” App.Path “/sq.accdb” conn.Open ’到记录集最后一条记录后退出循环 Set rs.ActiveConnection＝conn rs.Open “SELECT*FROM shengao” n＝0 Do While Not rs.EOF n＝n＋1 a(n)＝rs.Fields(“bh”) b(n)＝rs.fields(“sg”) rs.MoveNext　’移动到下一条记录 Loop rs.close conn.Close Set rs＝Nothing Set conn＝Nothing End Sub Private Sub Command1_Click() ’此过程用于在列表框List2中显示给定身高的所有学生的编号，代码略。 　End Sub ’以下函数用于查找给定身高的学生的相关信息 Private F