1. 在窗体上画1个组合框(名称为Cbl,设置为简单组合框)和1个命令按钮(名称为C1,标题为“添加”),编写适当的事件过程。程序运行后,在组合框中输入一个列表项,单击命令按钮后,程序检查组合框的下拉列表,如果列表中没有此项,则把此项添加到列表中;如果有此

admin2009-03-17  22

问题 1. 在窗体上画1个组合框(名称为Cbl,设置为简单组合框)和1个命令按钮(名称为C1,标题为“添加”),编写适当的事件过程。程序运行后,在组合框中输入一个列表项,单击命令按钮后,程序检查组合框的下拉列表,如果列表中没有此项,则把此项添加到列表中;如果有此项,则通过信息框提示“此项已存在”,并清除输入的内容。程序的运行情况如图2—1所示。
存盘时,工程文件名为sjt3.vbp,窗体文件名为sjt3.frm。
2.在窗体上画一个名称为L1的列表框,通过属性窗口向列表框中添加3个项目,分别为“123”、“456”和“789”。编写适当的事件过程。程序运行后,每次双击列表框中的任何一项,则总在最后面添加一项,该项的内容为前面所有项之和。程序的运行情况如图2—2所示。
注意:保存时必须存放在考生文件夹下,窗体文件名为sjt4.frm,工程文件名为sjr4.vbp。

选项

答案① 启动Visual Basic,在窗体上画1个组合框和1个命令按钮。 ② 按F4键,激活属性窗门,在属性窗口中设置组合框和命令按钮的属性,见表3。 [*]   ③ 编写命令按钮的Click事件过程:   Private Sub C1_Click()     Dim flag As Boolean     For i=0 To Cb1.ListCount—1       If Cb1.List(i)=Cb1.Text Then          flag=True       Else          flag=False       End If     Next     If flag Then        MsgBox"此项已存在",,""        Cb1.Text=""        Else     Cb1.Addltem Cb1.Text        End If   End Sub 2.① 对象主要属性设置如表4所示。 [*] ② 分析:按试题要求在窗体上画一个列表框,并分别将它们的属性按表4的内容进行设置。ListIndex属性返回或设置控件中当前选择项目的索引值。当双 击列表框中的任一项时,即触发了DblCilck(双击)事件。向列表框 (对象)中添加内容的方法为AddItem,其格式为:对象.AddItem字符串表达式,位置如果 省略“位置”,当Sorted属性设置为False时,“字符串表达式”将添加到列表的结尾。 ③ 编程代码: Private Sub L1 DblClick() For i=0 To L1. ListIndex s=s+Val(L1.list(i)) Next i L1.AddItem s End Sub

解析
转载请注明原文地址:https://kaotiyun.com/show/Gj1p777K
0

最新回复(0)