编程题3ADO+答案范文.docVIP

Dim H_Avg As Single Dim Avg_rs As ADODB.Recordset 本行需补充代码，定义记录集对象 Set Avg_rs = New ADODB.Recordset Avg_rs.Open select avg(年龄) as 平均年龄 from stu, CurrentProject.Connection 本行需补充代码，补充SQL语句 将平均身高值赋予变量H_Avg H_Avg = Avg_rs(平均年龄) Text1 = H_Avg 本行需补充代码，将平均身高值显示在文本框Text1中 Avg_rs.Close Set Avg_rs = Nothing Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim strSQL As String strSQL = select 姓名 from 学生,课程,选修 where 学生.学号=选修.学号 and 选修.课程号=课程.课程号 and 课程名= Combo1.Value 本行需要补充代码，实现构造SQL语句 rs.Open strSQL, CurrentProject.Connection, 1, 1 本行需要补充代码，实现打开记录集 Dim i As Integer For i = 1 To List1.ListCount List1.RemoveItem 0 Next i While Not rs.EOF() 本行需补充代码，设置循环终止条件 List1.AddItem rs.Fields(姓名) rs.MoveNext Wend rs.Close Set rs = Nothing List1.RowSource = Dim rs As ADODB.Recordset Dim strSQL As String strSQL = select 姓名 from Teacher where 职称= Combo1.Value Set rs = New ADODB.Recordset rs.Open strSQL, CurrentProject.Connection, 1, 1 本行需补充代码,和当前数据库创建连接 Do While Not rs.EOF() 本行需补充代码，设置循环终止条件 List1.AddItem rs(姓名) rs.MoveNext 本行需补充代码，实现移到下一条记录 Loop rs.Close Set rs = Nothing Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim strSQL As String strSQL = select avg(成绩) as 平均成绩,count(课程号) as 总门数 from 选修 where 学号= Combo1.Value 本行需要补充代码，实现构造SQL语句 rs.Open strSQL, CurrentProject.Connection, 1, 1 本行需要补充代码，实现打开记录集 If Not rs.BOF() And Not rs.EOF() Then 本行需补充代码，设置循环终止条件 Text1 = rs(平均成绩) Text2 = rs(总门数) End If rs.Close Set rs = Nothing Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim strSQL As String strSQL = select 买入价,现价,持有数量 from stock where 股票代码= Combo1.Value 本行需要补充代码，实现构造SQL语句 rs.Open strSQL, CurrentProject.Connection, 1, 1