access抽取题目至设计题答案

1、注意：做题时，在这里可以注意：做题时，在这里可以比较容易找称的控件而不出注意：设置命令按钮的“输注意：设置命令按钮的“输入掩码”属性值为。单击事件代二、程序设Private m=二、程序设Private m=Text1 n = Text2 s = 0Fori=mTon s = s + iNextEnd SubPrivate a = b = IfabThenr=ab Ifaa = b = IfabThenr=ab Ifa=bThenr=a=b IfabThenr=ab Label1.Caption = rEnd 注意要类型转换，否则将把文本框的数字当字符串，比较会出错不做 val 的类型转换的话

2、，可以试9 和 12 n =n 0s请输入一个自然数nMod20Then s = n & 是偶数sn&是奇数 End If Label1.Caption = s End Sub s= Fori=1To100Steps= s+Next i End s= s+Next i End Private 不得删除本行注If Text1.Value = abcd Then End IfEnd w=Ifw=Case Is = 80 rs(等级良好CaseIs=rs(等级中等CaseIs=rs(等级及格Casers(等级不及格End Select CaseIs=rs(等级及格Casers(等级不及格End Se

3、lect Setrs=AFT.Form.RecordSource=select*fromEnd DimH_AvgAsDim Avg_rs As ADODB.Recordset Avg_rs.Open select avg(身高) as 平均身高 from stu, CurrentProject.Connection, 2, 2H_Avg = Avg_rs(平均身高) SetAvg_rs=End 不得删改本行注释Dim rs As ADODB.Recordset 不得删改本行注释Dim rs As ADODB.Recordset DimsqlstrAssqlstrselect*fromscore

4、where 课程名称& rs.Open sqlstr, CurrentProject.Connection, 2, 2n =x =y =n = n + 1x = x + 1y = y + 1 End If bo1&Text1 = nMe.Text2.Value = xSetrs=Text1 End 不得删改本行注释Dim strSQL As StringSetrs 不得删改本行注释Dim strSQL As StringSetrs=NewstrSQL=fromplayerwhere 组别=&Combo1 &本行需要补充代码，实现构造SQL语rs.OpenstrSQL,CurrentProject.Connection,2,2 For i = List1.ListCount - 1 To 0 Step -1List1.RemoveItemNextDoWhileNotrs.EOF List1.AddItemrs( Setrs=End 不得删改本行注释Dim strSQL As StringSetrs=New 不得删改本行注释Dim strSQL As StringSetrs=NewstrSQL=select 雇 rs.Ope