(1)在考生文件夹下有工程文件sj3．vbp及窗体文件sj3．frm，该程序是不完整的。在窗体上建立一个列表框、一个组合框和两个命令按钮。程序运行后，在列表框中选择所需要的项目，单击“导出”按钮，把所选择的项目移到组合框中。如果单击“导人”按钮，则把组合框中所选择的项目移到列表框中。程序运行时的窗体界面如图50—3所示。 注意：请在有“?”号的地方填入正确内容，然后删除“?”及代码前的所有注释符(即“'”号)，但不能修改其他部分。存盘时不得改变文件名和文件夹。 (2)在考生文件夹下有工程文件sj4．vbp及窗体文件sj4．frm，该程序是不完整的。本题在窗体Forml中有一个文本框，名称为Textl；另有一个命令按钮，名称为Commandl，标题为“判断”。要求该应用程序具有数据过滤功能，即检查用户在文本框中输入的数值是否在能被3整除。如果是，则退出程序；否则在文本框巾显示“不能被3整除”，同时使焦点重新回到文本框中。程序运行时的窗体界面如图50—4所示。
【正确答案】正确答案：(1)列表框控件用于显示可供单一或多个选择的列表项。给列表框添加列表项既可以在设计阶段通过其List属性设置加入(注意每输入完一项后按“Ctrl+Enter”组合键换行再输人下一项)，也可在程序运行时通过代码“列表框名．AddItem“巧目”加入”；MultiSelect用于设置是否可在列表项中做多个选择，值为0(缺省设置)表示不允许做多项选择，值为1表示允许做简单多项选择，值为2表示允许按住“Shift+Ctrl”键做多项选择；Selected(Index)属性用于设置或返回指定索引号的列表项选择状态(索引号从0开始)，值为True表示被选中，值为False表示未被选中；List(Index)属性用于设置或返回指定索弓1号的列表项的内容；ListCount属性用来返回列表框中当前的列表项条数；RemoveItem方法用于删除指定索引号的列表项。 根据题意，将一个列表框控件、一个组合框ComboBox控件和两个命令按钮添加到窗体中，列表框的名称为Listl、Sorted属性为True，ComboBox的名称为Comb01，命令按钮的名称分别为Commandl和Command2，Caption属性分别为“号出”和“导入”。双击Commandl进入代码窗口，补充后的代码如下： Private Sub Commandl_Click() If Listl．
Listlndex
>-1 Then，'如果Listl有选中项 Comb01．AddItem Listl．List(Listl．ListIndex) '将Listl中的选中项添加到Combol中 Listl．
RemoveItem
(Listl．Listlndex) '将选中项从Listl中删除 End If End Sub Private Sub Command2_Click() If Comb01．
ListIndex
>-1 Then，'如果Combol有选中项则执行 Listl．Addhem Combo1．List(Comb01．Listlndex) '将Comb01的选中项添加到List中 Comb01．
RemoveItem
Comb01．ListIndex'将选中项从Combol中删除 End If End Sub 单击
按钮运行程序，并按要求保存。 (2)本题主要考查考生对SetFocus方法和LostFocus事件的掌握。 当按键盘上“Tab”键或单击其他对象时，当前对象将失去焦点并触发LostFocus事件；SetFocus方法用于将焦点移到擗定的对象上。 题目要求文本框应具有数据过滤功能，即当在文本框中输入数据时，会自动完成对输入数据的检查，故要用SetFocus方法使文本框获取焦点。 根据题意，将一个命令按钮和一个文本框控件添加到窗体中，命令按钮的名称为Commandl、Caption属性为“判断”，文本框的名称为Textl、Text属性为空。双击Commandl，进入代码窗口，编写如下代码： Private Sub Commandl_Click() Dim a As Integer a=
Val(Textl．Text)
'读取Textl中读取的数 If a
Mod 3=0
Then Unload Me'当能被3整除时，关闭窗口 Else Textl．
Text
="不能被3整除" '当不能被3整除时，在Textl中显示 Textl．SetFocus End If End Sub 单击
按钮运行程序，并按要求保存。 (2)本题主要考查考生对SetFocus方法和LostFocus事件的掌握。 当按键盘上“Tab”键或单击其他对象时，当前对象将失去焦点并触发LostFocus事件；SetFocus方法用于将焦点移到擗定的对象上。 题目要求文本框应具有数据过滤功能，即当在文本框中输入数据时，会自动完成对输入数据的检查，故要用SetFocus方法使文本框获取焦点。 根据题意，将一个命令按钮和一个文本框控件添加到窗体中，命令按钮的名称为Commandl、Caption属性为“判断”，文本框的名称为Textl、Text属性为空。双击Commandl，进入代码窗口，编写如下代码： Private Sub Commandl_Click() Dim a As Integer a=
Val(Textl．Text)
'读取Textl中读取的数 If a
Mod 3=0
Then Unload Me'当能被3整除时，关闭窗口 Else Textl．
Text
="不能被3整除" '当不能被3整除时，在Textl中显示 Textl．SetFocus End If End Sub 单击
【答案解析】