当在一个简单组合框的文本框中输入一个它的列表框中的没有的条目时，组合框会自动反这一条目添加到它的列表框中。

此题为判断题(对，错)。

组合框是组合了文本框和列表框的特性而组成的一种控件。__________风格的组合框不允许用户输入列表框中没有的项。

组合框是组合了文本框和列表框的特性而组成的一种控件。__________风格的组合框不允许用户输入列表框中没有的项。

此题为判断题(对，错)。

在考生文件夹下有一个工程文件sjt4．vbp。请在窗体上添加一个组合框，名称为cbl，并输入三个列表项：“3”、“7”、“11”（列表项的顺序不限，但必须是这三个数字）；添加一个名为Textl的文本框；再添加一个标题为“计算”、名称为cl的命令按钮，如图所示。请编写适当的事件过程，使得在程序运行时，在组合框中选定一个数字后，单击“计算”按钮，则计算5000以内能够被该数整除的所有数之和，并放入Textl中。最后，按原文件名存盘。

提示：由于计算结果较大，应使用长整型变量。

注意：考生不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序，否则无成绩。

根据需要从下拉列表中选择或在文本框中输入某一项目，一般使用( )。

A．单选按钮控件

B．复选框控件

C．命令按钮控件

D．组合框控件

根据需要从下拉列表中选择或在文本框中输入某一项目，一般使用( )。

A．单选按钮控件

B．复选框控件

C．命令按钮控件

D．组合框控件

在考生文件夹中有一个工程文件execise12.vbp。请在名为Form1的窗体上绘制一个组合框，名为Coml，并输入3个列表项：“5”、“9”、“13” (列表项的顺序不限，但必须是这3个数字)；绘制一个名为Text1的文本框：再绘制一个标题为“计算”、名称为Cmd1的命令按钮。如下图所示。

请编写适当的事件过程，使得程序运行时，在组合框中选定一个数字后，单击“计算”按钮，则计算5000以内能够被该数整除的所有数之和，并放入Text1中。最后，按原文件名存盘(提示：由于计算结果较大，应使用长整型变量)。

注意：

不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。必须用窗体右上角的关闭按钮结束程序，否则无成绩。

在名为Form1的窗体上绘制一个名称为Lab1、标题为“AddItem:”的标签；绘制一个名称为Text1的文本框，没有初始内容；绘制一个名称为Com1的下拉式组合框，并通过属性窗口输入若干项目(不少于3个，内容任意)：再绘制两个命令按钮，名称分别为Cmd1和Cmd2，标题分别为Add和Display。在运行时，向Text1中输入字符，单击Add按钮后，则Text1中的内容作为一个列表项被添加到组合框的列表中：单击Display按钮，则在窗体上显示组合框中列表项的个数，如下图所示。请编写两个命令按钮的Click事件过程。

注意：

程序中不得使用变量，也不能使用循环；文件必须存放在考生文件夹中，工程文件名为execise13.vbp，窗体文件名为execise13.frm。

阅读以下应用说明及Visual Basic程序代码，将应填入(n)处的字句写在对应栏内。

【应用说明】

某应用程序可选择打开用户指定的文本文件，将其内容显示在指定的文本框内供用户编辑，并将编辑后的结果保存在用户指定的文件中。运行时的窗口如图6-1所示，其中有6个标签、一个驱动器列表框、一个目录列表框、一个文件列表框、一个文件类型组合框、一个文件编辑文本框、一个文件名文本框以及两个命令按钮。

该程序的开发要求如下。

(1)通过驱动器列表框(Drivel)、目录列表框(Dirl)和文件列表框(Filel)，选择文件。

(2)文件类型组合框(Cmb_type)设置为下拉式列表框，其中有三个供选项，分别为“所有文件(*．*)”、“文本文件(*.txt)”和“可执行文件(*．exe)”。在文件列表框中列出的文件类型会自动与文件类型组合框中选择的文件类型相匹配。

(3)在文件列表框中单击一个文件名时，该文件名会显示在文件名文本框 (Txt filename)中。

(4)在文件列表框中双击一个文件名时，若是文本文件，则在文件编辑文本框 (Txt file)中显示该文件的内容并可进行编辑；若不是文本文件，则弹出一个对话框，提示“请选择文本文件!”。

(5)对于编辑后的文本文件，可在文件名文本框中输入新的文件名，并单击命令按钮(Cmd save)进行保存。

【Visual Basic程序代码】

Private Sub Form_Load()

Cmb_type．Addltem "所有文件(*.*)"

Cmb_type．Addltem "文本文件(*.txt)"

Cmb_type．Addltem "可执行文件(*.exe)"

Cmb_type．ListIndex＝0

Filel.Pattern＝"*．*"： Txt_filename.Text＝" "

Txt_file.Text＝ " "

End Sub

Private Sub Dirl Change()

Filel．Path＝(1)

End Sub

Private Sub Drivel Change()

Dirl．Path＝Drivel．Drive

End Sub

Private Sub Cmb_type_click()

Select Case Cmb_type.(2)

Case 0

Filel．Pattern＝"*.*"

Case 1

Filel.Pattern＝"*.txt"

Case 2

Filel.Pattern＝"*.exe"

End Select

End Sub

Private Sub Cmd_save_Click()

usrFile＝GetFileName() '函数GetFileName获得要保存的文件名

Open usrFile For Output As 1 '定义usrFile为1号输出文件

Print 1，Txt file．Text '输出到1号文件

Close 1

End Sub

Private Sub Filel_DblClick()

If right(Filel.FileName，3)＜＞(3)Then

MsgBox "请选择文本文件!"

Exit Sub

End If

usrFile＝GetFileName() '函数GetFileName获得要打开的文件名

Open usrFile For Input As 1 '定义usrFile为1号输入文件

Txt_file．Text＝" "

DO While (4) EOF(1)

Line Input l，fContext '从1号文件读入一行

Txt_file．Text；Txt file．Text +(5)+vbCrLf

Loop

Close 1

End Sub

'其他代码略