当前位置:IT认证>BASIC题库

问题:[问答题]

[问答题] 在考生文件夹下完成如下简单应用: 1.有一个工程文件ylc.vbp(相应的窗体文件名为ylc5.frm),在窗体上画一个名为List1的列表框和一个名为Text1的文本框。编写窗体的MouseDown事件。程序运行后,如果用鼠标左键单击窗体,则从键盘上输入要添加到列表框的项目;如果用鼠标右键单击窗体,则从键盘上输入要删除的项目,将其从列表中删除。程序的运行情况如图23所示。 注意:存盘时必须存放在考生文件夹下,工程文件名为ylc5.vbp,窗体文件名为ylc5.frm。

  

参考答案:

操作步骤
(1)在VisualBasic集成环境选择“文件”→“打开工程”命令,在对话框中选择ylc5.vbp工程文件,单击“确定”按钮打开。
(2)在工具箱中选择ListBox控件,在窗体上创建该控件,命名为List1。在工具箱中选择TextBox控件,在窗体中创建并命名为Text1,标题为空。
2.行为编码
在代码窗口选择Form对象的MouseDown事件,其行为代码如下:
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,_
XAsSingle,YAsSingle)
SelectCaseButton
’若按下的是鼠标左键
Case1
’将文本框中的内容加入列表框
List1.Addltem,(Text1.Text)
’清空文本框
Text1.Text=""
’若按下的是鼠标右键
Case2
’删除列表框中与文本框相同的内容
Fori=0ToList1.ListCount-1
IfList1.List(i)=Text1.TextThen
List1.Removeltem(i)
ExitFor
EndIf
Nexti
EndSelect
EndSub
3.存盘保存
执行“文件”→“保存工程”命令,工程文件名为ylc5.vbp,窗体文件名为ylc5.frm。

  参考解析

(1)本题考查考生对ListBox控件的属性控制和操作,特别对鼠标按键的控制进行了仔细的考查。(2)注意使用ListBox控件的AddItem、RemoveItem方法、鼠标消息的控制。(3)本题是根据键码的值,使用Select语句来判断按下的是鼠标左键或右键。

微信端