(1)在考生文件夹下有一个工程文件sj3.vbp,相应的窗体文件名为sj3.frm,请装入该文件,在窗体上画一个命令按钮,名称为Commandl,标题为“添加项目”,再画一个列表框和一个文本框,名称分别为Listl和Textl。 编写适当的事件过程

admin2010-07-13  27

问题 (1)在考生文件夹下有一个工程文件sj3.vbp,相应的窗体文件名为sj3.frm,请装入该文件,在窗体上画一个命令按钮,名称为Commandl,标题为“添加项目”,再画一个列表框和一个文本框,名称分别为Listl和Textl。
    编写适当的事件过程,要求程序运行后,如果从键盘上输入某项,再单击“添加项目”命令按钮,则将该添加到列表框中(内容任意,不少于3个),如图16—4所示;如果单击列表框中的某一项则将其从列表框中删除,如图16—5所示。提供的窗体文件可以实现上述功能,但这个程序不完整,请把它补充完整。

    注意:去掉程序中的注释符“’”,把程序中的“?”改为适当的内容,使其正确运行,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。
    (2)在考生文件夹下有一个工程文件sj4.vbp,相应的窗体文件名为sj4.frm。程序运行后,在5个文本框中各输入一个整数,然后单击命令按钮,即可求出数组的最小值,并在窗体上显示出来,如图16—6所示。这个程序不完整,请把它补充完整,并能正确运行。

    注意:去掉程序中的注释符“’”,把程序中的“?”改为正确的内容.使其实现上述功能,但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

选项

答案(1)根据题意,在名称为Forml的窗体上画一个名为Listl的列表框控件,一个名为Textl的文本框控件,再画一个名称为Commandl的命令按钮,其Caption属性为“添加项目”。双击Commandl进入代码编写窗I:1,具体代码如下: Private Sub Commandl_Click() ’单击Command调用的函数 Listl.Addhem Textl.Text’向List里面添加项 End Sub Private Sub Listl_Click() ’单击List调用的函数 Listl.RemoveItem(Listl.ListIndex) ’删除单击的项 End Sub 单击[*]按钮运行程序,并按要求保存。 (2)根据题意,在名称为Forml的窗体内画5个文本框控件,名称分别为Textl、Text2、Text3、Text4和Text5,Caption属性全为空,一个命令按钮,名称为Commandl,Caption属性为“输出最小值”。双击Commandl进人代码窗口,编写如下代码: Private Sub Commandl_Click() Dim temp As Integer temp=Val(Textl.Text) If(Val(Text2.Text)<temp)Then temp=Val(Text2.Text) End If If(Val(Text3.Text)Text4.Text)Cls’清空显示 Print“最小值为”,temp’显示结果 End Sub 单击[*]按钮运行程序,并按要求保存。

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

最新回复(0)