窗体中有两个命令铵钮:“显示”(控件名为cmdDisplay)和“测试”(控件名为cmdTest)。当单击“测试”按钮时,执行的事件功能是:首先弹出消息框,若单击其中的“确定”按钮,则隐藏窗体上的“显示”按钮;否则直接返回到窗体中。请在空白处填入适当的语句,使程序可以完成指定的功能。
Private Sub cmdTest_Click()
Answer=【 】 ("隐藏按钮?",vbOKCancel+vbQuestion,"Msg")
If Answer=vbOK Then
Me!cmdDisplay.Visible=【 】
End If
End Sub
第1题:
窗体上有两个按钮:显示(cmdshow)按钮和测试按钮(cmdtest),显示按钮初始状态不可见,当单击测试按钮,弹出一个消息框,包括“确定”和“取消”按钮,若单击“确定”则显示“显示”按钮,若单击“取消”则关闭窗体。试将程序补充完整。
Private sub cmdtest_click( )
answer = msgbox ( "显示按钮", vbOkCancel)
If answer = vbOK then
cmdshow. visible = 【 】
Else
docmd. close
End If
End sub
第2题:
在窗体中有一个名为(Command1的命令按钮,Click事件的代码如下:
单击命令按钮后,标签显示的结果是( )。
第3题:
( 14 )窗体中有两个命令按钮: “ 显示 ” (控件名为 cmdDisplay )和 “ 测试 ” (控件名为 cmdTest ) 。 以下事件过程的功能是:单击 “ 测试 ” 按钮时,窗体上弹出一个消息框。如果单击消息框的 “ 确定 ” 按钮 ,隐藏窗体上的 “ 显示 ” 命令按钮;单击 “ 取消 ” 按钮关闭窗体。按照功能要求,将程序补充完整。
Private Sub cmdTest_Click()
Answer= 【 14 】 ( “ 隐藏按钮 ” , vbOKCancel )
If Answer=vbOK Then
cmdDisplay.Visible= 【 15 】
Else
Docmd.Close
End If
End Sub
第4题:
窗体上有退出(cmdexit)按钮和测试按钮(cmdtest)以及一个文本框txt,当单击测试按钮时,弹出一个消息框,消息框中包括“确定”和“取消”按钮,若单击“确定”按钮则在文本框中显示“显示”,若单击“取消”按钮则在文本框中显示“取消”。单击退出按钮关闭窗体。试将程序补充完整。
Private sub cmdtest_click()
answer=msgbox("显示钮按", vbOkCancel)
If 【 】 then
txt="显示"
Else
txt="取消"
End If
End sub
Private sub cmdexit_click()
【 】
End sub
第5题:
在名为Form1的窗体上建立两个命令按钮,名称分别为Cmd1和Cmd2,标题分别为“命令按钮1”和“命令按钮2”。要求程序运行后,若单击“命令按钮2”按钮,则把“命令按钮1”按钮移到“命令按钮2”按钮上,使两个按钮重合。运行结果如下图所示。
注意:
在程序中不得使用任何变量(必须通过属性设置来移动控件);文件必须存放在考生文件夹中,窗体文件名为execise102.frm,工程文件名为execise102.vbp。