(1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个名称为Textl的文本框;一个名称为Ll的列表框:一个命令按钮,名称为c1,标题为“添加”(如图1-178所示)。程序的功能是,在运行时,如果在文本框中输入一行内容并单击“添加”按钮,则把文

admin2010-09-02  19

问题 (1)在考生文件夹下有一个工程文件sjt3.vbp,其窗体上有一个名称为Textl的文本框;一个名称为Ll的列表框:一个命令按钮,名称为c1,标题为“添加”(如图1-178所示)。程序的功能是,在运行时,如果在文本框中输入一行内容并单击“添加”按钮,则把文本框中的内容作为列表项添加到列表中。如果单击列表中的某一项,则立即从列表中删除该项。要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序中的其他部分,也不能修改控件的属性。最后把修改后的文件以原来的文件名存盘。

(2)在考生文件夹下有一个工程文件sjt4.vbp,请在窗体上画一个文本框,名称为Textl;画一个命令按钮,名称为C1,标题为“确定”;再画三个单选按钮,名称分别为Opl、13102、Op3,标题分别为“飞机”、“火车”、“汽车”(如图1-179所示)。请编写适当的事件过程,使得在运行时,选中一个单选按钮并单击“确定”按钮后,按照表1-5在文本框中显示相应内容。注意:不得修改已经给出的程序。退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前,必须选中一个单选按钮,并单击“确定”按钮。否则无成绩。

选项

答案 第1小题 【操作步骤】 步骤1:打开考生文件下的本题工程文件sjt3.vbp,在代码编辑窗口,去掉程序中的注释符“’”,将问号“?”改为正确的内容。 参考代码: PriVate Sub C1_Click() L1.Addltem Textl.Text End Sub PriVate Sub L1_Click() L1.RemoveItem L1.ListIndex End Sub 步骤2:按要求将文件保存至考生文件夹中。 第2小题 【操作步骤】 步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在名为Forml的窗体上画一个文本框、一个命令按钮和三个单选按钮,并设置它们的相关属性,其属性及值如表2-101所示。 [*] 步骤2:双击“确定”命令按钮,打开代码编辑窗口,编写命令按钮的单击事件过程。 参考代码: PriVate Sub Cl_Click() If Opl.Value Then Textl.Text="需要1小时" ElseIf Op2.Value Then Text1.Text="需要10小时" ElseIf Op3.Value Then Textl.Text="需要15小时" End If End Sub 步骤3:按键键运行程序,选择不同选项,单击“确定”按钮,然后单击窗体右上角的关闭按钮退出程序。 步骤4:按要求将文件保存至考生文件夹中。

解析  第1小题
    列表框控件(ListBox)用于显示可供单一或多个选择的列表项,给列表框添加列表项既可以在设计阶段通过其List属性设置加入,也可在程序运行时使用AddItem方法加入。在程序运行时删除列表框中的项目可以使用Removeltem方法,其语法为:列表框.Removeltem索引值。其中,“索引值”可以指定插入项在列表框中的位置,从0开始计数。
    单击命令按钮的时候将文本框中的内容添加到列表框中,可以使用列表框的Addltem方法;单击列表框中的某个项目,将触发其Click事件。要实现单击列表框中的某一项,该项就从列表中消失的功能,只需在Click事件过程中编写删除项目的语句即可。列表框的ListIndex属性可返回当前选择的项目的索引号,因此删除选中项目的语句为:L1.RemoveItem L1.Listlndex。
  第2小题
  本题要求实现当选中不同选项时,单击命令按钮,即在文本框显示出不同信息的功能。可以在按钮的Click事件过程中,使用If语句逐个判断单选按钮当前是否被选中,若选中则在文本框中显示相应内容。
转载请注明原文地址:https://kaotiyun.com/show/8Ump777K
0

最新回复(0)