窗体上有list1、list2两个列表框，程序运行时，在两个列表框中分别选中1个项目，如图a所示，单击名称为Command1的“交换”按钮，则把选中的项目互换，互换后的位置不限。如图b所示。下面的程序可实现这一功能，请填空。
Private Sub Command1_Click()
If list1.text=””or list2.text””then
Msgbox”请选择交换的物品！”
Else
List1.additem list2.text
List2.removeitem【11】
【12】
List1.removeitem list1.listindex
End If
End Sub
第1题：
窗体上有一个命令按钮Command1和一个列表框List1。先选择列表框中的某一个项目，然后单击命令按钮，将该项目从列表框删除。程序如下：
Private Sub Command1_Click()
Dim In As Integer
In=______
List.Remove Ind
End Sub
则在程序的空白行的语句是( )。
A．List1.Index
B．List1.ListIndex
C．List1.Text
D．List1.ListCount
第2题：
在窗体上有两个文本框控件和一个命令按钮，名称分别为Text1、Text2和Command1，以下程序实现的功能是当单击Command1按钮时，将把Text2控件中的文本全部选中，并把焦点设置在该文本框中。程序运行时的界面如图20-4所示，以下两空应填( )。
Private Sub Command1_Click() TextSelStart=0 Text________=Len(TextText) Text_______ End Sub
A．SelLength SetFocus
B．SelText SetFocus
C．SelLength GetFocus
D．SelText GetFocus
第3题：
在窗体上有一个名称为Label1的标签和一个名称List1的列表框。程序运行后，在列表框中添加若干列表项。当双击列表框中的某个项目时，在标签Labe1中显示所选中的项目，如图所示。请在空白处填入适当的内容，将程序补充完整。
Private Sub Form_Load（）
List1.AddItem "北京"
List1.AddItem "上海"
List1.AddItem "河北"
End Sub
Private Sub List1 【9】 （）
Labe1.Caption= 【10】
End Sub
第4题：
窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮，要求程序运行时，单击命令按钮(如图1所示)，就可以把文本框中的内容写到文件Out．txt中，每次写 入的内容附加到文件原有内容之后。以下能正确实现上述功能的程序是（ ）。
第5题：
设计不能最大化和最小化的表单(如图5-10所示)：有2个列表List1和List2，List1的项目初始为A、B、C、D、E、P。当单击“＞”按钮，或在List1中双击项目时，将List1中当前选定的项目添加到List2中；当单击“＜”按钮，或在List2中双击项目时，将List2中当前选定的项目移回到Listl中。List1的项数为0时，则禁用“＞”按钮，否则启用该按钮；List2的项数为0时，则禁用“＜”按钮，否则启用该按钮。
④打开“代码编辑”窗口添加List1的DblClick事件代码如图5-11所示。
⑤添加List2的DblClick事件代码如图5-12所示。
⑥添加“＞”按钮的Click事件代码如图5-13所示。
⑦添加“”按钮的Click事件代码如图5-14所示。
④打开“代码编辑”窗口，添加List1的DblClick事件代码，如图5-11所示。
⑤添加List2的DblClick事件代码，如图5-12所示。
⑥添加“＞”按钮的Click事件代码，如图5-13所示。
⑦添加“”按钮的Click事件代码，如图5-14所示。
第6题：
在名称为Form1的窗体上画一个名称为Text1的文本框，通过属性窗口设置文本框属性，在文本框中显示“AAAA”(如图2—1所示)；再建立一个名称为Cmd1，标题为“清除”的命令按钮，编写适当的事件过程。要求程序运行后，如果单击“清除”命令按钮，则清除文本框中所显示的信息。
注意：保存时必须存放在考生文件夹下，窗体文件名为sjt3.frm，工程文件名为sit3.vbp。
2．在考生文件夹中有工程文件sit4.vbp，它包含一个窗体文件form1。在窗体上有一个列表框，名称为List1，一个文本框，名称为Text1，和一个命令按钮，名称为Command1，标题为“复制”。要求程序运行后，在列表框中自动建立四个列表项，分别为“项目1”、“项目2”、“项目3”、“项目4”。如果选择列表框中的一项，则单击“复制”按钮时，可以把该项复制到文本框中(程序运行结果如图2—2)。
要求：编写程序，以实现试题要求的功能。
注意：存盘时必须放在考生文件夹下，工程文件名为sjt4.vbp，窗体文件名为sjt4.frm。
② 分析：按试题要求在窗体上画一个文本框和一个命令按钮并分别将它们的属性按表 3的内容进行设置。通过将一个空字符串 (即"")赋值给文本框的Text属性即可清除 Text文本框的内容。
③ 编程代码：
Private Sub Cmd1_C1ick()
Text1. Text＝""
End sub
2．① 窗体Load事件过程的程序如下：
Private Sub Form_Load()
List1.AddItem"项目1"
List1.AddItem"项目2"
List1.AddItem"项目3"
List1.Addltem"项目4"
End Sub
② 命令按钮Click事件的程序如下：
Private Sub Command1_Cllek()
For i＝0 To List1.ListCount—1
If List1. Selected(i)＝True
Then
Text1. Text＝List1. List
(i)
End If
Next i
End Sub
② 分析：按试题要求在窗体上画一个文本框和一个命令按钮，并分别将它们的属性按表 3的内容进行设置。通过将一个空字符串 (即"")赋值给文本框的Text属性即可清除 Text文本框的内容。
③ 编程代码：
Private Sub Cmd1_C1ick()
Text1. Text＝""
End sub
2．① 窗体Load事件过程的程序如下：
Private Sub Form_Load()
List1.AddItem"项目1"
List1.AddItem"项目2"
List1.AddItem"项目3"
List1.Addltem"项目4"
End Sub
② 命令按钮Click事件的程序如下：
Private Sub Command1_Cllek()
For i＝0 To List1.ListCount—1
If List1. Selected(i)＝True
Then
Text1. Text＝List1. List
(i)
End If
Next i
End Sub
第7题：
注意：下面出现的“考生文件夹”均为C：\wexam\25160002。
(1) 在名称为Form1的窗体上画一个名称为Label1，标题为“添加项目：”的标签；画一个名称为 Text1的文本框，没有初始内容；画一个名称为Combo1的下拉式组合框，并通过属性窗口输入若干项目 (不少于3个，内容任意)；再画两个命令按钮，名称分别为Command1和Command2，标题分别为“添加”和“统计”。在运行时，向Text1中输入字符，单击“添加”按钮后，则Text1中的内容作为一个列表项被添加到组合框的列表中；单击“统计”按钮，则在窗体上显示组合框中列表项的个数，如图23-3所示。请编写两个命令按钮的Click事件过程。
注意：程序中不得使用变量，也不能使用循环。存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名为sjt3.frm。
(2) 在考生文件夹下有一个工程文件sjt4.vbp，其窗体如图23-4所示。该程序用来对在上面文本框中输入的英文字母串(称为“明文”)加密，加密结果(称为“密文”)显示在下面的文本框中。加密的方法是：选中一个单选按钮，单击“加密”按钮后，根据选中的单选按钮后面的数字n，把明文中的每个字母改为它后面的第n个字母(“z”后面的字母认为是“a”，“Z”后面的字母认为是“A”)，如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。
注意：不能修改程序中的其他部分和控件的属性。最后把修改后的文件按原文件名存盘。
第二步：编写程序代码。
参考代码：
Option Explicit
Private Sub Command1_Click()
Combo1.Addltem Text1
End Sub
Private Sub Command2_Click()
Me.Print Combo1.ListCount
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)首先要确定移动的位数移动的位数是通过单选框来选择的移动的值是由单选框的Caption属性确定的然后要确定循环的次数循环的次数是由输入字母的个数确定的。对字符串需要对字符进行逐个处理。使用Mid函数取出字符串中的字符利用Ase函数返回字符的代码利用String函数将字符代码转换成字符。
Mid函数的格式为：
Mid(字符串pn)
Mid函数从第p个字符开始向后截取n个字符p和n都是算术表达式。Mid函数的第三个变量可以省略这样将第 p个字符开始先后截取到字符串的结尾。
解题步骤：
第一步：分析题目提供的代码。
Private Sub Command1_Click()
Dim n As Integer k As Integer m As Integer
Dim c As String a As String
For k=0 To 2
If Op1(k) .Value Then
'n=Val (Op1 (k) . ? )
End If
Next k
m=Len(Text1.Text)
a=""
'For k=1 To ?
'c=Mid$(Text1.Text ? 1)
c=String(1 Asc(c) + n)
If c＞"z" Or c＞"Z" And c"a" Then
'c=String(1 ?)
End If
a=a+c
Next k
Text2.Text=a
End Sub
第二步：修改程序代码。
参考代码：
Private Sub Command1_Click()
Dim n As Integer k As Integer m As Integer
Dim c As String a As String
For k=0 To 2
If Op1(k) .Value Then
n=Val(Op1(k) .Caption)
End If
Next k
m=Len(Text1.Text)
a=""
For k=1 To m
c=Mid$(Text1.Text k 1)
c=String(1 Asc(c) + n)
If c＞"z" Or c＞"Z" And c"a" Then
c=String(i Asc(c)-26)
End If
a=a+c
Next k
Text2.Text=a
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
第二步：编写程序代码。
参考代码：
Option Explicit
Private Sub Command1_Click()
Combo1.Addltem Text1
End Sub
Private Sub Command2_Click()
Me.Print Combo1.ListCount
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
(2)首先要确定移动的位数，移动的位数是通过单选框来选择的，移动的值是由单选框的Caption属性确定的，然后要确定循环的次数，循环的次数是由输入字母的个数确定的。对字符串，需要对字符进行逐个处理。使用Mid函数取出字符串中的字符，利用Ase函数返回字符的代码，利用String函数将字符代码转换成字符。
Mid函数的格式为：
Mid(字符串，p，n)
Mid函数从第p个字符开始，向后截取n个字符，p和n都是算术表达式。Mid函数的第三个变量可以省略，这样将第 p个字符开始先后截取到字符串的结尾。
解题步骤：
第一步：分析题目提供的代码。
Private Sub Command1_Click()
Dim n As Integer, k As Integer, m As Integer
Dim c As String, a As String
For k=0 To 2
If Op1(k) .Value Then
'n=Val (Op1 (k) . ? )
End If
Next k
m=Len(Text1.Text)
a=""
'For k=1 To ?
'c=Mid$(Text1.Text, ?, 1)
c=String(1, Asc(c) + n)
If c＞"z" Or c＞"Z" And c"a" Then
'c=String(1, ?)
End If
a=a+c
Next k
Text2.Text=a
End Sub
第二步：修改程序代码。
参考代码：
Private Sub Command1_Click()
Dim n As Integer, k As Integer, m As Integer
Dim c As String, a As String
For k=0 To 2
If Op1(k) .Value Then
n=Val(Op1(k) .Caption)
End If
Next k
m=Len(Text1.Text)
a=""
For k=1 To m
c=Mid$(Text1.Text, k, 1)
c=String(1, Asc(c) + n)
If c＞"z" Or c＞"Z" And c"a" Then
c=String(i, Asc(c)-26)
End If
a=a+c
Next k
Text2.Text=a
End Sub
第三步：调试并运行程序。
第四步：按题目要求存盘。
第8题：
窗体卜有Listl、List2两个列表框，Listl中有若干列表项(见图)，并有下面的程序：
Private sub Commandl_Click()
For k：Listl．ListCount_l To 0 step-1
Tf Listl．Selected(k)Then
List 2．AddItern Listl．List(k)
Listl．Removehem k
End If
Next k
End Sub
程序运行时，按照图示在List1中选中2个列表项，然后单击Command1命令按钮，则产生的结果是
A．在List2中插入了“外语”、“物理”两项
B．在Listl中删除了“外语”、“物理”两项
C．同时产生A)和B)的结果
D．把Listl中最后1个列表项删除并插入到List2中
第9题：
窗体上有一个名称为List1的列表框，一个名称为Text1的文本框，一个名称为Labe11、 Caption属性为"Sum"的标签，一个名称为Command1、标题为“计算”的命令按钮。程序运行后，将把1～100之间能够被7整除的数添加到列表框中。如果单击“计算”按钮，则对List1中的数进行累加求和，并在文本框中显示计算结果，如下图所示。以下是实现上述功能的程序，请填空。
Pfivate Sub Form_Load()
Fori=1 To 100
If iMod7=
第10题：
窗倒上有1个名为List1的列表框，其中已经输入了若干个项目(如图3所示)；还有2个文本框，名称分别为Text1、Text2，1个名称为Command1的命令按钮，并有以下程序：
程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是（ ）。
A. 京
B. 北京南京
C. 南京北京
D. 没有匹配的项目