填空题

为某个窗体编写如下事件，单击窗体，消息框显示的结果为 。
Private Sub Form_Click( )
Dim k As Integer ,n As Integer ,m As Integer
n=10:m=1:k=1
Do While k＜=n
m=m*2
k=k+1
Loop
MsgBox m
End Sub

【参考答案】

1024
<上一题 目录 下一题>
热门 试题

填空题
在窗体上有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click() Dim a(10)，p(3)As Integer k=5 For i=1 To 10 a(i)=i*i Next i For i=1 To 3 P(i)a(i*1) Next i For i=1 To 3 K=k+p(i)*2 Next i MsgBox k End sub 打开窗体运行后，单击命令按钮，消息框中输出的结果是______。
填空题
现有用户登录界面如下： 窗体中名为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 欢迎您，管理员 Else DoCmd.Close DoCmd.OpenForm 用户窗体 MsgBox 欢迎使用会员管理系统 End If End If End If End Sub
相关试题