(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
第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的命令按钮,并有如下程序:程序执行时,单击命令按钮Command1三次后,窗体上显示的结果为( )。
A. 5 16
B. 5 6
C. 15 15
D. 15 6
第3题:
( 9 )某窗体中有一命令按钮,名称为 C1 。要求在窗体视图中单击此命令按钮后,命令按钮上显示的文字颜色变为棕色(棕色代码为 128 ),实现该操作的 VBA 语句是 【 9 】 。
第4题:
新建一个工程,内有两个窗体,名称分别为Form1、Form2,窗体Form1上有一个命令按钮Command1,单击该按钮,Form1窗体消失,显示Form2窗体,程序如下,请填空。
Private Sub Command1_Click()
Form1.Hide
Form2.______
End Sub
第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