编程题(含答案).doc

2012级二级ACCESS编程题练习一、窗体设计1、prog01012、prog01023、prog01034、prog01045、prog01056、prog01067、prog01078、prog0108二、程序设计1、prog0201Private Sub Command1_Click() 不得删除本行注释 Dim a As Integer, b As Integer a是第一个数，b是第二个数 Dim i As Integer, s As Integer i 是循环变量，s 用于保存求和结果 a = Text1.valueb = Text2.value s = 0 For i = a To b s = s + i Next Label1.Caption = sEnd Sub2、prog0202做法1：用Select Case语句实现Private Sub Command1_Click() 不得删除本行注释 Dim a As Integer, b As Integer, s As String s 用于保存显示结果 a = Text1.Value b = Text2.Value Select Case a - b Case Is 0 s = ab Case Is 0 s = a b Then s = ab ElseIf ab then s = ab Else s = a=b End If Label1.Caption = sEnd Sub3、prog0203Private Sub Command1_Click() 不得删除本行注释 Dim a As Integer, s As String a = Text1.value If a 0 Then s = 请输入一个自然数 Else If a Mod 2 = 0 Then s = a & 是偶数 Else s = a & 是奇数 End If End If Label1.Caption = sEnd Sub4、prog0204Private Sub Command1_Click() 不得删除本行注释 Dim i As Integer, s As Integer i 是循化变量，s 用于保存求和结果 s = 0 For i = 1 To 100 Step 2 s = s + i Next Text1.value = sEnd Sub5、prog0205Private Sub Command1_Click() 不得删除本行注释 Dim a As String, b As String a 用于保存口令，b 保存显示结果 a = Text1.value If a = abcd Then b = 欢迎使用本系统! Else b = 口令错,请重新输入! End If Label2.Caption = bEnd Sub6、prog0206Private Sub Command1_Click() 不得删除本行注释 Dim x As Single, y As Single x 为物品重量，y 为金额 x = Text1.value If x = 90 rs(等级) = 优秀 Case Is = 80 rs(等级) = 良好 本行需补充代码 Case Is = 70 rs(等级) = 中等 Case Is = 60 rs(等级) = 及格 Case Else rs(等级) = 不及格 End Select rs.Update rs.MoveNext Loop rs.Close Set rs = Nothing AFT.Form.RecordSource = select * from StuEnd Sub5、prog0305Private Sub Command1_Click() 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, 2, 2 本行需补充代码 H_Avg = Avg_rs(平均身高) Text1.Value = H_Avg Avg_rs.Close Set Avg_rs = Nothing 本行需补充代码End Sub6、prog0306Private Sub Combo1_Change() 不得删改本行注释Dim rs As ADODB.RecordsetSet rs = New ADODB.Recordset 本行需补充代码,初始化一个Recordset对象Dim sqlstr As Stringsqlstr = select * from score where 课程名称= & Me.Combo1 & rs.Open sqlstr, CurrentProject.Connection, 2, 2 本行需补充代码,和当前数据库创建连接n = 0x = 0y = 0Do While Not rs.EOF()n = n + 1If rs(成绩) = 60 Thenx = x + 1Elsey = y + 1End Ifrs.MoveNextLoopMe.Text1.Value = n 本行需补充代码,将参加人数显示在文本框Text1中Me.Text2.Value = xMe.Text3.Value = yrs.CloseSet rs = NothingEnd Sub7、prog0307Private Sub Combo1_Change() 不得删改本行注释 Dim rs As ADODB.Recordset Dim strSQL As String Set rs = New ADODB.Recordset strSQL = select 姓名 from player where 组别= + Combo1.Value + 本行需要补充代码，实现构造SQL语句 rs.Open strSQL, CurrentProject.Connection, 2, 2 For i = List1.ListCount - 1 To 0 Step -1 List1.RemoveItem (i) Next i Do While Not rs.EOF 本行需补充代码，设置循环终止条件 List1.AddItem rs(姓名) rs.MoveNext 本行需补充代码，实现移到下一条记录 Loop rs.Close Set rs = NothingEnd Sub8、prog0308Private Sub List1_Click() 不得删改本行注释Dim rs As ADODB.Recordset Dim strSQL As String Set rs = New ADODB.Recordset strSQL = select * from Employee where 部门= + List1.Value + 本行需要补充代码，实现构造SQL语句 rs.Open strSQL, CurrentProject.Conne