大学计算机access设计题及答案.doc

PAGE  PAGE 8 2014设计题 设计题一 其他步省略，确定按钮的代码：Label2.Caption = List1 的价格是 Text1 元/斤 3）中分别设置复选框对应标签的的标题属性即可。 5）中，注意到标签的粗体和斜体属性为是/否型，而复选框的值也为是/否型，所以代码如下： Label3.FontBold = Check1 Label3.FontItalic = Check2 其他步骤省略。 4）中，要注意先选中选项按钮，再找鼠标按下事件： 分别编写option1和option2的代码如下: 4） Image1.Height = Image1.Height / 2 Image1.Width = Image1.Width / 2 字号 3)的代码：Text1.FontSize = Combo1 设计题二 n% = Text1 For i = 1 To n If i Mod 6 = 0 Then List1.AddItem i End If Next i 本题程序使用典型的循环和分支结构组合的程序结构，此外，注意列表框Additem方法的使用。 a! = Text1 b! = Text2 c! = Text3 If b * b - 4 * a * c = 0 Then s = 该方程有实根 Else s = 该方程无实根 End If Label4.Caption = s x% = Text1 If x 500 Then y = x ElseIf x 1000 Then y = x * 0.9 ElseIf x 2000 Then y = x * 0.8 Else y = x * 0.7 End If Text2 = y m = a(1) For i = 2 To 10 If a(i) m Then m = a(i) Next i Label1.Caption = m 运行时显示最小值是0的话，关闭窗体，重新打开试试 n% = Text1 s = 0 For i = 2 To n Step 2 s = s + i Next i Label1.Caption = s 设计题三 Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim strSQL As String strSQL = SELECT avg(综合分) as 平均分 from ExamStu where 性别= 【Combo1】 本行需要补充代码，实现构造SQL语句（补充完毕务必删除“【】”） rs.Open 【strSQL, CurrentProject.Connection, 2, 2 】 本行需要补充代码，实现打开记录集（补充完毕务必删除“【】”） Dim average As Single average = 【rs(平均分) 】 本行需补充代码，实现将平均分赋值给average（补充完毕务必删除“【】”） Text1.Value = average rs.Close Set rs = Nothing Dim rs As ADODB.Recordset Set rs = New ADODB.Recordset Dim strSQL As String strSQL = SELECT count(*) as 人数 from ExamStu where 等级= 【Combo1】 本行需要补充代码，实现构造SQL语句（补充完毕务必删除“【】”） rs.Open 【strSQL, CurrentProject.Connection, 2, 2】 本行需要补充代码，实现打开记录集（补充完毕务必删除“【】”） If Not rs.EOF() Then Text1.Value = 【rs(人数)】 本行需要补充代码，在文本框中显示该等级人数（补充完毕务必删除“【】”） End If rs.Close Set rs = Nothing List1.RowSource = Dim rs As ADODB.Recordset Dim strSQL As String strSQL = select 姓名 from ExamStu where 等级= Combo1.Value Set rs = New ADODB.Recordset rs.Open 【strSQL, C