问题
问答题
在窗体上画1个组合框(名称为Cbl,设置为简单组合框)和1个命令按钮(名称为C1,标题为“添加”),编写适当的事件过程。程序运行后,在组合框中输入一个列表项,单击命令按钮后,程序检查组合框的下拉列表,如果列表中没有此项,则把此项添加到列表中;如果有此项,则通过信息框提示“此项已存在”,并清除输入的内容。程序的运行情况如图2—1所示。存盘时,工程文件名为sjt3.vbp,窗体文件名为sjt3.frm。2.在窗体上画一个名称为L1的列表框,通过属性窗口向列表框中添加3个项目,分别为“123”、“456”和“789”。编写适当的事件过程。程序运行后,每次双击列表框中的任何一项,则总在最后面添加一项,该项的内容为前面所有项之和。程序的运行情况如图2—2所示。注意:保存时必须存放在考生文件夹下,窗体文件名为sjt4.frm,工程文件名为sjt4.vbp。
答案
参考答案:
解析:① 启动Visual Basic,在窗体上画1个组合框和1个命令按钮。
② 按F4键,激活属性窗门,在属性窗口中设置组合框和命令按钮的属性,见表3。
控件 | 属性 | 设置值 |
组合框 | 名称 Style | Cb1 1 - Simple |
命令按钮 | 名称 Caption | Combo C1 |
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所示。
对象 | 对象名 | 属性名 | 属性值 |
窗体 | Form1 | Caption | 求和 |
列表框 | L1 | List(O) | 123 |
List(1) | 456 | ||
List(2) | 789 |
③ 编程代码:
Private Sub L1_DblClick()
For i=0 To L1. ListIndex
s=s+Val(L1.list(i))
Next i
L1.AddItem s
End Sub