接着单击\统计\按钮，然后单击\保存\按钮保存结果。
第五十七套上机答案解析222
一、基本操作题
第1小题
【知识点拔】①组合框（ComboBox）将文本框与列表框的特性组合在一起，既可在组合框的文本框部分输入信息，也可在列表框部分选择项目。可通过修改组合框的Style属性值来改变其显示类型，值为0-Dropdown Combo时，表示下拉式组合框，包括一个下拉式列表和一个文本框，可以从列表选择或在文本框中输入；值为1-Simple Combo时，表示简单组合框，包括一个文本框和一个不带下拉的列表，可以从列表中选择或在文本框中输入，增加其高度可显示列表的更多部分；值为2-Dropdown List时，表示下拉式列表，这种样式仅允许从下拉式列表中选择。
②组合框的列表项既可以在设计阶段通过其List属性设置加入（注意：每输入完一项后按
【审题分析】本题只需按要求设计程序界面，并设计相关属性即可。
【操作步骤】
步骤1：新建一个\标准EXE\工程，如表1在窗体中画出控件并设置其相关属性。
表1
步骤2：按要求将文件保存至考生文件夹中。
【考试误区】注意组合框的List属性（对象）和Text属性的区别。
第2小题
【知识点拔】文本框通常用于接收用户输入的字符串数据或用于显示输出信息，其Text属性用于设置或返回文本框中显示的文本，当文本框中文本内容改变时触发其Change事件。
【审题分析】本题考查考生对文本框控件常用属性和事件的掌握。要使文本框在初始情况下就没有内容，需在设计时通过属性设置窗口将其Text属性值设置为空白。要实现程序运行时单击按钮即使Text1变为可用，需要在按钮的单击事件中令Text1.Enabled=True；要想实现在Text1中输入的任何字符，立即用大写字母显示在Text2中的功能，可在Text1的Change事件过程中，执行将Text1中显示内容转大写后赋值给Text2的语句。
【操作步骤】
步骤1：新建一个\标准EXE\工程，在窗体Form1中画两个文本框，并分别设置它们的相关属性，其属性及值如表2所示。
表2
步骤2：打开代码编辑窗口，编写Text1的Change事件过程和命令按钮的单击事件过程。
参考代码： —36—
Private Sub Command1_Click() Text1.Enabled = True End Sub
Private Sub Text1_Change()
Text2.Text = UCase(Text1.Text) End Sub
步骤3：按要求将文件保存至考生文件夹中。
【考试误区】本题所用事件过程是文本框的Change事件过程而非其他。 二、简单应用题
第1小题
【审题分析】数组a中元素的位置自动对调（即第一个数组元素与最后一个数组元素对调， 第二个数组元素与倒数第二个数组元素对调……）可以在一个循环中进行，即第i个元素和第20-i+一个元素互换，问题的关键是循环的次数应该是10次而不是20次。
【操作步骤】
步骤1：打开考生文件夹中的工程文件sjt3.vbp
步骤2：打开代码编辑窗口中编写\变换\按钮的单击事件过程。
参考代码：
Private Sub Command2_Click() '考生编写
For i = 1 To 10 temp = a(i)
a(i) = a(20 - i + 1) a(20 - i + 1) = temp Next i
'以下程序段将已变换的数组元素显示在Text2文本框中
For k = 1 To 20
Text2 = Text2 + Str(a(k)) + Space(2) Next k End Sub
步骤3：按
步骤4：单击窗体右上角的关闭按钮以结束程序。 步骤5：按要求将文件保存至考生文件夹中。 第2小题
【审题分析】本题在\统计\按钮的单击事件过程中，先检查是否选中文本框Text1中的内容（if语句条件表达式为：sl=0或st=\），若没选择内容则弹出提示信息，否则通过For循环逐一取出选中内容的每个字符（故循环终值为sl），并计算出其中每个字母（大写）在26个字母中的顺序，赋值给变量n，数组元素a(n)则记录顺序号为n的字母出现的次数。再通过For循环逐一检查26个字母（故循环终值为26）的出现次数是否为0（即a(i) = 0），将出现次数为0的字母显示在文本框Text2中。
【操作步骤】
步骤1：打开考生文件下的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码： If sl = 0 Then For i = 1 To sl a(n) = a(n) + 1 For i = 1 To 26
步骤2：按要求将文件保存至考生文件夹中。
三、综合操作题
【知识点拔】\冒泡法\是一种重要的数据排序算法，它的核心思路是按顺序让一个数列中的每一个数都与它之后的所有的数逐一进行比较，如果该数大于其后面的数，则把这两个位置的数进行交换。通过这样的循环，最终按照从小到大的顺序排列出该数列。
【审题分析】单击\添加\按钮时先检查当前已输入学生信息数n是否已达到10条，若没达到10条，则标记变量tag_in=0表示允许添加信息（且学生信息数n增1），否则tag_in=1。当tag_in=0时，接着检查是否输入学号，若没输入学号则提示用户输入，且学生信息数n应减1（即n=n-1）；若已输入学号，则将该学生信息存入记录数组元素stud(n)，其中保存学号的语句为：stud(n).Num=Text1。
在\排序\按钮的单击事件过程中，原程序利用\冒泡法\对记录数组中的元素按平均分从大到小进行排序。故该事件过程中，第一个？处应改为：j+1，第两个？处应改为：Average，第三个？处应改为：stud(j)。最后在For循环中，用图片框的Print方法在图片框中显示每个学生的3项信息。
【操作步骤】
步骤1：打开考生文件下的本题工程文件sjt5.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码： n = n – 1
stud(n).Num = Text1 For k = j + 1 To n
If stud(k).Average>stud(j).Average Then stud(k) = stud(j)
步骤2：按要求将文件保存至考生文件夹中。
第五十八套上机答案解析223
一、基本操作题
第1小题
【审题分析】为图像框装入图片可在设计时通过其Picture属性设置，为让图片适应图像框的大小应将图像框的Stretch属性设置为True。
【操作步骤】
步骤1：新建一个\标准EXE\工程，如表1在窗体中画出控件并设置其相关属性。
表1
步骤2：按要求将文件保存至考生文件夹中。 第2小题
【审题分析】列表框的Text属性可返回选中列表项的内容，往列表框中添加项目应使用AddItem方法，删除列表框中选中列表项应使用RemoveItem方法。
【操作步骤】
步骤1：新建一个\标准EXE\工程，如表2所列在窗体Form1中画出控件，并设置其相关属性。
表2
步骤2：在打开的代码编辑窗口中，编写两个命令按钮的单击事件代码：
参考代码：
Private Sub Command1_Click() List1.AddItem List1.Text End Sub
Private Sub Command2_Click()
List1.RemoveItem List1.ListIndex End Sub
步骤3：按要求将文件保存至考生文件夹中。
二、简单应用题
第1小题
【审题分析】本题全部控件已画出，只需按题目要求 —37—
完善其他相关事件过程。由于标签在窗体上的移动是在计时器的Timer事件过程中完成的，单击\移动\按钮时就应启动计时器，单击\停止\按钮时要停止标签移动，就是要停止计时器。在Timer1_Timer事件过程中，要让标签每次自左至右移动100，可在每个时间间隔使标签的Left属性值在原有基础上加100来实现；为防止标签移出窗体，在执行移动语句前先用Select Case语句对flag的值进行判断，若其为0则向右移动，Left属性增加，当标签移到窗体右侧时（Label1.Left + Label1.Width = Form1.Width）将flag置1；当flag为1时向左移动，Left属性减少，当标签移到窗体左侧时（Label1.Left = 0）将flag置1。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt3.vbp。 步骤2：在窗体Form1中加入一个标签并设置相关属性，其属性和值如表3所示。
表3
步骤3：在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
Timer1.Enabled = True
Label1.Left = Label1.Left + 100 Label1.Left = Label1.Left - 100
步骤4：按要求将文件保存至考生文件夹中。 【主要考点】计时器控件。 第2小题
【审题分析】本题原程序在\统计得分\按钮的单击事件过程中，先检查是否在文本框中输入了编号及各评委的打分，若没输入则给出提示信息，并等待用户输入。接着用变量Max、Min和Sum分别记录选手的最高得分、最低得分及总得分，它们的初值均设置为第一位评委的打分（即Text2(0).Text）。然后通过For循环逐一与其他评委的打分相比（循环变量n的初值应为1），若Max的值小于某评委的打分（即Case Is > Max），则将该评委的打分赋值给Max；若Min的值大于某评委的打分（即Case Is < Min），则将该评委的打分赋值给Min。计算总分的表达式应为：Sum = Sum + Val(Text2 (n))（或Sum = Val(Text2 (0)) + Val(Text2 (n))）。最后将选手编号和计算出的得分用Print方法显示在图片框Picture1中，并将所有文本框的内容置空。
【操作步骤】
步骤1： 打开考生文件下的本题工程文件sjt4.vbp，如表4在窗体中画出控件并设置其相关属性。
表4
步骤2：在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码： For n = 1 To 9 Case Is > Max Case Is < Min
Sum = Sum + Val(Text2(n))
步骤3：按要求将文件保存至考生文件夹中。
三、综合操作题
【审题分析】本题可利用一个嵌套的For循环来完成计算工作：在外循环（循环变量的取值为1~20）体中，先初始设置记录每行最小数的变量min的初值为每行的第一个数，接着通过内循环（循环变量的取值为2~5）体逐一完成min与该行其他数据的比较工作，将比较结果中的较小值存入min。内循环结束后，用表达式sum = sum +min累计各行最小值之和。嵌套For循环结束时，表达式sum/20的值即为所有行中最小数的平均值，将其显示在文本框Text2中。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt5.vbp，在窗体Form1中画一个标签和一个文本框，其属性及值如表5所示。
表5
步骤2：打开代码编辑窗口，在指定位置编写以下代码： 参考代码： Sum = 0
For i = 1 To 20 Min = a(1, 1) For j = 2 To 5
If Min > a(i, j) Then Min = a(i, j) Next
Sum = Sum + Min Next
Text2 = Sum / 20
步骤3：按要求将文件保存至考生文件夹中。
步骤4：按
第五十九套上机答案解析224
一、基本操作题
第1小题
【知识点拔】窗体的ControlBox属性用于设置运行时是否在窗体上显示控件菜单栏，即左侧的控制菜单和右侧的最大化按钮、最小化铵钮和关闭按钮。
【审题分析】本题只需在窗体上画出控件并且按照要求设置属性即可。
【操作步骤】
步骤1：新建一个\标准EXE\工程，如表1在窗体中画出控件并设置其相关属性。
表1 对象属性设置
步骤2：按要求将文件保存至考生文件夹中。 第2小题
【审题分析】本题只需按要求画出控件并设置相关属性，然后在命令按钮的单击事件中改变文本框的字形即可。
【操作步骤】
步骤1：新建一个\标准EXE\工程，如表2在窗体中画出控件并设置其相关属性。
表2
—38—
步骤2：打开代码编辑窗口，编写两个命令按钮的Click事件过程。
参考代码：
Private Sub Command1_Click() Text1.FontBold = True End Sub
Private Sub Command2_Click() Text1.FontItalic = True End Sub
步骤3：按要求将文件保存至考生文件夹中。
二、简单应用题
第1小题
【审题分析】当单击单选按钮数组时需要判断用户单击的是哪个按钮，所以Case语句判断的变量是Index；在计时器的Timer事件中，需要使文本框Text1中的值自增1。
在两个按钮的Click事件中，只需要控制计时器的Enabled属性即可。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt3.vbp，将计时器Timer1的Enabled属性设置为False。
步骤2：进入代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
Select Case Index
Text1.Text = Text1.Text + 1
步骤3：编写两个按钮的Click事件过程。 参考代码：
Private Sub C1_Click() Timer1.Enabled = True End Sub
Private Sub C2_Click()
Timer1.Enabled = False End Sub
步骤4：按要求将文件保存至考生文件夹中。 第2小题
【审题分析】本题原程序的\读数据\按钮单击事件过程已完成将in4.dat文件中已按升序方式排列的60个数读入数组A的功能，单击\输入\按钮可接收用户输入并赋值给窗体变量num，题目还要求完善\删除\按钮的单击事件过程。
在\删除\按钮的单击事件过程中，通过For循环逐一查找num与读入数组A的60（n=60）个数是否相等，若找到退出循环。若未找到循环结束后i>n，则弹出提示信息，否则将从找到位置（i）开始到n-1位置的元素的值依次指定为从i+1到n位置元素的值。最后将1~n-1位置的数组元素重新显示在在文本框中。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
If num = a(i) Then Exit For
If i>n Then(或num < a(1) Or num > a(60)) For j = i To n a(j) = a(j + 1) For k = 1 To n
步骤2：按要求将文件保存至考生文件夹中。
三、综合操作题
【审题分析】本题在\统计\按钮的单击事件过程中，先检查是否选中文本框Text1中的内容（if语句条件表达式为：sl=0或st=\），若没选择内容则弹出提示信息，否则通
过For循环逐一取出选中内容的每个字符，并计算出其中每个字母（大写）在26个字母中的顺序，赋值给变量n，数组元素a(n)则记录顺序号为n的字母出现的次数。再通过For循环逐一检查26个字母（故循环终值为26）的出现次数，找出出现最多的字母序号，将出现最多的字母显示在文本框Text2中。
【操作步骤】
步骤1：打开考生文件下的本题工程文件sjt5.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
sl = Text1.SelLength a(n) = a(n) + 1 For j = 2 To 26
If a(j) > max_n Then If a(i) = max_n Then
步骤2：按要求将文件保存至考生文件夹中。
第六十套上机答案解析225
一、基本操作题
第1小题
【知识点拔】为图片框控件指定图片有两种方法：一是在设计阶段通过Picture属性设置；二是在程序运行时通过LoadPicture()图片加载函数加载，其语法为：图片框.Picture= LoadPicture(\图像文件路径\，App.Path可返回当前工程文件所在的文件夹路径，是使用相对路径的一种用法。用不带参数的LoadPicture函数为对象的Picture属性赋值将清除窗体、图片框及图像控件中的图形。
【审题分析】本题只需在窗体上画出控件和设置相应属性即可。
【操作步骤】
步骤1：新建一个\标准EXE\工程，如表1在窗体中画出控件并设置其相关属性。
表1
步骤2：按要求将文件保存至考生文件夹中。 第2小题
【审题分析】为让文本框能显示多行，应将其MultiLine属性值设置为True，ScrollBars属性值设置为2（或3）。在\复制\按钮的单击事件过程中，将Text1的Text属性赋值给Text2的Text属性。
【操作步骤】
步骤1：新建一个\标准EXE\工程。
步骤2：在窗体Form1中加入两个文本框和一个命令按钮，并分别设置它们的相关属性，其属性及值如表2。
表2 控件属性设置
步骤3：打开代码编辑窗口，编写命令按钮的单击事件过程。
参考代码：
Private Sub C1_Click()
Text2.Text = Text1.Text End Sub
步骤4：按要求将文件保存至考生文件夹中。
二、简单应用题
第1小题
—39—
【知识点拔】Mid(字符串,起始位置[,个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串。
【审题分析】程序设计思路：从文本框的第一个字符开始依次检查其后面的每一个字符，若发现空格则将其之前或两个空格之间的字符串作为一个单词添加到列表框中。在Do循环（指内循环），循环条件为：取出的字符为非空格字符且取字符的起始位置没有超出文本框的总字符数，表达式为：Mid(S1, I1, 1) <> \，其中S1=Text1.Text，将Mid函数从文本框中取出的非空格字符，逐个连接成一个单词，语句为：S2 = S2 & Mid(S1, I1, 1)，每执行一次循环体取字符的起始位置加1，即I1 = I1 + 1。当遇到空格时结束循环，将得到的单词（即变量S2的值）用AddItem方法添加到列表框中，并且清空变量S2，将取字符的起始位置加1。
之后继续执行内循环以得到下一个单词，直到取字符的起始位置（即变量I1的值）超过文本框的总字符数为止，外循环的条件为：I1 <= Len(S1)。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt3.vbp。 步骤2：打开代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码： S1 = Text1.Text
Do While Mid(S1, I1, 1) <> \ <= Len(S1) List1.AddItem S2 S2 = \
步骤3：按要求将文件保存至考生文件夹中。
【特别提示】以空格作为分隔单词的依据是本题的关键，同时注意空格字符串和空字符串是完全不同的。
【主要考点】多重Do循环、字符串函数。 第2小题
【审题分析】本题\添加\按钮的单击事件过程源代码设计思路：利用For循环语句（初值为0，终值为Cb1.ListCount-1），逐一判断组合框列表框中的各项是否与文本输入框中的内容一致（条件表达式为Cb1.List(i) = Cb1.Text），若一致则设置布尔型变量flag的值为True，并且退出循环，否则设置变量flag的值为False。
循环结束后，通过判断flag的值是否为True（条件表达式为flag=True，可简写为flag），如果条件为真，则利用MsgBox语句显示\项目已存在，请重新输入！\，否则利用AddItem方法将当前文本输入框中的内容（Cb1.Text）添加到组合框列表框中。
【操作步骤】
步骤1：打开考生文件下的本题工程文件sjt4.vbp。 步骤2：打开代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
For i = 0 To Cb1.ListCount - 1 If Cb1.List(i) = Cb1.Text Then Cb1.AddItem Cb1.Text
【主要考点】组合框控件。
三、综合操作题
【审题分析】程序设计思路：在窗体的加载事件过程中，用Open语句以Input方式打开数据文件in5.txt，并用Line Input语句读出所有字符后显示在文本框中；在\存盘\按钮的单击事件过程中，用Open语句以Output方式打开数据文件out5.txt，并用Print #方将文本框的内容存入该文件。
【操作步骤】
步骤1：新建一个\标准EXE\工程，如表3在窗体中画出控件并设置其相关属性。
表3
步骤2：打开代码编辑窗口，编写相应事件过程。 参考代码：
Private Sub C1_Click()
Open \ Print #1, Text1.Text Close #1 End Sub
Private Sub Form_Load()
Open \ Text1.Text = \
Do While Not EOF(1) Line Input #1, a$
Text1.Text = Text1.Text + a$ + Chr(13) + Chr(10)
Loop Close #1 End Sub
步骤3：按要求将文件保存至考生文件夹中。
步骤4：按
—40—