ACS201312设计题

201312access设计题第一题窗体设计：4)Private Sub Command1_Click()'''不得删除本行注释Image1.Visible = True 'Visible属性，用来控制控件可见或隐藏。

End Sub4)Private Sub Command1_Click()'''不得删除本行注释Box1.BackColor = RGB(255, 0, 0)End SubPrivate Sub Command1_Click()'''不得删除本行注释If List1.ListIndex >= 0 ThenList2.AddItem List1.ValueList1.RemoveItem List1.ListIndexEnd IfEnd SubPrivate Sub Command1_Click()'''不得删除本行注释Label2.Caption= “您的选择是：” & Combo1.value & Combo2.value End SubPrivate Sub Command1_Click()'''不得删除本行注释Label3.Caption= Text1 & Text2 & “人”End Sub第二题程序设计：Private Sub command1_click()Dim score as integer,grade as string Score=text1.valueIf score >=90 thenGrade=”A”Elseif score >=75 thenGrade=”B”Elseif score >=60 thenGrade=”C”ElseGrade=”D”END IFtext2.value= GradeEnd sub思路：12小时制的时间由4部分组成：1、小等于12的“时”；2、冒号；3、“分”；4、“AM”或者“PM”程序分别构造这几个部分，然后连接即可。

Private Sub Command1_Click()'''不得删除本行注释s = Trim(Text1) 'trim 去除左右两边的空格，处理误输入多余空格的情况。

h = hour(s) '此时h为数值型的“时”m = minute(s) 'm为数值型的“分”n = "AM" 'n根据h的值，可以是AM或者PMIf h > 12 Thenn = "PM"h = h - 12End IfIf h < 10 Then h = "0" & h '若“时”是一位数，左边添个0。

Text2 = h & ":" & m & n '用连接操作，构造12小时制的时间End Sub方法1:Private Sub command1_click()Dim x As Integer, w As Integerx = Text1.ValueIf x >= 0 And x <= 9 Thenw = 1ElseIf x <= 99 Thenw = 2ElseIf x <= 999 Thenw = 3ElseIf x <= 9999 Thenw = 4End IfText2.Value = wEnd Sub方法2:Dim x As Integer, w As Integer x = Text1.ValueText2.Value = Len(Trim(Str(x)))Private Sub command1_click()Dim i as integer, n as integer, s as long'因为连乘积的计算值会比较大，所以s用长整型。

或者s不定义（即变体型）也可。

s=1n=text1.valueFor i=2 to n step 2s=s*inext itext2.value= sEnd subPrivate Sub command1_click()Dim i As Integer, n As Integer, a As Integer, s As Stringn = Text1.Valuea = Text2.Values = ""For i = 1 To ns = s & aNext iText3.Value = sEnd sub第三题 ADO编程Private Sub Combo1_Change()''' 不得删改本行注释List1.RowSource = ""Dim rs As ADODB.RecordsetDim strSQL As StringstrSQL = "select 姓名 from Employee where 职务='" & Combo1.Value & "'" Set rs = New ADODB.Recordsetrs.Open 【strSQL, CurrentProject.Connection, 2, 2 】'本行需补充代码，和当前数据库创建连接，补充完毕务必删除“【】”Do While 【Not rs.EOF 】'本行需补充代码，设置循环终止条件，补充完毕务必删除“【】”List1.AddItem rs("姓名")rs.【MoveNext】'本行需补充代码，实现移到下一条记录，补充完毕务必删除“【】”Looprs.CloseSet rs = NothingEnd SubPrivate Sub Combo1_Change()''' 不得删改本行注释Dim rs As ADODB.RecordsetSet rs = New ADODB.RecordsetDim strSQL As StringstrSQL = "【SELECT 书名,库存量,预订量from Book where 书号=】'" & Combo1.Value & "'"'本行需要补充代码，实现构造SQL语句，补充完毕务必删除“【】” rs.Open 【strSQL, CurrentProject.Connection, 2, 2】'本行需要补充代码，实现打开记录集，补充完毕务必删除“【】”If Not rs.EOF() ThenText2 = rs("书名")Text3 = rs("库存量")Text4 = rs("预订量")If 【rs(“预订量”)>rs(“库存量”)】 Then'本行需要补充代码，给出库存状态显示条件，补充完毕务必删除“【】”Text1 = "库存不足"ElseText1 = "正常"End IfEnd Ifrs.CloseSet rs = NothingEnd SubPrivate Sub Combo1_Change()Dim rs As ADODB.RecordsetSet rs = New ADODB.RecordsetDim strSQL As StringstrSQL = "SELECT count(*) as 人数 from Teacher where 职称='" & 【Combo1】 & "'"'本行需要补充代码，实现构造SQL语句，补充完毕务必删除“【】” rs.Open 【strSQL, CurrentProject.Connection, 2, 2 】'本行需要补充代码，实现打开记录集，补充完毕务必删除“【】”If Not rs.EOF() ThenText1 = 【rs(“人数”) 】'本行需要补充代码，在文本框中显示该职称人数，补充完毕务必删除“【】” End Ifrs.CloseSet rs = NothingEnd SubPrivate Sub Combo1_Change()''' 不得删改本行注释Dim rs As ADODB.RecordsetSet rs = New ADODB.RecordsetDim strSQL As StringstrSQL = "【SELECT 数量,零售价from Sell where 销售员=】'" & Combo1.Value & "'"'本行需要补充代码，实现构造SQL语句，补充完毕务必删除“【】” rs.Open 【strSQL, CurrentProject.Connection, 2, 2 】'本行需要补充代码，实现打开记录集，补充完毕务必删除“【】” Dim total As Singletotal = 0While 【Not rs.EOF】 '本行需要补充代码，设置循环条件，补充完毕务必删除“【】”total = total + rs.Fields("数量") * rs.Fields("零售价")rs.MoveNextWendText1 = totalrs.CloseSet rs = NothingEnd SubPrivate Sub Combo1_Change()''' 不得删改本行注释Dim rs As ADODB.RecordsetSet rs = New ADODB.RecordsetDim strSQL As StringstrSQL = "SELECT avg(身高) as 平均身高from Stu where 性别=【’" & Combo1.Value & "'】" '本行需要补充代码，实现构造SQL语句，补充完毕务必删除“【】”rs.Open 【strSQL, CurrentProject.Connection, 2, 2 】'本行需要补充代码，实现打开记录集，补充完毕务必删除“【】”Dim avg As Singleavg =【rs(“平均身高”)】'本行需补充代码，实现将平均身高赋值给avg，补充完毕务必删除“【】”Text1.Value = avgrs.CloseSet rs = NothingEnd Sub。