【知识点拨】本题源程序是在命令按钮的单击事件过程中，用For循环语句和Mid函数逐一取出指定字符串中的字符进行判断。
【审题分析】本题需要首先按照要求画出三个单选按钮以及设置其标题属性，然后在命令按钮的单击事件中先利用循环统计字符串中大写字母和小写字母的值。首先设置两个累加和变量j1、j2的初值均为0，然后在一次循环中依次取出字符串中的字符，若其为大写字母则j1自加，若其为小写字母则j2自加。然后进行判断，选择哪个单选按钮则执行相应的运算得到结果。
【操作步骤】
步骤1：打开考生文件夹中的本题工程文件sjt4.vbp，按表3在窗体中画出控件并设置其相关属性。
表3
步骤2：双击窗体中的\计算\命令按钮，在打开的代码编辑窗口中编写其单击事件过程。
参考代码：
Private Sub Command2_Click() Dim i As Integer, j1 As Integer Dim j2 As Integer, j As Integer j1 = 0: j2 = 0
For i = 1 To Len(s)
If Asc(Mid(s,i,1)) >= Asc(\And
Asc(Mid(s,i,1)) <= Asc(\ j1 = j1 + 1 End If
If Asc(Mid(s,i,1)) >= Asc(\
<= Asc(\ j2 = j2 + 1 End If Next
If Option1.Value = True Then j = j1 - j2 End If
If Option2.Value = True Then j = j1 + j2 End If
If Option3.Value = True Then j = j1 * j2 End If
Text1.Text = j End Sub
步骤3：按
步骤4：单击窗体右上角的关闭按钮以结束程序。 步骤5：按要求将文件保存至考生文件夹中。
【提示】本题程序运行时，单击窗体右上角的关闭按钮将输出计算结果到文件out3.dat中，并以其判断程序编写是否正确。
第2小题
【知识点拨】①控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有唯一的索引号（Index），即下标。②拖放是指用鼠标从屏幕上把对象从一个位置拖到另一个位置。VB提供了让用户自由拖放某个控件的功能。拖放的一般过程是：把鼠标光标移到要拖放的控件对象上，然后按下鼠标键不松开，再移动鼠标，待鼠标移动到目标位置后松开鼠标键，对象即被拖放到目标位置。当把控件拖到目标之后，松开鼠标键时触发DragDrop事件。
【审题分析】本题要求在将Picture2显示的香蕉拖放至图片框内部的时候，在图片框中的控件数组pic相应的图片显示出来，由于控件数组共有6个数组元素，因此应该在 —31—
拖放事件中进行一个6次的循环，在每次循环中判断数组元素是否已经被显示出来，如果没有被显示出来则令其Visible属性为True，然后退出循环，这样可以实现序号由小到大每次显示一个图片的效果。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口中，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
For k = 0 To 5
If Pic(k).Visible = False Then Pic(k).Visible = True
步骤2：按要求将文件保存至考生文件夹中。 【主要考点】控件数组，拖放事件。
三、综合操作题
【审题分析】本题中的数组a用于存放学生的各科成绩，以二维数组的形式存在，每一行代表一个学生，每一列代表一门课程。因此，欲求每个学生的平均分，相当于求该二维数组a的每一行平均值，并且把对应第i行的平均值放到文本框数组Text2下标为i-1的元素中，由于共有5个学生，因此外循环循环5次；同理二维数组a的每一列平均值即为每门课程的平均值，对应第j列的平均值应该放到文本框数组Text3下标为i-1的元素中，由于共有6门课程，因此外循环循环6次。
【操作步骤】
步骤1：打开本题对应工程文件sjt5.vbp。
步骤2：打开代码编辑窗口，分别编辑两个命令按钮的单击事件过程。
参考代码：
Private Sub Command2_Click()
Dim i, j, k As Integer For i = 1 To 5 k = 0
For j = 1 To 6 k = k + a(i, j) Next j
Text2(i - 1).Text = Round(k / 6, 0) Next i End Sub
Private Sub Command3_Click() Dim i, j, k As Integer For i = 1 To 6 k = 0
For j = 1 To 5 k = k + a(j, i) Next j
Text3(i - 1).Text = Round(k / 5, 0) Next i End Sub
步骤3：运行程序，单击\读入文件\按钮读入数据，然后分别单击\每人平均分\和\每科平均分\命令按钮进行计算，然后单击\存结果\按钮保存计算结果。
步骤4：按要求将文件保存至考生文件夹中。 【主要考点】循环控制结构的应用、二维数组。
第九十一套上机答案解析126
一、基本操作题
第1小题
【知识点拨】MaxLength属性用来设置允许在文本框中输入的最多字符数。文本框控件的MultiLine属性设置文本框是否能以多行显示文本，值为True表示允许，值为False表示不允许；ScrollBars属性设置文本框是否有水平或垂直滚动条，它的值为：0表示没有滚动条（默认值），1表示只有水平滚动条，2表示只有垂直滚动条，3表示有水平和垂直滚动条，设置0以外的值时MultiLine属性值必须为True。
【审题分析】本题只需在窗体上画出文本框并且设置相应属性。
【操作步骤】
步骤1：新建一个\标准EXE\工程，按表1在窗体中画出控件并设置其相关属性。
表1
对象
属性 值 Name Text1 文Text 本框MultiLine
True
ScrollBars 2 MaxLength 1000
步骤2：按要求将文件保存至考生文件夹中。 【主要考点】文本框属性。 第2小题
【知识点拨】形状控件（Shape）提供了显示一些规则图形的简易方法。通过设置形状控件Shape属性值，可显示6种图形：0－矩形、1－正方形、2－椭圆、3－圆、4－圆角矩形、5－圆角正方形。Width属性用于设置形状的宽度，Height属性设置形状控件的高度。
【审题分析】要实现本题所要求的功能，只需在命令按钮的单击事件中改变Shape1控件的Shape属性值即可。
【操作步骤】
步骤1：新建一个\标准EXE\工程，按表2在窗体中画出控件并设置其相关属性。
表2
对象
属性 值 形Name Shape1 状控Shape 0 件Width 1700 Height 1000 命令Name Command1
按钮1 Caption 圆 命令Name Command2 按钮2 Caption
椭圆
步骤2：打开代码编辑窗口，编写命令按钮的单击事件过程。
参考代码：
Private Sub Command1_Click() Shape1.Shape = 3 End Sub
Private Sub Command2_Click() Shape1.Shape = 2 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) —32—
End Sub
其中各参数的含义为：Button表示被按下的鼠标键，可以取3个值，1为左键、2为右键、4为中间键；Shift表示Shift键，Ctrl键和Alt键的状态， Shift键为1、Ctrl键为2、Alt键为4；X、Y表示鼠标光标的当前位置。
【审题分析】本题源程序在Form_MouseDown事件过程中，先通过Y的值判断鼠标单击的位置是否在三条线上，因为有三条线，所以应该用一个三次的循环来完成；若在线上，则调用drawsin过程画正弦曲线。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt3.vbp，在代码编辑窗口中，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
For k = 0 To 2
If Y = Line1(k).y1 Then Call drawsin(X, Y)
步骤2：按要求将文件保存至考生文件夹中。 【主要考点】鼠标事件。 第2小题
【知识点拨】Instr(n,s1,s2)函数用于查找字符串s2在s1中第一次出现的位置，其中n为开始查找的起始字符位置，若未找到则返回0。若缺省n，默认从第1个字符找起。
【审题分析】本题源程序是在命令按钮的单击事件过程中，首先用变量m保存要替换的值，用k来保存替换第几次出现的值，其初值应该为1；然后用Do循环语句和Ibstr函数判断在Text3中是否存在Text1的子串；如果子串存在则要将Text2的内容替换掉Text1的内容，可以令Text3的SelStart属性为a-1，令SelLength属性为Text1的长度，这样即可在Text3中选中一个字串；接下来指定Text3的SelText属性为Text2的值，此时即完成替换过程。
如果单选按钮1被选中，则意味着只需替换一次，因此循环执行一次以后即可退出循环，否则要继续循环下去直到所有的子串均被替换完毕。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码： k = 1
Text3.SelLength = Len(Text1.Text) Text3.SelText = Text2.Text
步骤2：按要求将文件保存至考生文件夹中。 【主要考点】字符串函数。
三、综合操作题
【知识点拨】Int函数、Fix函数和Round函数都有取整的功能。
其中，Round函数的作用是四舍五入进行取整，其格式为Round(x,n)，功能是将指定的数x四舍五入保留n位小数，当n=0时，就能实现四舍五入取整的功能；
Int函数和Fix函数都会删除所给数的小数部分而返回剩下的整数，其格式分别为：Int(X)和Fix(X)。Int和Fix的不同之处在于，如果所给数为负数，则Int返回小于或等于所给数的第一个负整数；而Fix则会返回大于或等于所给数的第一个负整数。当参数为正数的时候与Int函数返回值是一样的。
【审题分析】本题首先需要利用循环求出数组中所有数的平均值，然后利用k保存数组第一个元素和平均值之间的差的绝对值，接下来再次对数组进行循环，依次计算循环到的数组元素和平均值之间的差的绝对值，若其比k还小则意味着这个数更接近平均值，则令其成为新的k值，并且保存数组下标到i1中。这样循环结束后k中就存放最小的数据和平均值的差值，i1中存放最接近平均值的数组元素的下标。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口中，编写\计算\按钮的单击事件过程。
参考代码：
Private Sub Command2_Click() Dim i, j, k, i1 As Integer j = 0
For i = 1 To 100 j = j + a(i) Next i
j = Fix(j / 100) k = Abs(a(1) - j) i1 = 1
For i = 2 To 100
If Abs(a(i) - j) < k Then k = Abs(a(i) - j) i1 = i End If Next i
Text1.Text = a(i1) End Sub
步骤2：按要求将文件保存至考生文件夹中。
步骤3：按
第九十二套上机答案解析127
一、基本操作题
第1小题
【审题分析】本题只需按题目要求利用VB菜单设计器建立一个二级菜单。
【操作步骤】 步骤1：新建一个\标准EXE\工程，利用菜单设计器按表1在窗体上建立一个二级菜单。
表1
步骤2：按要求将文件保存至考生文件夹中。 第2小题
【知识点拨】①滚动条分为水平滚动条（HscrollBar）和垂直滚动条（VscrollBar）两种，常用于提供简便的定位或用于取代数据的键盘输入。通过调整滚动条滑块的位置即可改变其Value属性的值，滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围，在程序中改变Value属性的值，滚动条滑块会随之移动到相应位置。
②控件的TabIndex属性可设置或返回其在当前窗体中的Tab键次序，所谓Tab键次序是指按
【审题分析】本题需要在窗体上画出水平滚动条，并设置TabIndex属性为0；然后在单选按钮的单击事件中改变滚动条的Value属性值就能使滑块处于指定位置。
【操作步骤】
步骤1：新建一个\标准EXE\工程，按表2在窗体中画出控件并设置其相关属性。
表2
—33—
步骤2：打开代码编辑窗口，编写两个单选按钮的单击事件过程。
参考代码：
Private Sub Option1_Click() HScroll1.Value = 100 End Sub
Private Sub Option2_Click() HScroll1.Value = 0 End Sub 步骤3：按要求将文件保存至考生文件夹中。 【主要考点】滚动条控件、焦点次序。
二、简单应用题
第1小题
【知识点拨】本题源程序是在命令按钮的单击事件过程中，用For循环语句和Mid函数逐一取出指定字符串中的字符进行判断。列表框的Selected(Index)属性用于设置或返回指定索引号列表项的选中状态，值为True时表示被选中，值为False时表示未被选中，Index（索引号）值从0开始。List(Index)属性用于设置或返回指定索引号列表项的内容。ListCount属性用来返回列表框中当前的列表项项数。
【审题分析】本题在命令按钮的单击事件中先利用循环统计字符串中大写字母和小写字母的值。首先假设数组中的第一个元素既为最大值也为最小值，然后依次从第二个元素开始向后循环，对每一个数组元素都加以判断，若其比最大值还大，则其成为新的最大值；若其比最小值还小，则其成为新的最小值。这样循环结束后可以得到数组的最大值和最小值。
接下来判断列表框中选中的是哪一项然后执行对应计算，并输出结果。
【操作步骤】
步骤1：打开考生文件夹中的本题工程文件sjt3.vbp，双击窗体中的\计算\命令按钮，在打开的代码编辑窗口中编写其单击事件过程。
参考代码：
Private Sub Command2_Click() Dim k As Integer, i1, i2 As Integer i1 = a(1): i2 = a(1) For k = 2 To 100 If a(k) > i1 Then i1 = a(k) End If
If a(k) < i2 Then i2 = a(k) End If Next k
If List1.Selected(0) = True Then Text1.Text = i1 - i2 End If
If List1.Selected(1) = True Then Text1.Text = i1 + i2 End If
If List1.Selected(2) = True Then Text1.Text = i1 * i2 End If End Sub
步骤2：按
步骤3：单击窗体右上角的关闭按钮以结束程序。 步骤4：按要求将文件保存至考生文件夹中。
【提示】本题程序运行时，单击窗体右上角的关闭按钮将输出计算结果到文件out3.dat中，并以其判断程序编写是否正确。
第2小题
【审题分析】\输入5个数据\按钮的单击事件过程中，需要连续输入5个数据并且存放到数组s中，因此k应该由1循环到5，在循环中将输入的数据保存到数组s中并且将其赋值给五个标签组成的控件数组，随后将标签的Visible属性设置为True以便显示出来。
\画直方图\按钮的单击事件过程中，源程序用For循环来依次计算每一个形状控件的高度，该高度应该为对应数组元素的值；然后计算该直方图的Top属性值（应为水平直线的Y1（或Y2）属性值减去直方图的高度），最后显示该直方图（通过设置其Visible实现）。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码： For k = 1 To 5
Label1(k - 1).Visible = True Shape1(k - 1).Height = s(k) a = Line1.Y1
步骤2：按要求将文件保存至考生文件夹中。
三、综合操作题
【审题分析】分析题目可知，本题中\读入文件\命令按钮中首先使用For Input方式打开文件，然后通过Line Input #语句将打开文件中的数据读出到变量s中并且赋给文本框。
在\加密\按钮的单击事件中，利用For循环对字符串s进行遍历，依次取出s中的每一个字符；如果循环变量i的值为偶数，接下来就要判断取出的字符是不是字母，如果是字母则进行Chr(Asc(Mid(s,i,1)) - 1)的转换，但是要注意如果为字母\或者\要转换为\或者\。同理，如果循环变量的值为奇数，如果取出的字符是字母，则进行Chr(Asc(Mid(s,i,1)) + 1)的转换，如果为字母\或者\要转换为\或者\。最后将转换得到的字母连接起来即得到结果。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口指定位置编写以下代码：
参考代码：
Private Sub Command1_Click() Open \ Line Input #1, s Close #1
Text1.Text = s End Sub
Private Sub Command2_Click() Dim i As Integer Dim ss As String ss = \
For i = 1 To Len(s)
If isletter(Mid(s, i, 1)) = True Then If i Mod 2 = 0 Then
If Mid(s, i, 1) = \ ss = ss & \
ElseIf Mid(s, i, 1) = \ ss = ss & \ Else
ss=ss&Chr(Asc(Mid(s,i,1))-1) End If Else
If Mid(s, i, 1) = \ ss = ss & \
ElseIf Mid(s, i, 1) = \ ss = ss & \ Else
ss=ss&Chr(Asc(Mid(s,i,1))+1) End If End If Else
ss = ss & Mid(s, i, 1) —34—
End If Next
Text2.Text = ss End Sub
步骤2：按要求将文件保存至考生文件夹中。
步骤3：按
第九十三套上机答案解析128
一、基本操作题
第1小题
【知识点拨】直线控件（Line）用于显示一条直线，其核心位置属性X1、Y1和X2、Y2分别表示直线两个端点的坐标。
【审题分析】本题只需按要求画出控件并设置相关属性即可。
【操作步骤】
步骤1：新建一个\标准EXE\工程，按表1在窗体中画出控件并设置其相关属性。
表1
步骤2：按要求将文件保存至考生文件夹中。 【主要考点】直线控件。 第2小题
【知识点拨】列表框的ListIndex可用于设置或返回在列表框中当前选择项目的索引号，该索引号是从0开始的。
【审题分析】要实现本题所要求的功能，应在列表框的单击事件中，令文本框中的内容等于列表框的ListIndex属性加1；在文本框的单击事件中，令文本框的内容等于列表框的对应选中项的内容，即List1.List(List1.ListIndex)。
【操作步骤】
步骤1：新建一个\标准EXE\工程，按表2在窗体中画出控件并设置其相关属性。
表2
步骤2：打开代码编辑窗口，编写列表框和文本框的单击事件过程。 参考代码：
Private Sub List1_Click()
Text1.Text = List1.ListIndex + 1 End Sub
Private Sub Text1_Click()
Text1.Text=List1.List(List1.ListIndex) End Sub
步骤3：按要求将文件保存至考生文件夹中。
【主要考点】列表框。
二、简单应用题
第1小题
【知识点拨】①在实际应用中，较为复杂的应用程序通常由多个窗体组成，且可设置其中一个为启动窗体，只有启动窗体才能在运行程序时自动加载并显示出来。②在多个窗体组成的程序中，可以在一个窗体中控制显示另一个窗体，其语法格式为：窗体名称.Show。③FontName属性用于设置程序运行时在控件中显示文本的字体，FontSize属性、FontBold属性、FontItalic属性、FontStrikethru属性和FontUnderline属性可分别用来设置字体的大小和样式。
【审题分析】根据题目要求，单击\格式\菜单项即会显示Form2，则在该菜单项的单击事件中应该调用Form2.Show方法；在\确定\按钮的单击事件中，应该对应将文本框中内容的字体和字号设置为列表框中选中的项并隐藏Form2。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt3.vbp，按表3在窗体中画出控件并设置其相关属性。
表3
步骤2：在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码： Form2.Show
Form1.Text1.FontSize = List1.Text
Form1.Text1.FontName=List2.List(List2.ListIndex) Form2.Visible = False 步骤3：按要求将文件保存至考生文件夹中。 【主要考点】多窗体程序。 第2小题
【知识点拨】组合框（ComboBox）将文本框与列表框的特性组合在一起，既可在组合框的文本框部分输入信息，也可在列表框部分选择项目。可通过修改组合框的Style属性值来改变其显示类型，值为0-Dropdown Combo时，表示下拉式组合框，包括一个下拉式列表和一个文本框，可以从列表选择或在文本框中输入；值为1-Simple Combo时，表示简单组合框，包括一个文本框和一个不带下拉列表的列表，可以从列表中选择或在文本框中输入，增加其高度可显示列表的更多部分；值为2-Dropdown List时，表示下拉式列表，这种样式仅允许从下拉式列表中选择。组合框的Text属性可以设置或返回显示在组合框里面文本框中的值。
【审题分析】本题是一个简单的累加求和再求平均值的问题，根据在组合框中选择的列表项不同，进行计算的项数也不同，但都是用循环完成，在循环中实现累加，在循环后实现求平均值，区别只在于循环的次数不一样。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt4.vbp，双击\计算\按钮，打开代码编辑窗口编辑计算按钮单击事件。
参考代码：
Private Sub Command2_Click() Dim i, j As Long
If Combo1.Text = \50??êy\ j = 0
For i = 1 To 50 j = j + a(i) Next
j = Round(j / 50, 0) Text1.Text = j End If
If Combo1.Text = \80??êy\ j = 0
For i = 1 To 80 j = j + a(i) Next
j = Round(j / 80, 0) —35—
Text1.Text = j End If
If Combo1.Text = \ùóDêy\ j = 0
For i = 1 To 100 j = j + a(i) Next
j = Round(j / 100, 0) Text1.Text = j End If End Sub
步骤2：按要求将文件保存至考生文件夹中。
步骤3：运行程序，单击\读入数据\按钮，然后在列表框中选中一项，并单击\计算\按钮获得一个结果，然后使用窗体右上角的\关闭\按钮结束程序。 三、综合操作题
【知识点拨】①控件数组是一组具有共同名称和类型的控件，它们拥有共同的事件，数组中的每个控件都有唯一的索引号（Index），即下标。②拖放是指用鼠标从屏幕上把对象从一个位置拖到另一个位置。VB提供了让用户自由拖放某个控件的功能。拖放的一般过程是：把鼠标光标移到要拖放的控件对象上，然后按下鼠标键不松开，再移动鼠标，待鼠标移动到目标位置后松开鼠标键，对象即被拖放到目标位置。当把控件拖到目标之后，松开鼠标键时触发DragDrop事件。
【审题分析】控件的DragDrop事件有三个主要参数，其中，\参数是一个对象变量，类型为\，包含被拖动对象的属性，\和\参数是放下对象时鼠标光标的位置。本题中为了判断拖动的是哪一个图片，因此需要判断Source参数的Name属性。当拖动的图片确定，则在控件数组中显示的图片以及需要累加的价格也随之确定。
由于控件数组共有6个数组元素，因此应该在拖放事件中进行一个6次的循环，在每次循环中判断数组元素是否已经被显示出来，如果没有被显示出来则令其Visible属性为True，然后退出循环，这样可以实现序号由小到大每次显示一个图片的效果。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt5.vbp。 步骤2：在代码编辑窗口中，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
Select Case Source.Name For k = 0 To 5
If Pic(k).Visible = False Then Pic(k).Visible = True Text1 = Text1 + a
步骤3：按要求将文件保存至考生文件夹中。 【主要考点】控件数组、拖放事件。
第九十四套上机答案解析129
一、基本操作题
第1小题
【审题分析】要在程序运行时实现题目所要求的功能，只需在窗体的Click事件过程中用代码设置文本框1的Visible属性值为False，文本框2的Visible属性为True；在窗体的DblClick事件过程中用代码设置文本框1的Visible属性值为True，文本框2的Visible属性为False。
【操作步骤】 步骤1：新建一个\标准EXE\工程，在窗体中加入两个文本框并设置它们的相关属性，属性及其值如表1所示。
表1
步骤2：打开代码编辑窗口，输入如下代码： 参考代码：
Private Sub Form_Click()