9 VBA程序设计练习1-扩展练习.docVIP

VBA程序设计——学习案例 实验4 创建一个简单应用程序，该应用程序由一个文本框和一个命令按钮组成。单击命令按钮，文本框中会出现 Hello , world! 消息。 步骤如下： 新建一个窗体，在窗体上创建一个文本框和一个命令按钮(不用控件向导)。 在创建控件时，系统自动为控件对象命名名称。为了在程序代码中书写方便，并能见名知意，应修改控件对象名称。 在“命令按钮”属性表中，将“名称”属性由Command0改为cmd1。窗体上如果还有命令按钮，可依次命名为cmd2、cmd3……。 在“文本框”属性表中，将“名称”属性改为txt1。窗体上如果还有文本框，可依次命名为txt2、txt3……。 对象属性可以在属性窗口中设置，也可以在程序代码中设置。 因为当单击命令按钮时，文本框的内容要发生变化，因此要对命令按钮对象cmd1对应的Click事件编程。 在“命令按钮”属性表中，选择“单击”事件，并单击按钮，在出现的“选择生成器”中，选择“代码生成器”，即可进入VBA编程环境。 在代码窗口中，输入cmd1的Click事件的代码 ：txt1．Value＝“Hello World！。 为了使窗体界面更美观，设置窗体及控件的属性。在代码窗口中，单击左上角的“视图”按钮，由代码窗口切换回到Access窗口。 在窗体属性表中，单击“事件”选项卡，选择“打开”事件(窗体打开时自动激活的事件)，单击“生成器”按钮，在出现的“选择生成器”中，选择“代码生成器”，在代码窗口中，会自动显示窗体的Open事件。在PrivateSub Form_Open()和EndSub两句代码之间，输入以下代码： 实验5 编写一个简单程序。要求：在窗体上创建一个文本框控件、三个命令按钮控件，命令按钮的标题分别设置为“显示”、“隐藏”和“关闭”。要求：单击“隐藏”按钮后文本框消失；单击“显示”按钮显示出文本框；单击“关闭”结束程序执行。 显示 Private Sub cmd1_Click() txt1.Visible = True End Sub 隐藏 Private Sub cmd2_Click() txt1.Visible = False End Sub 关闭 Private Sub cmd3_Click() DoCmd.Close End Sub 窗体加载 Private Sub Form_Load() txt1.Value = 欢迎使用VB创建程序！ txt1.BackColor = vbBlue txt1.ForeColor = vbWhite txt1.FontSize = 20 Me.Caption = 程序设计之二 txt1.Visible = False End Sub