在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，另有两个图片，名称为笑脸与哭脸。窗体及其控件属性都设置完毕，但缺少程序代码，要求考生编写适当的代码，以实现下面描述的功能。存盘时不得改变文件名和文件夹。本题描述如下：在名称为Forml的窗本上有两个命令按钮，两个文本框与两个图片框。其中图片框控件的AutoSize属性为True，名称分别为Pic1与Pic2；两个命令按钮的名称分别为Commandl与Command2，标题分别为“加1”与“减1”；两个文本框名称分别为Textl和Text2，Textl的Text属性为“李明”，Text2的Text属性为“0”。程序运行时，“减1”按钮不可用，单击“加1”按钮，Text2内的计数加l，“减1”按钮变为可用，同时图片框中显示笑脸图片。单击“减1”按钮，Text2内的计数减1，当计数减到0时，Command2不可用，同时图片框中显示哭脸图片。程序运行时的窗体界面如图14—5所示。

【正确答案】正确答案：本题重点考查控件的显示与隐藏、有效与无效功能的实现。Visible属性用于设置控件是否可见。值为True表示可见，值为False表示不可见；Enabled属性用于设置控件是否有效，值为True表示有效，值为False表示无效(即灰色)；文本框的Text属性用于设置或返回其显示的文本内容；Val()函数用于将字符串中的数字字符转换为数值。本题大意是：当给张三加一时露笑脸，给张三减一时露哭脸。为了实现笑脸与哭脸的交替，可以让两个图片框分别装载笑脸与哭脸图片，然后让它们重合，单击“加1”时，装载笑脸的图片框Visible属性值为True，装载哭脸的图片框Visible属性值为False；单击“减1”时，执行相反的操作，即可得到题目要求的功能。程序运行时，在Form_Load事件过程中将“减1个”按钮设为无效；用IF语句判断Text2中的数是否减到0。编写如下代码： Private Sub Command1_Click() Picl．Visible=True Pic2．Visible=False Text2．Text=Val(Text2．Text)+1 Command2．Enabled=True End Sub Private Sub Command2_Click() Pic2．Visible=True Picl．Visible=False Text2．Text=Val(Text2．Text)-1 If Text2．Text="0"Then Command2．Enabled=False End Sub Private Sub Form_Load() Command Enabled=False End Sub 单击

【答案解析】