[填空题]现有用户登录界面如下：
窗体中名为username的文本框用于输入用户名，名为pass的文本框用于输入用户的密码。用户输入用户名和密码后，单击“登录”名为login的按钮，系统查找名为“密码表”的数据表，如果密码表中有指定的用户名且密码正确，则系统根据用户的“权限”分别进入“管理员窗体”和“用户窗体”：如果用户名或密码输入错误，则给出相应的提示信息。
[*]
密码表中的字段均为文本类型，数据如下图所示。
[*]
单击“登录”按钮后相关的事件代码如下，请补充完整。
Private Sub login_Click（　）
Dim str As String
Dim rs AS New ADODB.Recordset
Dim fd As ADODB.Field
Set en=CurrentProjeet.Connection
logname=Trim(Me!username)
pass=Trim(Me!pass)
If Len(Nz(logname))=0 Then
MsgBox"请输入用户名"
Else If Len(Nz(pass))=0 Then
MsgBox"请输入密码"
Else
str="select * from密码表where用户名="&logname&"and密码="&pass
rs.Open str，cn，adopenDynamic，adLockOptimistic，adCmdText
If Then
MsgBox"没有这个用户名或密码输入错误，请重新输入"
Me.username=" "
Me.pass=" "
Else
Set =rs.Fields("权限")
If fd="管理员"Then
DoCmd.Close
DoCmd.OpenForm "管理员窗体"
MsgBox "欢迎您，管理员"

[填空题]本程序的功能是获取文本框中的文本。窗口中有两个文本框“用户名”和“密码”，以及三个按钮“登录”、“其他用户登录”和“关闭”，初始状态“用户名”文本框是只读的，单击“其他用户登录”按钮后变成可写的，“密码”文本框使用的不是密码文本框，在用户键入的时候没置显示为*号。输入用户名和密码后，单击“登录”按钮后，如果输入的密码为空，则弹出提示消息框，否则后台将显示输入的用户名和密码。比如，显示为“admin用户的密码：password”(admin为输入的用户名，password为输入密码)。
import java.awt.*;
import java.awt.event.*;
import javax.swing.JOptionPane;
public class java3

public static void main(String args[])

final Frame frmFrame=new Frame（　）;
Panel pnlPanel=new Panel（　）;
Lrabel lblUsername=new Label("用户名");
Label lblPassword=new Label("密码");
final TextField txtUsername=new TextField("Student")
final TextField txtPassword=new TextField("",8);
txtUsername.setEditable(false);
txtPassWOrd.setChar(’*’)；
Button btnButtonl=new Button("登录");
Button btnButton2=new Button("其他用户登录");
Button btnButton3=new Button("关闭");
btnButtonl.addActionListener(new ActionListen-er（　）

public void actionPerformed(ActionEvent e)

[填空题]有一个VBA计算程序的功能如下，该程序用户界面由4个文本框和3个按钮组成。4个 文本框的名称分别为：Text1、Text2、Text3和Text4。3个按钮分别为：清除（名为 Command1）、计算（名为Command2）和退出（名为Command3）。窗体打开运行后， 单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2 和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中；单击 退出按钮则退出。请将下列程序填空补充完整。 Private Sub Command1_Click（　） Me!Text1="" Me!Text2="" Me!Text3="" Me!Text4="" End Sub Private Sub Command2_Click（　） If Me!Text1="" Or Me!Text2="" Or Me!Text3="" then MsgBox "成绩输入不全" Else Me!Text4=(__________ +Val(Me!Text2)+Val(Me!Text3))/3__________ End Sub Private Sub Command3_Click（　） Docmd. __________ End Sub

[填空题]有一个VBA计算程序的功能如下：该程序用户界面由3个文本框和3个按钮组成，3个文本框的名称分别为Text1、Text2和Text3，3个按钮分别为清除(名为Command1) 、计算(名为 Command2) 和退出(名为Command3) 。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1和Text2两个文本框中输入的数值的和并将结果存放在Text3文本框中；单击退出按钮则退出。请将下列程序填空补充完整。
Private Sub Command1_Click( )
Me!Text1=""
Me!Text2=""
Me!Text3=""
End sub
Private Sub Command2 Click( )
If Me!Text1=""Or Me! Text2=""Or Me! Text3=""Then
MsgBOx"输入不全"
Else
Me!Text4=( [13] +Val(Me!Text2))
[14]
End Sub
Private Sub Command3 Click( )
DocmD [15]
End Sub

[填空题]有一个VBA计算程序，该程序用户界面由4个文本框和3个按钮组成。4个文本框的名称分别为Text1、Text2、Text3和Text4。3个按钮分别为清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击“清除”按钮，则清除所有文本框中显示的内容；单击“计算”按钮，则计算在Text1、Text2和Text3这3个文本框中输入的3科成绩的平均成绩，并将结果存放在Text4文本框中，单击“退出”按钮则退出。请将下列程序填空补充完整。
Private Sub Command1_Click（　）
Me!Text1=""
Me!Text2=""
Me!Text3=""
Me!Text4=""
End Sub
Private Sub Command2_Click（　）
If Me!Text1="" Or Me!Text2="" Or Me!Text3="" Then
MsgBox "成绩输入不全"
Else
Me!Text4=(______+Val(Me!Text2)+Val(Me!Text3))/3
End If
End Sub
Private Sub Command3_Click（　）
Docmd Quit
End Sub

[填空题]有一个VBA计算程序的功能如下：该程序用户界面由4个文本框和3个按钮组成，4个文本框的名称分别为Text1、Text2、Text3和Text4，3个按钮分别为清除(名为Command1)、计算(名为Command2)和退出(名为Command3)。窗体打开运行后，单击清除按钮，则清除所有文本框中显示的内容；单击计算按钮，则计算在Text1、Text2和Text3三个文本框中输入的3科成绩的平均成绩并将结果存放在Text4文本框中；单击退出按钮则退出。清将下列程序填空补充完整。
Private Sub Command1 Click（　）
Me!Text1=""
Me!Text2=""
Me!Text3=""
Me!Text4=""
End Sub
Private Sub Command2_Click（　）
If Me!Text1=""Or Me!Text2=""Or Me!Text3=""Then MsgBox"成绩输入不全"
Else
Me!Text4=( (13) +Val(Me!Text2)+Val(Me!Text3))/3
(14)
End Sub
Private Sub Command3_Click（　）
DocmD (15)
End Sub