(1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm。该程序的窗体是不完整的,要求设计好窗体,并编写相应的程序,完成题目的要求。窗体上已有3个命令按钮,名称分别为Commandl、Command2、Command3,标题分别为“修改”、“保

admin2009-03-26  37

问题     (1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm。该程序的窗体是不完整的,要求设计好窗体,并编写相应的程序,完成题目的要求。窗体上已有3个命令按钮,名称分别为Commandl、Command2、Command3,标题分别为“修改”、“保存”、“添加”;另有一文本框,名称为Text1。要求在窗体设计一组合框,名称为Combol,初始表项内容如下:“北京010”、“天津022”、“上海021”。
    运行程序时,Combol文本框中内容为“中国直辖市”。单击“添加”按钮,则可以把文本框中的内容添加到组合框中;当选中组合框的表项时,单击“修改”按钮,文本框中显示选中的表项,同时“保存”按钮变为可用。修改完毕,单击“保存”,被选中项发生相应的变化,同时“保存”按钮变为不可用,如图69—3所示。
注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sj3.vbp。
    (2)在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,该程序是不完整的。窗体上有一个标签,名称为Labell。Labell上为提示文字和返回值。在窗体上画一个命令按钮,命名为Commandl,标题为“判断”。程序运行后,如果单击命令按钮,.则显示一个输入框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程Funcl,在Funcl中判断所输入的整数是否为偶数。如果是偶数,过程Funcl返回1,否则返回O,并在标签上显示出来。程序运行时的窗体界面如图69—4所示。

    注意:请在有“?”的地方填入正确内容,然后删除“?”及代码前的所有注释符(即“’”号),但不能修改其他部分。存盘时不得改变文件名和文件夹。

选项

答案(1)根据题意,将一个ComboBox控件、一个文本框控件和三个命令按钮添加到窗体中,ComboBox的名称为Comb01,在其11,ist属性中添加“北京010”、“天津022”和“上海021”,文本框的名称为Textl、Text属性为空,命令按钮的名称分别为Commandl、Command2和Command3,Caption属性分别为“修改”、“保存”和“添加”。双击Commandl进入代码窗口,编写如下代码: Private Sub Commandl_Click() Textl.Text=Comb01.List(Comb01.ListIndex) ’将选中项显示在Textl中 Command2.Enabled=True’Command2可用 End Sub Private Sub Command2_Click() Dim a As Integer a=Combo1.Listlndex’记录Combol选中的索引值 Comb01.RemoveItem(Comb01.ListIndex) ’删除选中项 Comb01.Addhem(Textl.Text),a’将经过修改的项存人Comb01的原有位置 Comb01.Text=Comb01.List(a) ’将修改后的项显示在Comb01中 Command2.Enabled=False ’Command2不可用 End Sub Private Sub Command3_Click() Combo1.AddItem Textl.Text’向Comb01中添加项 E;nd Sub Private Sub Form_Load() Command2.Enabled=False’初始时Command2不可用 End Sub 单击[*]按钮运行程序,并按要求保存。 (2)根据题意,将一个标签和一个命令按钮添加到窗体中,标签的名称为Labell,命令按钮的名称为Commandl、Caption属性为“判断”。双击Commandl,进入代码窗口,编写如下代码: Private Sub Commandl_Click() Dim b As Integer b=Val(InputBox("请输入整数:")) ’通过对话框输入整数 Labell.Caption="返回值为"+CStr(Func(b)) ’将获得的返回值通过Label显示出来 End Sub Private Function Func(a As Integer)As Integer ’检测是否是偶数 If a Mod 2=0 Then Func=1’如果是偶数则返回1 Else Func=0’如果不是则返回0 End If End Function 单击[*]按钮运行程序,并按要求保存。

解析
转载请注明原文地址:https://jikaoti.com/ti/nLq0FFFM
0

最新回复(0)