首页 > 计算机 > 计算机考试 正文

[问答题] 注意:下面出现的“考生文件夹”均为c:wexam25160001。 (1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的,请在有号的地方填入正确内容

时间:2021-07-20 19:28:49 解答: 238 次

[问答题] 注意:下面出现的“考生文件夹”均为c:wexam25160001。 (1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm,该程序是不完整的,请在有号的地方填入正确内容,然后删除及所有注释符(即’号),但不能修改其他部分。存盘时不得改变文件名和文件夹。 本题描述如下: 在窗体上有一个列表框,名称为List1,一个文本框,名称为Text1,和一个命令按钮,名称为C1,标题为“复制”。要求程序运行后,在列表框中自动建立4个列表项,分别为“Item1”、“Item2”、“Item3”、“Item4”如果选择列表框中的一项,则单击“复制”按钮时,可以把该项复制到文本框中,如图1-3所示。 (2)在考生文件夹中有工程文件sjt4.vbp及其窗体文件sjt4.frm,该程序是不完整的,请在有号的地方填入正确内容,然后删除及所有注释符(即’号)但不能修改其他部分。存盘时不得改变文件名和文件夹。 在窗体有3个复选框,名称分别为Ch1、Ch2和Ch3,标题分别为“体育”、“音乐”、“美术”,还有一个命令按钮,名称为C1,标题为“显示”。要求程序运行后,如果选中某个复选框,当单击“显示”命令按钮时,则显示相应的信息。例如,如果选中“体育”和“美术”复选框,单击“显示”命令按钮后,在窗体上显示“我的爱好是体育美术”,如图1-4所示。

正确答案:

第二步:编写程序代码。 程序提供的代码: Option Explicit Private Sub C1_Click() Dim i As Integer ’ For i = To List1.ListCount-1 If List1.Selected(i) = True Then ’ = List1.List(i) End If Next i End Sub Private Sub Form_Load() List 1.AddItem "Item1" List

参考解析:

在窗体上建立好控件后,先设置控件属性,再编写事件过程。 向列表框中添加项目可以用AddItem方法,也可以在属性窗口中进行。但题目中要求是程序运行后自动添加,所以利用代码实现。列表框的Text属性为最后一次选中的表项的文本。解题步骤: 第一步;建立界面并设置控件属性。程序中用到的控件及属性设置见表1-2。

  • 相关题库

请充值VIP继续使用(未注册用户支付后会自动注册登录)

×

95元 29元

VIP截止日期:2024-12-31 02:54:21

←请使用支付宝扫码支付

95元 29元

VIP截止日期:2024-12-31 02:54:21

←请使用微信扫码支付