窗体上有两个按钮：显示(cmdshow)按钮和测试按钮(cmdtest)，显示按钮初始状态不可见，当单击测试按钮，弹出一个消息框，包括“确定”和“取消”按钮，若单击“确定”则显示“显示”按钮，若单击“取消”则关闭窗体。试将程序补充完整。Private sub cmdtest_click( )answer = msgbox ( "显示按钮", vbOkCancel)If answer = vbOK thencmdshow. visible = 【 】Elsedocmd. closeEnd IfEnd sub

题目

窗体上有两个按钮：显示(cmdshow)按钮和测试按钮(cmdtest)，显示按钮初始状态不可见，当单击测试按钮，弹出一个消息框，包括“确定”和“取消”按钮，若单击“确定”则显示“显示”按钮，若单击“取消”则关闭窗体。试将程序补充完整。

Private sub cmdtest_click( )

answer = msgbox ( "显示按钮", vbOkCancel)

If answer = vbOK then

cmdshow. visible = 【 】

Else

docmd. close

End If

End sub

相似考题

1.（ 12 ）窗体中有两个命令按钮： “ 显示 ” （控件名为 cmdDisplay ）和 “ 测试 ” （控件名为 cmdTest ） 。 当单击 “ 测试 ” 按钮时 ， 执行的事件功能是 ： 首先弹出消息框 ， 若单击其中的 “ 确定 ” 按钮 ， 则隐藏窗体上的 “ 显示 ” 按钮：否则直接返回到窗体中。请在空白处填入适当的语句，使程序可以完成指定的功能。Private Sub cmdTest Click （ ）Answer= 【 12 】（ “ 隐藏按钮？ ” ， vbOKCancel+vbQuestion, “ Msg ” ）If Answer=vbOK ThenMe{cmdDisplay.Visible= 【 13 】End IfEnd Sub

2.窗体上有退出(cmdexit)按钮和测试按钮(cmdtest)以及一个文本框txt，当单击测试按钮时，弹出一个消息框，消息框中包括“确定”和“取消”按钮，若单击“确定”按钮则在文本框中显示“显示”，若单击“取消”按钮则在文本框中显示“取消”。单击退出按钮关闭窗体。试将程序补充完整。Private sub cmdtest_click()answer=msgbox("显示钮按", vbOkCancel)If 【 】 thentxt="显示"Elsetxt="取消"End IfEnd subPrivate sub cmdexit_click()【 】End sub

3.窗体上有三个按钮Command1、Command2和Command3，如以下代码所示，该程序的功能是______。Private Sub Command1_ Click() CommandEnabled=False CommandVisible =FalseEnd SubA．当单击按钮Command1时，按钮2和按钮3都不可用B．当单击按钮Command1时，按钮2和按钮3都不可见C．当单击按钮Command1时，按钮2不可用和按钮3不可见D．当单击按钮Command1时，按钮2不可见和按钮3不可用

4.窗体中有两个命令按钮：“显示”（控件名为cmdDisplay）和“测试”（控件名为cmdTest）。以下事件过程的功能是：单击“测试”按钮时，窗体上弹出一个消息框。如果单击消息框的“确定”按钮，隐藏窗体上的“显示”命令按钮；单击“取消”按钮关闭窗体。按照功能要求，将程序补充完整。 Private Sub cmdTest_Click（）Answer= （“隐藏按钮”，vbOKCancel）If Answer=vbOK ThencmdDisplay.Visible=ElseDocmd.CloseEnd IfEnd Sub

更多“窗体上有两个按钮:显示(cmdshow)按钮和测试按钮(cmdtest),显示按钮初始状态不可见,当单击测试按 ”相关问题

  • 第1题：

    窗体上有3个按钮Commandl、Command2和Command3，如以下代码： Private Sub Commandl Click() Command2．Enabled：Fal3e Command3．Vi3ible＝Fal3e End Sub 该程序的功能是 ( )

    A．当单击按钮Command1时, Command2和Command3按钮不可用

    B．当单击按钮Command1时, Command2和Command3按钮不可见

    C．当单击按钮Command1时, Cammand2按钮不可用和Command3按钮不可见

    D．当单击按钮Command1时, Command2按钮不可见和Command3按钮不可用


    正确答案：C
    解析：本题主要是对命令按扭属性的考查。其中Enabled肩性用来表示按扭是否可用。Visible属性用来表示按扭是否可见。故选项C正确。

  • 第2题：

    对考生目录下的数据库“school”建立文件名为“bd2”的表单。表单含有一个表格控件，用于显示用户查询的信息；表单上有一个按钮选项组，含有“课程信息”、“学生信息”和“成绩信息”3个选项按钮；表单上有两个命令按钮，标题为“浏览”和“关闭”。

    选择“课程信息”选项按钮并单击“浏览”按钮时，在表格中显示“course”表的“课程编号”、“课程名称”字段；

    选择“学生信息”选项按钮并单击“浏览”按钮时，表格中显示“student”表的“学号”、“姓名”、“性别”和“出生日期”字段；

    选择“成绩信息”选项按钮并单击“浏览”按钮时，表格中显示“姓名”、“课程名称”及该生该门课的“成绩”。

    单击“关闭”按钮退出表单。


    正确答案：

    【考点指引】本大题主要考查表单的设计和使用，重点是表格控件、按缸选项组的使用，注意表格控件的数据源设置。


    【操作步骤】
    ①选择【文件】→【新建】命令，选择“表单”，单击“新建文件”按钮打开表单设计器；单击表单控件工具栏上的“选项按钮组”控件图标，为表单添加一个选项按钮组0ption–Group1；单击表单控件工具栏上的“命令按钮”控件图标，为表单添加两个命令按钮Command1和Command2；单击表单控件工具栏上的“表格”控件图标，再添加一个表格控件
    Grid1。
    ②选择选项按钮组0ptionGroup1，单击右键，在弹出的快捷菜单中选择“生成器”打开选项按钮组生成器对话框，单击“按钮”选项卡，设置按钮的数目为3个，在“标题”列下修改3个按钮的标题分别为“课程信息”、“学生信息”和“成绩信息”，单击“确定”按钮关闭命令组生成器对话框。
    ③分别选择两个命令按钮，在按钮属性窗口中将命令按钮Command1的Caption属性值修改为“浏览”、Command2的Caption属性值修改为“关闭”，如图33-1所示。双击“关闭”命令按钮，在Click事件中输入代码：ThisForm．Release，用来关闭表单。
    ④选择表格控件“Grid1”，在表格控件属性窗口中将“RecordSource”属性值修改为“〝″”，将“RecordSourceType”属性值修改为“1”。
    ⑤双击“浏览”命令按钮，在Click事件中输入代码：
    DO CASE
    CASE ThisForm．OptionGroup1．value=1
    SELECT课程编号，课程名称INTO CURSOR tmp FROM course
    CASE ThisForm．OptionGroup1．value=2
    SELECT学号，姓名，性别，出生日期INTO CURSOR trap FROM student
    CASE ThisForm．OptionGroup1．value=3
    SELECT姓名，课程名称，成绩INTO CURSOR tmp FROM student，score，course WHERE student．学号=score．学号AND course．课程编号=score．课程编号
    ENDCASE
    ThisForm：Grid1．RecordSourceType=1
    ThisForm．Grid1．RecordSource=〝tmp″
    ThisForm．Grid1．Refresh
    ⑥选择【表单】→【执行表单】命令，系统首先要求保存该表单文件，在弹出的“另存为”对话框中输入表单文件名“bd2”，保存在考生文件夹下，然后运行表单。

  • 第3题：

    在窗体上添加2个按钮。单击 按钮1，可使该按钮移动到窗体左上角，再次单击，则“按钮1”回到初始位置。单击按钮2，可使该按钮长度和宽度扩大到原来2倍，再次单击则恢复到初始值。界面见题1附件


    Index

  • 第4题：

    窗体中有两个命令铵钮：“显示”(控件名为cmdDisplay)和“测试”(控件名为cmdTest)。当单击“测试”按钮时，执行的事件功能是：首先弹出消息框，若单击其中的“确定”按钮，则隐藏窗体上的“显示”按钮；否则直接返回到窗体中。请在空白处填入适当的语句，使程序可以完成指定的功能。

    Private Sub cmdTest_Click()

    Answer=【 】 ("隐藏按钮?",vbOKCancel+vbQuestion,"Msg")

    If Answer=vbOK Then

    Me!cmdDisplay.Visible=【 】

    End If

    End Sub


    正确答案：MsgBox False
    MsgBox False 解析：根据题目要求“当单击‘测试’按钮时，执行的事件功能是：首先弹出消息框”，先来看一下对应该要求的cmdTest_Click()子过程，因为要求先弹出消息框，所以这里要填消息框函数“MsgBox”，该函数的格式是：MsgBox(提示[,按钮、图标和默认按钮][,标题])，与空格后已知部分相符合，可以确定，第12空填“MsgBox”。题面要求“若单击其中的‘确定’按钮，则隐藏窗体上的‘显示’按钮”，所以程序首先通过“If Answer=vbOK”语句判断消息框中的“确定”按钮是否被单击，如果是，则隐藏“显示”按钮，即通过语句“Me!cmdDisplay.Visible=False”将cmdDisplay的Visible属性改为False，所以第13空填“False”。

  • 第5题：

    （ 14 ）窗体中有两个命令按钮： “ 显示 ” （控件名为 cmdDisplay ）和 “ 测试 ” （控件名为 cmdTest ） 。 以下事件过程的功能是：单击 “ 测试 ” 按钮时，窗体上弹出一个消息框。如果单击消息框的 “ 确定 ” 按钮 ，隐藏窗体上的 “ 显示 ” 命令按钮；单击 “ 取消 ” 按钮关闭窗体。按照功能要求，将程序补充完整。

    Private Sub cmdTest_Click()

    Answer= 【 14 】 （ “ 隐藏按钮 ” ， vbOKCancel ）

    If Answer=vbOK Then

    cmdDisplay.Visible= 【 15 】

    Else

    Docmd.Close

    End If

    End Sub


    正确答案：

相关内容