35. 在窗体中使用一个文本框(名称为num1)接受输入值，有一个命令按钮run13，事件 代码如下： Private Sub run13_Click() If Me!num1＞=60 Then result="及格" Else If Me!num1＞=70 Then result="通过" Else If Me!num1＞=80 Then result="合格" End If MsgBOx result End Sub 打开窗体后，若通过文本框输入的值为85，单击命令按钮，输出结果是
在窗体中有“用户名称”和“用户密码”两个文本框，名称分别为tUser和tPass，还有“确定”和“退出”两个命令按钮，名称分别为cmdEnter和cmdQuit。在tUser和tPass两个文本框中输入用户名称和用户密码后，单击“确定”按钮，程序将判断输入的值是否正确。如果输入的用户名称为cueb，用户密码为1234，则显示提示框，提示框标题为“欢迎”，显示内容为“密码输入正确，欢迎进入系统!”。提示框中只有一个“确定”按钮，当单击“确定”按钮后，关闭该窗体。如果输入不正确，则提示框显示内容为“密码错误!”，同时清除tUser和tPass两个文本框中的内容，并将光标置于tUser文本框中。当单击窗体上的“退出”按钮后，关闭当前窗体。窗体界面如右图所示。下面给出部分代码，请补充完整。 Private Sub cmdEnter_Click() Dim name As String, pass As String name=Nz(Me!tUser) pass=Nz(Me!tPass) '******************* Add ******************* 13 '******************* Add ******************* MsgBox "密码输入正确, 欢迎进入系统!", vbOKOnly+vbCritical, "欢迎" DoCmd.Close Else MsgBox "密码错误!", vbOKOnly '显示消息框 Me!tUser="" '使文本框清空 Me!tPass="" '******************* Add ******************* 14 '******************* Add ******************* End If End Sub Private Sub cmdQuit_Click() '******************* Add ******************* 15 '******************* Add ******************* End Sub
深色：已答题 浅色：未答题