首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在名称为Forml、标题为“支持率”的窗体上,有4个Picture控件、4个Label控件和5个Command控件。具体描述如下: Picl和Pic2分别为Personl和P
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在名称为Forml、标题为“支持率”的窗体上,有4个Picture控件、4个Label控件和5个Command控件。具体描述如下: Picl和Pic2分别为Personl和P
admin
2010-07-13
39
问题
在考生文件夹下有工程文件sj5.vbp及窗体文件sj5.frm,该程序是不完整的。在名称为Forml、标题为“支持率”的窗体上,有4个Picture控件、4个Label控件和5个Command控件。具体描述如下:
Picl和Pic2分别为Personl和Person2的红色,Pic3和Pic4为绿色;Picl和Pic3重叠,Pic2和Pic4重叠。单击Commandl和Command3按钮时,Labe2和label4减少。当Labe2或Label4的值为0时,相对应的Commandl和Command3按钮失效(变灰);按Command2和Command4时,Label2和Label4增加;Command5是关闭程序。程序启动时两者均为绿色,两人当中票数高的是红色,另一个是绿色,如图63—5所示。如果两者的票数一样高,则两者都为红色。
注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能
修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案
控件是否可用由其Enabled属性决定,当该属性值为True时可用,为False时不可用(灰色);控件是否可见由其Visible属性决定,该值为True时,控件可见,为False时控件不可见。 根据题意,将4个图片控件、4个标签和5个命令按钮添加到窗体中,图片控件的名称分别为Picl、Pic2、Pic3和Pic4,背景色分别为红色,红色,绿色和绿色,标签的Caption属性分别为“Personl”、“Person2”、“0”和“0”,名称分别为Labell、Label2、Label3和Label4,命令按钮的名称分别为Commandl、Command2、Command3、Command4和Command5,Caption属性分别为“减l票”、“加1票”、“减1票”、“加1票”和“关闭”。双击Commandl进入代码编写窗口,补充后的具体代码如下: Dim pernuml As Integer’Personl得到的票数 Dim pernum2 As Integer’Person2得到的票数 Private Sub Commandl_Click() pernuml=pernuml-1 proj’调用proj函数 End Sub Private Sub Command2_Click() pernuml=pernuml+1 proj’调用proj函数 End Sub Private Sub Command3_Click() pernum2=pernum2-1 proj’调用proj函数 End Sub Private Sub Command4_Click() pernum2=pernum2+1 proj’调用proj函数 End Sub Private Sub Command5_Click()
Unload Me
’关闭窗口 End Sub Private Sub Form_Load() ’初始化窗口 Label3.
Caption
=0 Label4.
Caption
=0 Commandl.
Enabled
=False Command3.
Enabled
=False Picl.Visible=False Pic2.Visible=False Pic3.Visible=True Pic4.Visible=True pernuml=0’票数都为0 pernum2=0 End Sub Private Function proj() ’每个命令按钮都要调用该函数 If pernuml>pernum2 Then’当Personl的票数大于Person2时 Picl.Visible=True’Personl为红色 Pic2.Visible=False Pic3.Visible=False Pic4.Visible=True’Person2为绿色 Else If pernuml
=
pernum2 Then Picl.Visible=True Pic2.Visible=True Pic3.Visible=False Pic4.Visible=False Else Picl.Visible=False Pic2.Visible=True Pic3.Visible=True Pic4.Visible=False End If End If If pernuml==0 Then Commandl.
Enabled
=False’当pernuml为0时,Commandl变为不可用 Else Commandl.
Enabled
=True’当pernuml为非0时,Commandl变为可用 End If If pernum2=0 Then Command3.
Enabled
=False’当pernum2为0时,Command3变为不可用 EIse Command3.
Enabled
=True’当pernum2为非0时,Command3变为可用 End If Label3.
Caption
=pernuml Label4.
Caption
=pernum2 End Function 单击[*]按钮运行程序,并按要求保存。
解析
转载请注明原文地址:https://kaotiyun.com/show/gGmp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行下列程序后,输出结果为()。publicclassTest{publicstaticvoidmain(String[]args){StringBuffersb=newStri
数据结构包括数据的逻辑结构、数据的【】以及对数据的操作运算。
数据字典是各类数据描述的集合,它通常包括5个部分,即数据项、数据结构、数据流、【】和处理过程。
下列选项中不属于结构化程序设计方法的是( )。
数据结构分为逻辑结构和存储结构,循环队列属于【】结构。
在进行模块测试时,要为每个被测试的模块另外设计两类模块:驱动模块和承接模块(桩模块)。其中【】的作用是将测试数据传送给被测试的模块,并显示被测试模块所产生的结果。
创建一个10行40列的文本区域tal的正确语句是______。
调用以下哪些方法可以使运行状态的线程进入阻塞状态?( )
在软件生命周期中,能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是______。
下列关系运算中,能使经运算后得到的新关系中属性个数多于原来关系中属性个数的是
随机试题
Iftheoperation______carefullyprepared,itwouldnothavebeensuccessful.
A.牙齿结构异常B.牙齿数目异常C.牙齿形态异常D.牙齿萌出异常E.牙齿功能异常畸形中央尖
外阴鳞状上皮增生的主要临床表现为:
正常人在下列哪些情况下可出现错觉
女性,36岁,近2年来出现尿频、尿急、尿痛症状,经抗感染治疗不见好转,尿常规检查可见少量尿蛋白、白细胞和少量红细胞,尿液呈酸性。最可能的疾病是()
A.渗透压调节剂B.pH调节剂C.黏度调节剂D.抑菌剂E.增溶剂三氯叔丁醇可作为眼用溶液剂的()。
规费的计算基础不能是()。
Writeanessaybasedonthefollowingtable.Inyourwritingyoushould1)describethetableand2)giveyourcomments.Yoush
细娃盼过年,大人盼开春。儿时,对于大人的盼是不能理解的,但过年,对于我来说,可是一年的大盼头了。过年,不但好玩,且有肉吃,那气氛是迷人的。年一过,又盼日子快些流,好流来又一个春节。在盼中,日子真的流得飞快,转眼上了小学,继而初中,然后高中,最后大学,盼的欲
A、Becausetheyweredevelopedverywell.B、Becausetheywereportableforeveryconsumers.C、Becausetheysoldverywellinthe
最新回复
(
0
)