题目：
有一型砂的含水量和含泥量时，取砂样50克（未烘干），烘干后砂样变为48.3克，然后再通过泥量测定仪对这个烘干后的砂样进行清洗，清洗后再烘干，测得的砂样样重为42.8克，试计算该型砂的含水量和含泥量？
答案：
参考答案：
含水量=[（50-48.3）×2]%=3.4%
含泥量=（48.3-42.8）/48.3×100%=11.4%
该砂型的含水量和含泥量分别为3.4%和11.4%
有一型砂的含水量和含泥量时，取砂样50克（未烘干），烘干后砂样变为48.3克，然后再通过泥量测定仪对这个烘干后的砂样进行清洗，清洗后再烘干，测得的砂样样重为42.8克，试计算该型砂的含水量和含泥量？
参考答案：
含水量=[（50-48.3）×2]%=3.4%
含泥量=（48.3-42.8）/48.3×100%=11.4%
该砂型的含水量和含泥量分别为3.4%和11.4%
窗体中名为usemame的文本框用于输入用户名，名为pass的文本框用于输入用户的密码。用户输入用户名和密码后，单击“登录”名为login的按钮，系统查找名为“密码表”的数据表，如果密码表中有指定的用户名且密码正确，则系统根据用户的“权限”分别进入“管理员窗体”和“用户窗体”；如果用户名或密码输入错误，则给出相应的提示信息。密码表中的字段均为文本类型，数据如下图。[*]单击“登录”按钮后相关的事件代码如下，请补充完整。Private Sub login_Click() Dim str As String Dim rs As New ADODB．Recordset Dim fd As ADODB．Field Set cn=CurrentProject．Connection logname=Trim(Me! username) pass=Trim(Me! pass) If Len(Nz(logname))=0 ThenMsgBox "请输入用户名"ElseIf Len(Nz(pass))=0 ThenMsgBox”请输入密码”Elsestr="select * from 密码表 where用户名="&logname&"，and密码="&pass&""rs．Open str，cn，adOpenDynamic，adLockOptimistic，adCmdTextIf 【 】 ThenMsgBox "没有这个用户名或密码，输入错误，请重新输入"Me．username=" "Me．pass=" "ElseSet 【 】 = rs．Fields("权限")If fd="管理员"ThenDoCmd．CloseDoCmd．OpenForm "管理员窗体"MsgBox "欢迎您，管理员"ElseDoCmd．CloseDoCmd．OpenForm "用户窗体"MsgBox "欢迎使用会员管理系统"End If End If End IfEnd Sub