四、综合应用题

　　43在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm，另有两个图片，名称为笑脸与哭脸。窗体及其控件属性都设置完毕，但缺少程序代码，要求考生编写适当的代码，以实现下面描述的功能。存盘时不得改变文件名和文件夹。

　　本题描述如下：在名称为Form1的窗本上有两个命令按钮，两个文本框与两个图片框。其中图片框控件的AutoSize属性为True，名称分别为Pic1与Pic2;两个命令按钮的名称分别为Command1与Command2,标题分别为"加1"与"减1";两个文本框名称分别为Text1和Text2，Text1的Text属性为"李明"，Text2的Text属性为0。

　　程序运行时，"减1"按钮不可用，单击"加1"按钮，Text2内的计数加1，"减1"按钮变为可用，同时图片框中显示笑脸图片。单击"减1"按钮，Text2内的计数减1，当计数减到0时，Command2不可用，同时图片框中显示哭脸图片。程序运行情况如图25-5所示。

　　参考解析：

　　本题重点考查控件的显示与隐藏、有效与无效功能的实现。Visible属性用于设置控件是否可见，值为True表示可见，值为False表示不可见;Enabled属性用于设置控件是否有效，值为True表示有效，值为False表示无效(即灰色);文本框的Text属性用于设置或返回其显示的文本内容;Val()函数用于将字符串中的数字字符转换为数值。

　　本题大意是：当给张三加一个时露笑脸，给张三减一个时露哭脸。为了实现笑脸与哭脸的交替，可以让两个图片框分别装载笑脸与哭脸图片，然后让它们重合，单击"加一个"时，装载笑脸的图片框Visible属性值为True，装载哭脸的图片框Visible属性值为False;单击"减一个"时，执行相反的操作，即可得到题目要求的功能。程序运行时，在Form_Load事件过程中将"减一个"按钮设为无效;用IF语句判断Text2中的数是否减到0。

　　编写如下代码：

　　Private Sub Command1_Click()

　　Pic1.Visible = True

　　Pic2.Visible = False

　　Text2.Text = Val(Text2.Text) + 1

　　Command2.Enabled = True

　　End Sub

　　Private Sub Command2_Click()

　　Pic2.Visible = True

　　Pic1.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

　　单击按钮运行程序，并按要求保存。

　　相关推荐：

　　2015年计算机等级考试时间安排(各地略有不同)

　　2015年计算机二级考试《VB》考前练习题汇总

　　2015年计算机二级考试《VB》考前预测试卷汇总

　　2015年9月计算机等级考试各科目考前必做试题