(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 单击
按钮运行程序，并按要求保存。 (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 单击
【答案解析】