有一个工程文件ylc6.vbp，请在窗体中画一个组合框和一个命令按钮。程序的功能是在运行时，如果在组合框中输入一个项目并单击命令按钮，则搜索组合框中的项目；如果已有此项，则弹出提示：“已有此项”，之后清除输入的内容。界面如图20所示。注意：存盘时必

admin2012-10-09 85

问题有一个工程文件ylc6.vbp，请在窗体中画一个组合框和一个命令按钮。程序的功能是在运行时，如果在组合框中输入一个项目并单击命令按钮，则搜索组合框中的项目；如果已有此项，则弹出提示：“已有此项”，之后清除输入的内容。界面如图20所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。

选项

答案1．操作步骤 (1)在Visual Basic集成环境中选择“文件”→“打开工程”命令，在对话框中选择 ylc6.vbp工程文件，单击“确定”按钮打开。 (2)选择工具中的ComboBox控件，在窗体中画命名为Comboll的组合控件。在属性窗口分别设置它们的名称、Text属性为空。 (3)在属性编辑框中设置Comboll组合控件的List属性，其初始数据为“语文”、“数学”、“英语”、“物理”、“化学”、“生物”、“历史”、“政治”和“地理”。 (4)在工具箱中选择命令按钮控件，在窗体上拖动创建并命名为Command1，标题为“确定”。 2．行为编码在代码框选择Command1对象和Click事件，代码如下： Private Sub Command1_Click() For i=0 To Combol. ListCount-1 If Combol.List(i)=Combol.Text Then ’清除输入内容 Combol.Text=" " MsgBok("已有此项") End If Next i End Sub 3．存盘保存执行“文件”→“保存工程”命令，工程文件名为ylc6.vbp，窗体文件名为ylc6.frm。

解析 (1)这是一道简单的应用题，主要考查ComboBox控件的相关特性、数据的初始化、项目的多少、程序设计中循环结构的编程，以及程序中提示信息对话框的使用。
(2)代码中使用组合控件的ListCount属性，得到控件数据的个数，使用Comboll的 List属性得到Comboll内某项字符中的值。在For...Next循环中将输入的字符串与Comboll内的字符串逐个比较。如果输入的字符串在控件中已存在，则使用MsgBox信息捉示框显示提示信息。

转载请注明原文地址:https://kaotiyun.com/show/ZChp777K

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

二级VB

NCRE全国计算机二级

相关试题推荐

随机试题

最新回复(0)

二级VB

NCRE全国计算机二级

窗体在屏幕上显示后有______种方法可以清除它。

VisualBasic中的控件分为3类，它们是标准控件、【】和可插入对象。

以下关于菜单的叙述中，错误的是

表示滚动条控件取值范围最大值的属性是

单击命令按钮时，下列程序的执行结果是　　PrivateSubCommand1_Click()　　　　DimaAsInteger，bAsInteger，CAsInteger　　　　a=3　　　　b=4　　　　c=5　　　　PrintSec

下列程序段的执行结果为　　I=4　　x=5　　Do　　　　I=I+1　　　　X=K^2　　LoopUntilI＞=7　　Print"I="；I　　Print"x="；x

下列事件过程的功能是：通过Form_Load事件给数组赋初值为35、48、15、22、67，Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填人适当的内容，将程序补充完整。　　Dim　Arr()　　Private　Su

注意：下面出现的“考生文件夹”均为c:\wexam\25160001。(1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)但不能修改其他部分。存

Acrosstheriver________.

美国的政治体制属于下列哪种形式?()

A．睾丸切除术B．肾切除术C．膀胱手术D．尿道扩张术E．前列腺手术S2至T10麻醉平面高度可以满足的手术是

向生产厂家订购设备时，应做好厂商的初选入围与实地考察，对供货厂商进行初选的内容包括()。

监理工程师实施付款控制的主要阶段应当是(　　)。

以下经营成果中，不属于企业收入的是()。

某公司持有有价证券的平均年利率为5％，公司的现金最低持有量为1500元，现金余额的最优返回线为8000元。如果公司现有现金20000元，根据现金持有量随机模型，此时应当投资于有价证券的金额是()元。

设f(x)在[a，b]上连续，在(a，b)内可导(a＞0)．证明：存在ξ，η∈(a，b)，使得

Howmuchdoesanewbedcostaccordingto(按照，根据)thewoman?

二级VB

NCRE全国计算机二级

窗体在屏幕上显示后有______种方法可以清除它。

VisualBasic中的控件分为3类，它们是标准控件、【】和可插入对象。

以下关于菜单的叙述中，错误的是

表示滚动条控件取值范围最大值的属性是

单击命令按钮时，下列程序的执行结果是 PrivateSubCommand1_Click() DimaAsInteger，bAsInteger，CAsInteger a=3 b=4 c=5 PrintSec

下列程序段的执行结果为 I=4 x=5 Do I=I+1 X=K^2 LoopUntilI＞=7 Print"I="；I Print"x="；x

下列事件过程的功能是：通过Form_Load事件给数组赋初值为35、48、15、22、67，Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填人适当的内容，将程序补充完整。 Dim Arr() Private Su

注意：下面出现的“考生文件夹”均为c:\wexam\25160001。(1)在考生文件夹中有工程文件sjt3.vbp及其窗体文件sjt3.frm，该程序是不完整的，请在有?号的地方填入正确内容，然后删除?及所有注释符(即’号)但不能修改其他部分。存

Acrosstheriver________.

美国的政治体制属于下列哪种形式?()

A．睾丸切除术B．肾切除术C．膀胱手术D．尿道扩张术E．前列腺手术S2至T10麻醉平面高度可以满足的手术是

向生产厂家订购设备时，应做好厂商的初选入围与实地考察，对供货厂商进行初选的内容包括()。

监理工程师实施付款控制的主要阶段应当是( )。

以下经营成果中，不属于企业收入的是()。

某公司持有有价证券的平均年利率为5％，公司的现金最低持有量为1500元，现金余额的最优返回线为8000元。如果公司现有现金20000元，根据现金持有量随机模型，此时应当投资于有价证券的金额是()元。

设f(x)在[a，b]上连续，在(a，b)内可导(a＞0)．证明：存在ξ，η∈(a，b)，使得

Howmuchdoesanewbedcostaccordingto(按照，根据)thewoman?

表示滚动条控件取值范围最大值的属性是　　　　

单击命令按钮时，下列程序的执行结果是　　PrivateSubCommand1_Click()　　　　DimaAsInteger，bAsInteger，CAsInteger　　　　a=3　　　　b=4　　　　c=5　　　　PrintSec

下列程序段的执行结果为　　I=4　　x=5　　Do　　　　I=I+1　　　　X=K^2　　LoopUntilI＞=7　　Print"I="；I　　Print"x="；x

下列事件过程的功能是：通过Form_Load事件给数组赋初值为35、48、15、22、67，Form_Click事件找出可以被3整除的数组元素并打印出来。请在空白处填人适当的内容，将程序补充完整。　　Dim　Arr()　　Private　Su

监理工程师实施付款控制的主要阶段应当是(　　)。