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

admin2009-03-26  17

问题 在考生文件夹下有工程文件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 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://kaotiyun.com/show/kV1p777K
0

最新回复(0)