2. 计算机
  3. (1)在考生文件夹中有工程文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。在窗体上有一个文本框，名称为Textl，一个列表框，名称为List1，一个命令按钮，名称为(Command1、标题为“复制”。要求程序运行后，在列表框中自动建立5个列

(1)在考生文件夹中有工程文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。在窗体上有一个文本框，名称为Textl，一个列表框，名称为List1，一个命令按钮，名称为(Command1、标题为“复制”。要求程序运行后，在列表框中自动建立5个列

admin2009-03-26  30
问题 (1)在考生文件夹中有工程文件sj3．vbp及其窗体文件sj3．frm，该程序是不完整的。在窗体上有一个文本框，名称为Textl，一个列表框，名称为List1，一个命令按钮，名称为(Command1、标题为“复制”。要求程序运行后，在列表框中自动建立5个列表项，分别为“Temp1”、“Ternp2”、“Temp3”、“Temp4”、“Temp5”如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中，如图8—3所示。
    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。
    (2)在考生文件夹中有工程文件sj4．vbp及其窗体文件sj4．frm，该程序是不完整的。在窗体上有四个复选框，名称分别为Checkl、("heck2、Check3和Check4，标题分别为“足球”、“篮球”、“羽毛球”和“排球”，一个标签，名称为Label1，还有一个命令按钮，名称为Command1，标题为“选择结果”。要求程序运行后，如果选中某个复选框，当单击“选择结果”命令按钮时，则显示相应的信息。例如，如果选中“足球”和“羽毛球”复选框，单击“选择结果”命令按钮后，在标签上显示“我喜欢的运动是足球羽毛球”，如图8—4所示。

    注意：请在有“?”的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“’”号)．但不能修改其他部分。存盘时不得改变文件名和文件夹。
选项
答案(1)根据题意，新建“标准EXE”工程，在窗体空白处单击右键，选择菜单编辑器添加以下菜单项： [*] 单击“确定”按钮，单击[*]按钮运行程序，并按要求保存即可。 (2)根据题意，新建“标准EXE”工程，在窗体中画一个框架控件和一个文本框控件，将框架的名称设置为Framel、Caption属性设置为框架、Height、Width属性分别设置为2 500、3 500，将文本框的Text属性设置为文本框，Left、Top属性分别设置为500、1 000。 单击[*]按钮运行程序．并按要求保存。 二、简单应用题 (1)向列表框中添加项目可以用AddItem方法，也可以在属性窗口中设置。但题目中要求程序运行后自动添加，所以这里应该用代码实现。列表框的Text属性为最后一次选中的表项的文本，也就是要显示在文本框中的。补充后的代码如下： Private Sub Form_Load() Listl．AddItem"Templ" ’加入元素1 Listl．AddItem"Temp2" ’加入元素2 Listl．AddItem"Temp3" Listl．Addltem"Femp4" Listl．AddItem"Temp5" End Sub Private Sub Commandl_Click() Textl．Text=Listl．Text ’将Listl中选中的文本赋值给Textl的文本 End Sub 单击[*]按钮运行程序，并按要求保存。 (2)单击命令按钮触发Click事件，本题程序中主要是判断复选按钮的状态和在标签上显示复选按钮的Caption属性值，判断复选按钮的状态可以通过Value属性来实现。如果复选按钮被选中，则Value值为1，否则Value值为0。把复选按钮的Caption属性值赋给标签的Caption属性即可显示相应的文字。补充后的代码如下： Private Sub Commandl_Click() Dim str As String str="我喜欢的运动是" If Check1．Value Then sty=str+Checkl．Caption Else Str=Str End If If Check2．Value Then str=str+Check2．Caption Else Str=Str End If If Check3．Value Then str=str+Check3．Caption Else str=str End If If Check4．Value Then str=str+Check4．Caption Else str=Str End If Labell．Caption=str End Sub Private Sub Form Load() Labell．Caption="" End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/4V1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)