itgle.com

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

题目

窗体上有退出(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

相似考题

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

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

3.在窗体中添加一个命令按钮cmd和一个文本框txt，然后编写如下事件过程：Private Sub cmd_click( )Dim x As Integer, y As Integer, z As Integerx=5y=7z=0Me! Txt=""Call p(x,y,z)Me! txt=zEnd SubSub p(a As Integer, b As Integer, e As Integer)c=a+bEnd Sub单击按钮，文本框显示的内容是【 】。

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

参考答案和解析
正确答案：answer=vbOK ； docmd.close
answer=vbOK ； docmd.close 解析：因为程序要求单击“确定”按钮显示“显示”两个字，因此判断条件为answer= vbOK，单击退出按钮关闭窗体，因此用docmd.close。
更多“窗体上有退出(cmdexit)按钮和测试按钮(cmdtest)以及一个文本框txt,当单击测试按钮时,弹出一个消 ”相关问题

  • 第1题：

    窗体中有两个命令铵钮：“显示”(控件名为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”。

  • 第2题：

    在窗体中添加一个命令按钮(名为Commandl)和一个文本框(名为textl)，编写如下事件过程：

    打开窗体运行后，单击命令按钮，文本框中显示的内容是__________。


    正确答案：
    15【解析】本题考查函数调用中参数传递的知识。在VBA的函数调用时，参数有两种传递方式：传址传递和传值传递。如果在函数声明时没有说明传递类型，则默认为传址传递，即形参的结果会传递给实参。本题中形参均为传址传递，即a=x=3，b=y=5，c=z=10。但是在子程序里面对c重新赋值为c=a*b=15，这个值l5会回送给实参2，所以最后显示的值Z也就是l5。

  • 第3题：

    编写一个程序。程序初始界面如下图左图所示，设“学习目的”、“学习方法”和“退出”命令按钮的名称定义为cmdAim、cmdWay和cmdExit，标签控件的名称定义为lblContent。单击“学习目的”按钮，显示如下图的中图所示；单击“学习方法”命令按钮，显示如下图的右图所示；单击“退出”按钮时，退出程序。

    略

  • 第4题：

    某学生成绩管理系统的“主窗体”如下图左侧所示，点击“退出系统”按钮会弹出下图 右侧“请确认”提示框；如果继续点击“是”按钮，会关闭主窗体退出系统，如果点击“否”按钮，则会返回“主窗体”继续运行系统。为了达到这样的运行效果，在设计主窗体时为“退出系统”按钮的“单击”事件设置了一个“退出系统”宏。正确的宏设计是（ ）。

    A.

    B.

    C.

    D.


    正确答案：A
    此题考查宏以及MsgBox的内容，由题可知，当单击时会退出，在Access中数值6代表YES，所以答案选择A。

  • 第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


    正确答案：

相关内容