发布时间 : 星期六 文章鍏ㄥ浗璁＄畻鏈轰簩绾B鐭ヨ瘑鐐圭涓�娆¤ - 鐧惧害鏂囧簱更新完毕开始阅读
难点：窗体的外观----ControlBox属性设置为False
TextBox(Alignment、MaxLength、PasswordChar、Multiline、ScrollBars注：Multiline=True) 真题14在窗体上画一个文本框（名称为Text1）和一个标签（名称为Label1），程序运行后， 如果在文本框中输入文本，则标签立即显示相同的内容。以下可以实现上述操作的事件过程是 A）Private Sub Text1_Change() Label1.Caption=Text1.Text End Sub
C）Private Sub Text1_Click() Label1.Caption=Text1.Text End Sub
上机典型题型： B）Private Sub Label1_Change() Label1.Caption=Text1.Text End Sub
D）Private Sub Label1_Click() Label1.Caption=Text1.Text End Sub
OptionButton、CheckBox(共同属性为Value 前者取值为true/false 后者取值为0/1/2、 Enabled)
真题15单选按钮（OptionButton）用于一组互斥的选项中。若一个应用程序包含多组互斥条件， 可在不同
的（ ）中安排适当的单选按钮，即可实现。
A. 框架控件（Frame）或图像控件（Image） B. 组合框（ComboBox）或图像控件（Image） C. 组合框（ComboBox）或图片框（PictureBox） D. 框架控件（Frame）或图片框（PictureBox）
容器类控件，注意先画容器，再到工具箱中单击单选按钮，拖拽鼠标画出。 上机典型题型： 注意：当某一题目需要画多个相同类型的控件时，若没有提到控件数组，尽量一个一个画。
ListBox(属性：List\\ListCount\\ListIndex\\Selected、方法：AddItem、RemoveItem、Clear) 真题16设窗体上有一个名为List1的列表框，并编写下面的事件过程： Private Sub List1_Click()
Dim ch As String定义字符串变量ch
ch = List1.List(List1.ListIndex)listIndex属性为当前选中列表项的序号从0开始 List1.RemoveItem List1.ListIndex 删除序号对应的列表项
List1.AddItem ch 向列表中添加ch,尾部操作 End Sub X 序号为0 Y 序号为1 Z 序号为2
程序运行时，单击一个列表项，则产生的结果是（） A）该列表项被移到列表的最前面 Ｂ）该列表项被删除 Ｃ）该列表项被移到列表的最后面 Ｄ）该列表项被删除后又在原位置插入 ComboBox（与Listbox属性、方法类似、二者的Style属性区别）
【Form1】.Print对象名.属性名
真题17窗体上有一个名称为Cb1的组合框，程序运行后，为了输出选中的列表项，应使用 的语句是（）
A)Print Cb1.Selected B)Print Cb1.List(Cb1.ListIndex) C)Print Cb1.Selected.Text D)Print Cb1.List(ListIndex) 举例：注意组合框没有Selected属性
Private Sub Command1_Click() 单击按钮列表框中第一项处于选中状态 List1.Selected(0) = True 括号中跟序号 End Sub
Print List1.Selected(List1.ListIndex)无论选中哪一项结果都为true 真题18下列叙述错误的是 （ ） A)列表框与组合框都有List属性
B)列表框有Selected属性，而组合框没有
C)列表框和组合框都有Style属性 D)组合框有Text属性，而列表框没有
真题19以下程序运行后的窗体如图所示，其中组合框的名称为Combo1，已有列表项如图所示： 命令按钮的名称为Command1。 Private Sub Command1_Click()
Private Function Check(ch As String) As If Not Check(Combo1.Text) Then
Boolean MsgBox (\输入错误\
n = Len(ch) Exit Sub
For k = 1 To n End If
C$ = UCase(Mid(ch, k, 1)) For k = 0 To Combo1.ListCount - 1
If a > \If Combo1.Text = Combo1.List(k) Then
Check = False MsgBox (\添加项目失败\
Exit Function Exit Sub
End If End If
Check = True Next k
Next k Combo1.AddItem Combo1.Text
End Function MsgBox (\添加项目成功\End Sub
程序运行时，如果在组合框的编辑区中输入“Java”，则单击命令按钮后产生的结果是（）
（此时Combo1.Text的值为Java）
A) 显示“输入错误”B)显示“添加项目失败”C)显示“添加项目成功”Ｄ）没有任何显示