首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有工程文件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
42
问题
在考生文件夹下有工程文件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全国计算机二级
相关试题推荐
在Applet中,下列方法中能完成主类实例初始化工作的是( )。
for循环的循环次数( )。
按照“后进先出”原则组织数据的数据结构是( )。
Java的简单性首先体现在自身系统的精炼上,它的基本解释程序和【】占内存40KB,附加的基本标准类库和支持线程程序占175KB。
现有一个整型数组a[4],它的所有数组元素为( )。
有下面的Applet程序段:import.java.awt.*;import.java.applet.*;publicclassHelloextendsApplet{publicvoidpanin(Graphicsg){gdrawS
多线程是Java语言的______机制,只能够处理同步共享数据和各种不同的事件。
下列数组array_test中,能在程序运行时动态调整大小的是
对长度为n的线性表进行顺序查找,在最坏情况下所需要的比较次数为
下面不属于软件工程3个要素的是______。
随机试题
“你们真是没有良心哪,你们这样对待我,——是贼,是强盗,是鬼呀”,这句台词出自()
男,50岁,吸烟史30年,咳嗽3个月,曾有咯血。1周前发热,咳大量脓痰,胸片左下肺阴影伴空洞,有液平,除考虑肺脓肿外,应重点鉴别的疾病是()
牙龈肥大叙述正确的是()
患者男,消化性溃疡,服用氢氧化铝3周,可能会出现下列哪个副作用
公司住宅楼和停车场部分计算土地增值税时准予扣除的项目合计()万元。公司精装修写字楼部分计算土地增值税时准予扣除的项目合计()万元。
《巴塞尔新资本协议》中认为市场风险的计量方法主要有()。
配送作业的首要环节是()。
材料:某市自营车手续费大概要20万元,而且还有不断上涨的趋势。据了解,自营车主每月大约赚5000元,雇佣司机是每月3000元,没有五险一金;该市决定取消自营车,出租车行业将由几家公司经营,统一雇佣司机开车,每月2500元,有五险一金。但这是一个新政策,可能
A、SheisthemanageroftheTokyobranchbank.B、ShestudieseconomicsinJapan.C、SheworksforaJapanesebankinAmerica.D、S
A、Hewantstobecomeacook.B、Hehopestogoontograduateschool.C、Hewantstotravelaroundtheworld.D、Hewouldliketow
最新回复
(
0
)