在考生文件夹下有工程文件sj5．vbp及窗体文件sj5．frm，该程序是不完整的。在名称为Forml、标题为“支持率”的窗体上，有4个Picture控件、4个Label控件和5个Command控件。具体描述如下： Picl和Pic2分别为Personl和P

admin2010-07-13 46

问题在考生文件夹下有工程文件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://www.kaotiyun.com/show/gGmp777K

本试题收录于：二级VB题库NCRE全国计算机二级分类

0

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)