(9) 在一个窗体上有两个命令按钮,cmdMax和cmdMin。单击cmdMax时,窗体上显示"字体由小变大",字号每次增加2;单击cmdMin时,窗体上显示"字体由大变小",字号每次减小2。请填空。Private Sub Form_Load()Form1.Caption="字体变化示范"cmdMax.Caption="字体变大"cmdMin.Caption="字体变小"End SubPrivate Sub cmdMax_Click()【9】Form1.Print "字体由小变大"End SubPriva

题目

(9) 在一个窗体上有两个命令按钮,cmdMax和cmdMin。单击cmdMax时,窗体上显示"字体由小变大",字号每次增加2;单击cmdMin时,窗体上显示"字体由大变小",字号每次减小2。请填空。

Private Sub Form_Load()

Form1.Caption="字体变化示范"

cmdMax.Caption="字体变大"

cmdMin.Caption="字体变小"

End Sub

Private Sub cmdMax_Click()

【9】

Form1.Print "字体由小变大"

End Sub

Private Sub cmdMin_Click()

【10】

Form1.Print "字体由大变小"

End Sub


相似考题
更多“(9)在一个窗体上有两个命令按钮,cmdMax和cmdMin。单击cmdMax时,窗体上显示"字体由小变大 ”相关问题
  • 第1题:

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

    Private sub cmdtest_click( )

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

    If answer = vbOK then

    cmdshow. visible = 【 】

    Else

    docmd. close

    End If

    End sub


    正确答案:真
    真 解析:本题考点是控件的visible属性,属性值为true为可见,属性值为false为不可见。

  • 第2题:

    在窗体上有一个名称为Command1的命令按钮,并有如下程序:程序执行时,单击命令按钮Command1三次后,窗体上显示的结果为( )。

    A. 5 16

    B. 5 6

    C. 15 15

    D. 15 6


    正确答案:D
    D)    【解析】本题考查静态变量。静态变量的值有继承性,上一次调用的结果在下一次调用时还是有效的。题目中每次调用Y的值都被重新赋值了,因此单击3次以后Y的值仍然是6,而x每次调用的结果都保留,因此调用3次以后,结果为15。

  • 第3题:

    ( 9 )某窗体中有一命令按钮,名称为 C1 。要求在窗体视图中单击此命令按钮后,命令按钮上显示的文字颜色变为棕色(棕色代码为 128 ),实现该操作的 VBA 语句是 【 9 】 。


    正确答案:

  • 第4题:

    新建一个工程,内有两个窗体,名称分别为Form1、Form2,窗体Form1上有一个命令按钮Command1,单击该按钮,Form1窗体消失,显示Form2窗体,程序如下,请填空。

    Private Sub Command1_Click()

    Form1.Hide

    Form2.______

    End Sub


    正确答案:Show
    Show 解析:Show用于显示窗体,Hide隐藏窗体对象,但不能使其卸载。调用Show方法时,若指定的窗体没有加载,VB将自动加载窗体;调用Hide方法时,若指定的窗体还没有加载,Hide方法将加载窗体,但不显示。

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


    正确答案: