属性用来返回列表框中当前的列表项项数。
【审题分析】程序设计思路：在\显示\按钮的单击事件过程中，使用For循环语句逐一判断列表框中的各项是否被选中，If语句的条件表达式为：lstItem.Selected(i) = True，用Print方法将选中的列表项显示在窗体上。为与列表框的项目索引号保持一致，循环变量的初始值应为0，终值应为lstItem.ListCount-1。为使列表框在运行时可以多选，应将其MultiSelect属性值设置为1-simple。
【操作步骤】
步骤1：打开考生文件中的本题工程文件vbsj4.vbp，将列表框的MultiSelect属性值设置为1-simple。
步骤2：在代码编辑窗口，去掉程序中的注释符\，将问号\？\改为正确的内容。
参考代码：
For i = 0 To lstItem.ListCount – 1 If lstItem.Selected(i) = True Then
步骤3：按要求将文件保存至考生文件夹中。 【主要考点】列表框控件。
三、综合操作题
【知识点播】①数组使用相同的名字引用一系列变量，并用数字索引来识别它们。数组有上界和下界，数组的元素在上下界内是连续的。Visual Basic对每一个索引值都分配空间，所以不要不切实际地声明一个太大的数组。在很多情况下，使用数组可以缩短和简化程序，因为可以利用索引值设计循环，高效处理多种情况。
②可以声明具有任何基本数据类型的数组，数组中的所有元素具有相同的数据类型，当数据类型为Variant时，各元素能够包含不同种类的数据（对象、字符串、数值等）。
③Visual Basic中有两种类型的数组：固定大小的数组及动态数组。固定大小的数组总是保持同样的大小，而动态数组在运行时可以改变大小。要使用动态数组可以先声明一个不指明大小的空数组（即没有维数下标），然后再用ReDim语句在过程中改变数组大小。
【审题分析】本题实际是要让考生编写\显示结果\按钮的单击事件过程。用For循环语句（循环变量的取值与单选按钮数组的下标一致，从0到Opt1.Count - 1）逐一检查单选按钮数组中的元素的选中状态，若某单选按钮的Value属性值为True，则该单选按钮被选中，用变量n记录下其对应的数值，即n=Val(Opt1(i).Caption)。
可以用一个下界为1的数组a来记录，由于数组a的大小在变，故先将其定义为动态数组，数据类型为长整型，在获知n值后，再重新定义为ReDim a(n) ，其中a(1)=1，a(2)=1。
根据题意，从数列的第3个数开始，每个数是其前两个数之和，数列第n项的值可表示为：a(n)=a(n-1)+a(n-2)。可以利用For循环语句（循环变量i的初值为3，终值为n），从数列的第3个数开始，逐一计算出该数列第3~n项的值，计算表达式为a(i)=a(i-1)+a(i-2)。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件vbsj5.vbp。 步骤2：在代码编辑窗口中的通用部分，输入如下代码：
Option Base 1
步骤3：编写\计算\按钮的单击事件过程。 参考代码：
Private Sub cmdCal _Click() Dim a() As Long Dim i As Integer Dim n As Integer
For i = 0 To optNum.Count-1
If optNum (i).Value = True Then n = Val(optNum (i).Caption) Exit For End If Next
ReDim a(n) a(1) = 1 a(2) = 1
For i = 3 To n —21—
a(i) = a(i - 1) + a(i - 2) Next
txtResult.Text = a(n) End Sub
步骤4：运行程序，选中一个单选按钮，并单击\计算\按钮获得一个结果，然后使用窗体右上角的\关闭\按钮结束程序。
步骤5：按要求将文件保存至考生文件夹中。 【考试误区】数组的重新定义。
【主要考点】单选按钮数组、For循环语句。
第八十三套上机答案解析106
一、基本操作题
第1小题
【知识点播】①控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有唯一的索引号（Index），即下标。要将一组相同类型的控件改为控件数组，只需将它们的名称改为同一个名称，再将其Index属性分别设置为不同值即可。
②添加控件数组的方法是：先通过工具箱建立第1个控件，然后对该控件进行\复制\、\粘贴\操作，粘贴时在弹出的对话框中选择建立控件数组，这时控件数组的Index值会自动从0开始编号。
【审题分析】本题只需按题目要求在窗体中画一个命令按钮控件数组即可。
【操作步骤】
步骤1：新建一个\标准EXE\工程，单击工具箱中的CommandButton控件图标，在窗体Form1上拉出一个命令按钮，在属性设置窗口中该单选按钮名称设置为cmdArray，Width属性值设置为900，Height属性值设置为400。
步骤2：选中cmdArray控件，选择【编辑】→【复制】命令，然后选择【编辑】→【粘贴】命令，在弹出的询问是否建立控件数组的对话框中，选择\是\按钮，则可以建立cmdArray控件数组的第2个元素。再次选择【编辑】→【粘贴】命令，建立cmdArray控件数组的第3个元素。
步骤3：依次选中cmdArray控件数组中各个元素，设置它们的相关属性，属性及其值如表1所示。
表1
步骤4：按要求将文件保存至考生文件夹中。
【考试误区】控件数组元素的索引号（下标）默认从0开始。
【主要考点】控件数组、单选按钮。 第2小题
【知识点播】驱动器列表框（Drive ListBox）用来显示当前系统中所有有效磁盘驱动器的列表；目录列表框（Dir List Box）用来分层显示指定磁盘驱动器上的目录列表；文件列表框（File List Box）用来显示指定目录中所选择文件类型的文件列表，默认为*.*。在程序运行时，驱动器列表框的Drive属性用来设置或返回选择的驱动器（缺省值是当前驱动器），目录列表框的Path属性用来设置或返回选择的目录（缺省值是当前路径），文件列表框的Path属性用来设置或返回其当前的目录（缺省值是当前路径），文件列表框的FileName属性可返回所选文件的文件名。
【审题分析】要在程序运行时，能对系统中的文件进行浏览，就要让驱动器列表框、目录列表框和文件列表框实现同步变化，关键是将驱动器列表框、目录列表框、文件列表框相互关联起来，这可通过编写驱动器列表框、目录列表框的Change事件过程，使三者的路径保持一致来实现。
【操作步骤】
步骤1：新建\标准EXE\工程，往窗体Form1中加入驱动器列表框、目录列表框控件、文件列表框控件各一个以
及两个标签，分别设置它们的相关属性，属性及其值如表2所示。
表2
步骤2：打开代码编辑窗口，输入如下代码：
参考代码：
Private Sub Drv1_Change() Dir1.Path = Drv1.Drive End Sub
Private Sub Dir1_Change() File1.Path = Dir1.Path End Sub
Private Sub File1_Click()
Label2.Caption=File1.FileName End Sub
步骤3：按要求将文件保存至考生文件夹中。 【考试误区】程序运行时当通过代码改变目录列表框的Path属性值时，也会触发其Change事件，因此在驱动器列表框的Change事件过程中没必要加入语句：File1.Path = Dir1.Path。
【主要考点】文件系统控件。
二、简单应用题
第1小题
【知识点播】Mid(字符串,起始位置[,个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串。
【审题分析】程序设计思路：从文本框的第1个字符开始依次检查其后面的每一个字符，若发现空格则将其之前或两个空格之间的字符串作为一个单词添加到列表框中。在Do循环（指内循环，循环条件为：取出的字符为非空格字符且取字符的起始位置没有超出文本框的总字符数，表达式为：Mid(S1, I1, 1) <> \，其中S1=txtSentense.Text，将Mid函数从文本框中取出的非空格字符，逐个连接成一个单词，语句为：S2 = S2 & Mid(S1, I1, 1)，每执行一次循环体取字符的起始位置加1，即I1 = I1 + 1。当遇到空格时结束循环，将得到的单词（即变量S2的值）用AddItem方法添加到列表框中，并且清空变量S2，将取字符的起始位置加1。
之后继续执行内循环以得到下一个单词，直到取字符的起始位置（即变量I1的值）超过文本框的总字符数为止，外循环的条件为：I1 <= Len(S1)。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件vbsj3.vbp。 步骤2：打开代码编辑窗口，去掉程序中的注释符\，将问号\？\改为正确的内容。 参考代码：
S1 = txtSentense.Text
Do While Mid(S1, I1, 1)<>\ lstWord.AddItem S2 S2 = \
步骤3：按要求将文件保存至考生文件夹中。
【特别提示】以空格作为分隔单词的依据是本题的关键，同时注意空格字符串和空字符串是完全不同的。 【主要考点】多重Do循环、字符串函数。
第2小题
【审题分析】根据题目要求，设计本题程序的思路：在optChange单选按钮的Click事件应实现：将Txt1和Txt2文本框中的内容互换，因此这里我们可以通过一个中间变量来交换两个文本框中的内容，然后将optChange的Enable属 —22—
性设置为False。在optLink单选按钮的Click事件应实现：将两个文本框中的内容连接进来，这里我们可以采用连接字符符号\来连接两个文本框的Text属性。
【操作步骤】
步骤1：新建一个\标准EXE\工程，按表3在窗体中画出控件并设置其相关属性。
表3
步骤2：在代码编辑窗口，编写3个按钮的单击事件过
程。
参考代码：
Private Sub optChange_Click() Dim temp As String temp = Txt1.Text Txt1.Text = Txt2.Text Txt2.Text = temp
optChange.Visible = False End Sub
Private Sub optLink_Click()
txtResult.Text=Txt1.Text & Txt2.Text End Sub
步骤3：按要求将文件保存至考生文件夹中。 【主要考点】&连字符、数据交换。
三、综合操作题
【审题分析】根据题目源程序，判断文本框Txt1输入的密码是否为\的条件表达式为：Txt1.Text = \；要去掉对文本框中输入内容的屏蔽，需将其PasswordChar属性值清空，即执行语句：Txt1.PasswordChar =\；每输入一次错误密码，文本框Txt2中的数字减1，当文本框Txt2中数值还大于0时，提示重新输入，否则提示错误，并禁用文本框Txt1。
【操作步骤】
步骤1：打开考生文件中的本题工程文件vbsj5.vbp，将文本框Txt1的PasswordChar属性值设置为\。
步骤2：在代码编辑窗口，去掉程序中的注释符\，将问号\？\改为正确的内容。
参考代码：
If Txt1.Text = \Txt1.PasswordChar = \If Txt2.Text > 0 Then Txt1.Enabled = False
步骤3：按要求将文件保存至考生文件夹中。 【主要考点】If语句、文本框控件。
第八十四套上机答案解析107
一、基本操作题
第1小题
【知识点播】某对象的MousePointer属性用于设置鼠标经过该对象时光标的形状类型，在程序设计或运行阶段都可设置。MousePointer属性值可以是0~15之间的任意整数，不同的值代表不同的形状。MousePointer属性的可选设置值及含义如表1所示。
表1 MousePointer属性的可选设置值及含义
【审题分析】根据题目要求，要使鼠标指针位于文本框中时，
鼠标指针形状为箭头，需将文本框的MousePointer属性值设置为1。为使鼠标指针位于窗体中其他位置时，鼠标指针的形状为十字，需将窗体的MousePointer属性值设置为2。 【操作步骤】
步骤1：新建\标准EXE\工程，在窗体Form1中画一个文本框，按表2设置文本框及窗体属性。
表2
步骤2：按要求将文件保存至考生文件夹中。
【特别提示】当窗体中控件的MousePointer属性值为0时，鼠标经过该控件时光标的形状类型由窗体的MousePointer属性值决定。
【主要考点】MousePointer属性、Select Case语句。 第2小题
【知识点播】文本框的Text属性可返回或设置文本框中显示的内容；SelLength属性可返回或设置文本框中当前选定的字符数；SelStart属性可返回或设置所选文本的起始点，该起始点位于起始文本的左侧；SelText属性可返回含有当前所选择的字符串。
【审题分析】由于SelStart属性返回的所选文本的起始点位于起始文本的左侧，故所选文本的第一个字符的顺序号应为SelStart属性值加1。选中字符数即为SelLength属性返回值。
步骤1：新建一个\标准EXE\工程，按表3在窗体中画出控件并设置其相关属性。
表3
—23—
步骤2：在代码编辑窗口，编写命令按钮的单击事件
过程。
参考代码：
Private Sub cmdDisplay_Click()
txtBegin.Text=txtInput.SelStart + 1 txtNum.Text = txtInput.SelLength End Sub
步骤3：按要求将文件保存至考生文件夹中。
二、简单应用题
第1小题
【审题分析】PasswordChar属性用于设置屏蔽文本框中内容的字符，要去掉对文本框中输入内容的屏蔽，需将其PasswordChar属性值清空。
【操作步骤】
步骤1：新建一个\标准EXE\工程，按表4在窗体中画出控件并设置其相关属性。
表4
步骤2：在代码编辑窗口，分别编写3个按钮的单击事
件过程。
参考代码：
Private Sub cmdShow_Click() txtPwd.PasswordChar = \End Sub
Private Sub cmdHide_Click() txtPwd.PasswordChar = \End Sub
Private Sub cmdCopy_Click() txtObj.Text = txtPwd.Text End Sub
步骤3：按要求将文件保存至考生文件夹中。 【主要考点】PasswordChar属性。 第2小题
【知识点播】过程是构成程序的一个模块，常用来完成一个相对独立的功能。Function过程也叫函数过程，一般用于调用后不仅要执行一组代码完成相应操作，还需返回一个有用值的情况。调用Function函数常放在赋值符右端。
【审题分析】本题源程序中，自定义函数xn的功能是进行a^m幂运算，它通过For循环连续m次将a乘以累积变量tmp（初值为1）来实现。故自定义函数xn中第一个？处应改为：tmp*a，作为函数返回值第二个？处应改为：tmp。
在\计算\按钮的单击事件过程中，根据程序所要计算
表达式的特点，源程序利用一个For循环依次计算表达式中各项的值（(x+i)^i），并将其累加入变量z。计算表达式中各项的值通过调用自定义函数xn(t,i)来实现的，其中t=x+i。故cmdCal_Click事件过程中第一个？处应改为：xn(t,i)。计算结果显示在标签中，故第二个？处应改为：z。
【操作步骤】
步骤1：打开考生文件中的本题工程文件vbsj4.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\？\改为正确的内容。
参考代码： tmp = tmp * a xn = tmp
z = z + xn(t, i)
lblResult.Caption = z
步骤2：按
步骤3：按要求将文件保存至考生文件夹中。
三、综合操作题
【审题分析】本题源程序已提供用于读数的ReadData1、ReadData2和用于写盘的WriteData几个自定义过程，只需编写\读数\、\计算\和\保存\命令按钮的单击事件过程，并在事件过程中调用ReadData1、ReadData2和WriteData自定义过程。程序设计思路：在\读数\按钮的Click事件过程中，通过分别调用ReadData1和ReadData2过程将数据从文件dr342.dat和dr343.dat中读入到数组Arr1和Arr2（窗体变量）中；然后在\计算\按钮的Click事件过程中，利用For语句（循环变量i的初值为1，终值为20）依次将数组Arr1和Arr2同下标的元素相减后赋值给数组Arr3同下标的元素（表达式为：Arr3(i)= Arr1(i)-Arr2(i)），并累加到变量Sum，循环结束后将Sum的值显示在窗体上。在\保存\按钮的Click事件过程中，通过调用WriteData过程将Sum的值写入数据文件out5.txt。
注意：调用WriteData过程时需传递参数dw343.dat和Sum，变量Sum应声明为窗体变量。
【操作步骤】
步骤1：打开考生文件中的本题工程文件vbsj5.vbp，按表5在窗体中画出控件并设置其相关属性。
表5 步骤2：在代码编辑窗口，分别编写
\读入数据\按钮和\计算保存\按钮的单击事件过程。
参考代码：
Private Sub cmdRead_Click() ReadData1 ReadData2 End Sub
Private Sub cmdCal_Click() Dim Arr3(20) As Integer Dim Sum As Integer Sum = 0
For i = 1 To 20
Arr3(i) = Arr1(i) - Arr2(i) Sum = Sum + Arr3(i) Next
Print Sum
WriteData \End Sub
步骤3：按
步骤4：按要求将文件保存至考生文件夹中。
【特别提示】为在多个过程中使用同一个变量，应将其声明为窗体变量。
【主要考点】过程调用、For循环语句、数组。
第八十五套上机答案解析108
一、基本操作题
第1小题
【审题分析】要实现题目要求的功能，只需在\显示\命令按钮的Click事件过程中，将两个文本框中的内容连接后，赋值给窗体的Caption属性。 —24—
【操作步骤】
步骤1：新建一个\标准EXE\工程，在窗体Form1中加入两个标签、两个文本框和一个命令按钮，其相关属性设置如表1所示。
表1
步骤2：双击窗体Form1中的\显示\按钮，在打开的代
码编辑窗口中，输入如下代码：
参考代码：
Private Sub cmdDisplay_Click()
Form1.Caption=txtBook.Text& \，\End Sub
步骤3：按要求将文件保存至考生文件夹中。 【主要考点】连字符&、窗体标题。 第2小题
【审题分析】列表框的Text属性可返回选中列表项的内容，往列表框中添加项目应使用AddItem方法，删除列表框中选中列表项应使用RemoveItem方法。
【操作步骤】
步骤1：新建一个\标准EXE\工程，按表2所列在窗体Form1中画出控件，并设置其相关属性。
表2
步骤2：在打开的代码编辑窗口中，编写两个命令按
钮的单击事件代码：
参考代码：
Private Sub cmdCopy_Click() lstCity.AddItem lstCity.Text End Sub
Private Sub cmdRemove_Click()
lstCity.RemoveItem lstCity.ListIndex End Sub
步骤3：按要求将文件保存至考生文件夹中。
二、简单应用题
第1小题
【知识点播】控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有唯一的索引号（Index），即下标，默认索引号从0开始。控件数组的Count属性值可返回该控件数组中元素的个数。
【审题分析】本题源程序在\计算\按钮的单击事件过程中，用变量a记录最高得分，用变量b记录最低得分，用变量s记录得分总数，这3个变量的初值均为文本框数组Txt1中第1个元素的值。源程序通过For循环将文本框数组Txt1中第2~6（索引号为1~5）个元素的值依次累加入变量s，并依次与变量a、变量b比较大小，将较大值存入变量a，将较小值存入变量b。故第1个？处应改为：5（或Txt1.Count-1），第2个？处应改为：a。去掉1个最高得分和1个最低得分后，剩下求平均分的元素只有4个，故第3个？处应改为：4。所得平均分乘以3，再乘以难度系数即为最后得分，故第4个？处应改为：s。最后结果保留到第2位小数（不四舍五入）后显示中文本框Txt3中，故第5个？处应改为：Txt3.Text。
【操作步骤】
步骤1：打开考生文件中的本题工程文件vbsj3.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\？\改为正确的内容。
参考代码： For k = 1 To 5
If a < Val(Txt1(k).Text) Then s = (s - a - b)/4
s = s * 3 * Val(Txt2.Text) Txt3.Text = Int(s * 100)/100
步骤2：按要求将文件保存至考生文件夹中。 第2小题
【知识点播】通用对话框的InitDir属性用于为打开或另存为对话框指定初始的目录，如果此属性没有指定，则使用当前目录。
【审题分析】本题需按要求在图片框的单击事件过程中，通过调用通用对话框的ShowOpen方法实现。
【操作步骤】
步骤1：新建一个\标准EXE\工程，按表3在窗体中画出控件并设置其相关属性。
表3
步骤2：打开代码编辑窗口，编写如下事件过程。
参考代码：
Private Sub picOpen_Click() cdlOpen.ShowOpen End Sub
步骤3：按要求将文件保存至考生文件夹中。
【特别提示】打开\打开文件\对话框还可使用语句：cdlOpen.Action=1。
【主要考点】通用对话框。
三、综合操作题
【知识点播】While循环和Do循环是用条件来控制的循环。Do循环语句的功能是：当指定的\循环条件\为真或直到指定的\循环条件\变为真之前重复执行循环体。
【审题分析】根据题意，数列第n项的值源于该项前两项的乘积。本题源程序中，将文本框txtFir的输入值赋予变量a作初值，将文本框txtSec的输入值赋予变量b作初值，并把a、b初值作为数列的前两项。故第1个？处应改为：b。将文本框txtNum的输入值赋予变量n，以标记数列最终要生成的项数。变量k用于记录数列当前项数，初值为2。
在DO循环中，首先将a、b的乘积赋予变量c（当前项数k增1），然后判断c的值是否小于10，若c小于10则c即为数列的第3项，并将b的值赋予变量a，c的值赋予变量b，以便计算数列下一项的值；若c不小于10，则取a和b乘积十位上的数（即d=c \\ 10）作数列的第3项，将d的值赋予变量a（当前项数k增1），并进一步判断当前k值是否小于或等于最终要生成的项数n，若是则取a和b乘积个位上的数（即d=c Mod 10）作数列的第4项，将d的值赋予变量b，以便计算数列下一项的值。重复执行循环体，即可依次求出数列后续项的值。
【操作步骤】
步骤1：打开考生文件中的本题工程文件vbsj5.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\？\改为正确的内容。
参考代码：
txtList = txtList & a & \ \a = b
If k <= n Then b = d
步骤2：按要求将文件保存至考生文件夹中。
第八十六套上机答案解析109
—25—
一、基本操作题
第1小题
【审题分析】要在程序运行时实现题目所要求的功能，只需在命令按钮Click事件过程中用代码设置文本框的Visible属性值为False，将文本框中的内容赋值给标签的Caption属性，设置标签的Visible属性值为True。
【操作步骤】
步骤1：新建一个\标准EXE\工程，按表1在窗体中画出控件并设置其相关属性。
表1
步骤2：打开代码编辑窗口，编写命令按钮的
Click事件过程。
参考代码：
Private Sub cmdDisplay_Click() Txt1.Visible = False
Lbl1.Caption = Txt1.Text Lbl1.Visible = True End Sub
步骤3：按要求将文件保存至考生文件夹中。 【主要考点】Visible属性。 第2小题
【知识点播】Visible（可见）属性用于设置控件或菜单项在程序运行时是否可见，值为True表示可见，值为False表示不可见。
【审题分析】本题的考核要求有两项。 【操作步骤】
步骤1：打开本题工程文件vbsj2.vbp，在窗体中画一个直线控件和一个命令按钮，并设置其相关属性如表2所示。
表2
步骤2：打开代码编辑窗口，编写命令按钮的
Click事件过程。
参考代码：
Private Sub cmdShow_Click() Line4.Visible = True End Sub
Private Sub cmdHide_Click() Line4.Visible = False End Sub
步骤3：按要求将文件保存至考生文件夹中。
二、简单应用题
第1小题
【知识点播】鼠标事件分点击事件和状态事件：点击事件有单击（Click）和双击（DblClick），不区分左右键；状态事件有按下（MouseDown）、移动（MouseMove）和弹起（MouseUp），能够区分出鼠标的左、右和中间键。按下鼠标键事件过程的一般格式为：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
End Sub