Text1.Visible = False Text2.Visible = True End Sub
Private Sub Form_DblClick() Text1.Visible = True Text2.Visible = False End Sub
步骤3：按要求将文件保存至考生文件夹中。 第2小题
【知识点拨】滚动条分为水平滚动条（HscrollBar）和垂直滚动条（VscrollBar）两种，常用来提供简便的定位或用于取代数据的键盘输入。通过调整滚动条滑块的位置即可改变其Value属性的值，滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围，在程序中改变Value属性的值，滚动条滑块会随之移动到相应位置。LargeChange属性用于设置当点击滚动条滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当点击滚动条两侧箭头时Value属性值的改变量。
【审题分析】要在程序运行时，单击窗体就能将滚动条的滑块位置定位到文本框中输入的值，只需要编写窗体的单击事件，令滚动条的Value属性值等于文本框的Text属性值。
【操作步骤】
步骤1：新建\标准EXE\工程，往窗体Form1中加入一个文本框和一个水平滚动条，分别设置它们的相关属性，属性及其值如表2所示。
表2
步骤2：打开代码编辑窗口，输入如下代码： 参考代码：
Private Sub Form_Click()
HS1.Value = Val(Text1.Text) End Sub
步骤3：按要求将文件保存至考生文件夹中。 【主要考点】滚动条控件。
二、简单应用题
第1小题
【审题分析】在本题中需要分别计算数组中正数和负数之和，只需要一次循环遍历数组即可完成。在循环中依次取出数组元素判断其为正数还是负数，若为正数则将其累加到变量pos中，否则累加到变量neg中，循环结束后即可求出正数和以及负数和。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt3.vbp。 步骤2：打开代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
If Arr(k) > 0 Then pos = pos + Arr(k) neg = neg + Arr(k)
步骤3：按要求将文件保存至考生文件夹中。 第2小题
【审题分析】可借助计时器来完成有规律性时间间隔执行的任务。在本题中两个命令按钮分别用于启动和停止计时器，实际上就是令计时器的Enabled属性为True或False。当单击\开始\或者\继续\按钮的时候，令计时器启动；当单击\停止\按钮的时候，计时器不可用。
在计时器的Timer事件中，要依次增大Label1的FontSize属性，同时还要加以判断是否超过了100，若其超过100，则将该属性设置为8。 —36—
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt4.vbp。 步骤2：打开代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
Command1单击事件中改错 Timer1.Enabled = True Command2单击事件中改错 Timer1.Enabled = False Timer1单击事件中改错
If Label1.FontSize < 100 Then
Label1.FontSize = Label1.FontSize * 1.1
步骤3：按要求将文件保存至考生文件夹中。 【主要考点】计时器。
三、综合操作题
【审题分析】根据题目源程序，要使单击\显示\按钮时，从文件in5.txt中读取文本，并显示在文本框Text1中，需要首先以Input方式打开文件，然后使用Line Input #语句将文件号指明的文件中的内容读入到指定的字符串变量中，然后将该变量赋给文本框的Text属性。
要在单击\统计\按钮时，统计字母\、\、\的出现次数，可在\统计\按钮的单击事件过程中，通过For循环用Mid函数逐一取出str1中的每个字符进行判断，若其为对应字符，则对应的计数器增加1。循环结束时，三个计数器变量中的值就是该字符出现的次数。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
Line Input #1, str1 Text1.Text = str1
步骤2：按指定位置编写\统计\按钮的单击事件过程。
参考代码：
Private Sub Command2_Click() Dim i As Integer
intR = 0: intT = 0: intD = 0 For i = 1 To Len(str1)
If Mid(str1, i, 1) = \ intR = intR + 1 End If
If Mid(str1, i, 1) = \ intT = intT + 1 End If
If Mid(str1, i, 1)=\ intD = intD + 1 End If Next
Text2.Text = intR & \ \End Sub
步骤3：按要求将文件保存至考生文件夹中。
步骤4：按
第九十五套上机答案解析130
一、基本操作题
第1小题
【知识点拨】①BorderStyle用于设置图像框的边框类型，值为0表示无边框，值为1表示有边框。②AutoSize属性用来确定是否根据Caption属性指定的标题自动调整标签的大小，可以设置为True或False。
【审题分析】根据题目要求，除了画出指定控件并且设置属性以外，还需要编写窗体的单击事件，在该事件中使标签的Visible属性为False，同时令窗体的Caption属性为标签的Caption属性。
【操作步骤】
步骤1：新建\标准EXE\工程，在窗体Form1中画一个标签，按表1设置文本框及窗体属性。
表1
步骤2：在代码编辑窗口中，编写窗体的单击事件过程。
参考代码：
Private Sub Form_Click() Label1.Visible = False
Me.Caption = Label1.Caption End Sub
步骤3：按要求将文件保存至考生文件夹中。 第2小题
【审题分析】本题只需在3个单选按钮的Click事件过程中，分别为文本框的Text属性赋予相应内容即可。
【操作步骤】
步骤1：新建一个\标准EXE\工程，在窗体Form1上画一个文本框和三个单选按钮，其属性及值如表2所示。
表2
步骤2： 在代码编辑窗口中，编写3个单选按钮的单击事件过程。
参考代码：
Private Sub Op1_Click() Text1.Text = 1 End Sub
Private Sub Op2_Click() Text1.Text = 2 End Sub
Private Sub Op3_Click() Text1.Text = 3 End Sub
步骤3：按要求将文件保存至考生文件夹中。
二、简单应用题
第1小题
【知识点拨】位于矩阵左上到右下主对角线上的元素具有行号等于列号的特点，位于n*n矩阵右上到左下对角线上的元素具有行号与列号之和为n+1的特点。
【审题分析】行列组成的矩阵一般都用二维数组来处理，对于二维数组的遍历一般是使用二重循环来完成。在二重循环中，由外循环控制行，由内循环控制列，使用Mat(i,j)即可遍历整个数组，在循环中将对应数组元素的值转换成字符串连接起来显示在文本框中。
要想输出矩阵对角线上的数，需要再次用二重循环遍历数组，在循环中找到下标行号和列号相等的数组元素并且输出到文本框。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt3.vbp，在代码编辑窗口中，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
Mat(i, j) = Int(Rnd * 100) S = S & Str(Mat(i, j)) & \ \If i = j Then
T = T & Str(Mat(i, j)) & \ \
步骤2：按要求将文件保存至考生文件夹中。 【主要考点】二维数组。 第2小题 —37—
【知识点拨】滚动条分为水平滚动条（HscrollBar）和垂直滚动条（VscrollBar）两种，常用来提供简便的定位或用于取代数据的键盘输入。通过调整滚动条滑块的位置即可改变其Value属性的值，滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围，在程序中改变Value属性的值，滚动条滑块会随之移动到相应位置。LargeChange属性用于设置当点击滚动条滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当点击滚动条两侧箭头时Value属性值的改变量。
【审题分析】本题利用计时器有规律的改变滚动条的滚动块，只需要在计时器的Timer事件中改变两个滚动条的Value属性即可。在两个命令按钮的单击事件中，控制计时器的Enabled属性为True或者False。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt.vbp，在代码编辑窗口中，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
Private Sub Command1_Click() Form1.Timer1.Enabled = True End Sub
Private Sub Command2_Click() Form1.Timer1.Enabled = False End Sub
Private Sub Timer1_Timer() n1 = n1 + 1
If n1 = 100 Then n1 = 0 HScroll1.Value = n1 n2 = n2 - 1
If n2 = 0 Then n2 = 100 HScroll2.Value = n2 End Sub
步骤2：按要求将文件保存至考生文件夹中。
三、综合操作题
【审题分析】本题\删除\按钮的Click事件中，需要删除Text1中指定的几个字符并且将结果再次显示在Text1中，其基本思路是先设置一个字符串变量，其初值为空字符串，然后对Text1用循环进行遍历，依次使用M 在\计算/保存\按钮的单击事件中，需要计算出Text1中的字符串ASCII码之和并且保存到指定文件中，依然使用循环配合Mid函数依次取出Text1中的每一个字符，并且将其ASCII码进行累加，然后使用Output方式打开文件，使用Print#语句将累加和写入到指定文件中。 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口中，去掉程序中的注释符\，将问号\改为正确的内容。 参考代码： ch = Mid(Form1.Text1.Text, i, 1) tmpStr = tmpStr + ch 步骤2：按指定位置编写\计算/保存\按钮的单击事件过程。 参考代码： Private Sub Command3_Click() Dim i, j As Long Dim s As String s = Trim(Text1.Text) j = 0 For i = 1 To Len(s) j = j + Asc(Mid(s, i, 1)) Next Open \ Print #1, j Close #1 End Sub 步骤3：按要求将文件保存至考生文件夹中。 步骤4：按 第九十六套上机答案解析131 一、基本操作题 第1小题 【知识点拨】FontName属性用于设置程序运行时在控件中显示文本的字体，FontSize属性、FontBold属性、FontItalic属性、FontStrikethru属性和FontUnderline属性可分别用来设置字体的大小和样式。 【审题分析】要实现题目要求的功能，只需在两个命令按钮的Click事件过程中，分别设置文本框的FontSize属性为指定值。 【操作步骤】 步骤1：新建一个\标准EXE\工程，在窗体Form1中加入一个文本框和两个命令按钮，其相关属性设置如表1所示。 表2 步骤2：打开代码编辑窗口，输入如下代码： 参考代码： Private Sub Command1_Click() Text1.FontSize = Text1.FontSize * 1.2 End Sub Private Sub Command2_Click() Text1.FontSize = Text1.FontSize / 1.2 End Sub 步骤3：按要求将文件保存至考生文件夹中。 【主要考点】字体属性集。 第2小题 【知识点拨】列表框的列表项既可以在设计阶段通过其List属性设置加入（注意：每输入完一项后按 列表框的Text属性用于返回列表框中选择的项目的内容，返回值总与列表框的List(ListIndex)属性的返回值相同。 【审题分析】本题需要在列表框的属性窗口中输入列表框中的项目，然后在列表框的单击事件中将选定项赋值给文本框和滚动条的Value属性。 【操作步骤】 步骤1：新建一个\标准EXE\工程，在窗体上画一个列表框、一个文本框和一个水平滚动条，按表2设置其相关属性。 表2 步骤2：在打开的代码编辑窗口中，编写列表框的单击事件代码： 参考代码： Private Sub List1_Click() Text1.Text = List1.Text HScroll1.Value = Val(List1.Text) —38— End Sub 步骤3：按要求将文件保存至考生文件夹中。 二、简单应用题 第1小题 【知识点拨】列表框控件（ListBox）用于显示可供单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通过其List属性设置加入，也可在程序运行时使用AddItem方法加入。在程序运行时删除列表框中的项目可以使用RemoveItem方法，其语法为：列表框.RemoveItem 索引值。其中，\索引值\可以指定插入项在列表框中的位置，从0开始计数。 【审题分析】单击列表框中的某个项目，将触发其Click事件。要实现单击列表框中的某一项，该项就从列表中消失的功能，只需在Click事件过程中编写删除项目的语句即可。列表框的ListIndex属性可返回当前选择的项目的索引号，因此删除选中项目的语句为：List1.RemoveItem List1.ListIndex。 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt3.vbp，在代码编辑窗口中，去掉程序中的注释符\，将问号\改为正确的内容。 参考代码： List1.AddItem Text1.Text If Form1.Option2.Value = True And List1.ListIndex >= 0 Then List1.RemoveItem List1.ListIndex 步骤2：按要求将文件保存至考生文件夹中。 第2小题 【审题分析】本题是一个数列求累加和的问题。这个数列的特点是，每一项的分母都是1，分子都是前一项分子加2，符号都是前一项符号的相反数。因此，这个数列累加求和问题使用循环来完成，在循环中令分子加2，符号取反即得到下一项。循环结束后需要将累加和乘4才能得到所求的圆周率的值。 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口中，去掉程序中的注释符\，将问号\改为正确的内容。 参考代码： Result = Result + Sign * 1 / i Sign = -Sign Text1.Text = Result * 4 步骤2：按要求将文件保存至考生文件夹中。 三、综合操作题 【审题分析】分析题目可知，本题中\读取数据\命令按钮中首先使用For Input方式打开文件，然后通过Line Input #语句将打开文件中的数据读出到变量s中并且赋给文本框。 在\首字母大写\按钮的单击事件中，首先依次取出文本框中的每一个字符，然后判断这个字符的上一个字符是否是空格，如果是空格则将该字符使用UCase函数转换为大写；判断完毕后无论是否转换均将其连接到新的字符串中，同时令这个字符成为新的\上一个字符\。这样，循环结束后每个单词的首字母就转换成了大写字母。 在\存盘\按钮的单击事件中，首先以Output方式打开文件，然后利用Write#语句将文本框中的内容写回到文件中，最后关闭文件。 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt5.vbp，在代码编辑窗口中，去掉程序中的注释符\，将问号\改为正确的内容。 参考代码： ch = Mid(oldSen, i, 1) newSen = newSen & ch Write #1, Text1.Text 步骤2：编写\读取数据\命令按钮的单击事件。 参考代码： Private Sub Command1_Click() Dim s As String Open \ Line Input #1, s Close #1 Text1.Text = s End Sub 步骤3：按要求将文件保存至考生文件夹中。 步骤4：按 第九十七套上机答案解析133 一、基本操作题 第1小题 【知识点拨】AutoSize属性用来确定是否根据Caption属性指定的标题自动调整标签的大小，可以设置为True或False。 【审题分析】本题只需按照要求画出控件并设置属性即可。 【操作步骤】 步骤1：新建一个\标准EXE\工程，按表1在窗体中画出控件并设置其相关属性。 表1 步骤2：按要求将文件保存至考生文件夹中。 第2小题 【知识点拨】①为图像框控件指定图片有两种方法：一是在设计阶段通过Picture属性设置；二是在程序运行时通过LoadPicture()图片加载函数加载，其语法为：图片框.Picture= LoadPicture(\图像文件路径\，App.Path可返回当前工程文件所在的文件夹路径，是使用相对路径的一种用法。用不带参数的LoadPicture函数为对象的Picture属性赋值将清除窗体、图片框及图像控件中的图形。②Stretch（自动伸缩）属性用来设定图像框是否需要自动调整大小，以适应载入图像框中的图片的大小，值为True时表示自动调整。 【审题分析】本题除了需要按照要求画出控件并设置对应属性之外，还需要在窗体的单击事件中为Image2的Picture属性赋值，然后清除Image1中显示的图形。 【操作步骤】 步骤1：新建一个\标准EXE\工程，按表2在窗体中画出控件并设置其相关属性。 表2 步骤2：打开代码编辑窗口，编写窗体的Click事件过程。 参考代码： Private Sub Form_Click() Image2.Picture = Image1.Picture Image1.Picture = LoadPicture(\End Sub 步骤3：按要求将文件保存至考生文件夹中。 二、简单应用题 第1小题 【审题分析】本题是一个数列累加求和问题，观察数列的特点可知，该数列的第i项比第i-1项多i，所以用一个循 —39— 环即可完成数列的累加求和过程。首先设置累加和变量Sum的初值为0，数列项的值k也为0，然后从1循环到n，在循环中依次将i加到k中，然后将k累加到Sum中即可。 【操作步骤】 步骤1：打开本题工程文件sjt3.vbp，在代码编辑窗口中，去掉程序中的注释符\，将问号\改为正确的内容。 参考代码： Sum = 0 k = 0 k = k + i Sum = Sum + k 步骤2：按要求将文件保存至考生文件夹中。 第2小题 【知识点拨】Mid(字符串,起始位置[,个数])函数用于从已有字符串中取出从指定位置开始的含指定个数字符的字符串。 【审题分析】程序设计思路：在\反向显示\按钮的单击事件过程中，首先要对文本框中的字符串进行逆向遍历，在遍历过程中取出每一个字符连接到一个空字符串中，这样循环结束后得到的结果就是逆序以后的结果。由于循环变量i的值是逐渐增大的，因此取出当前一个字符的函数应该是Mid(S1, Len(S1) + 1 - i, 1)。 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口中，去掉程序中的注释符\，将问号\改为正确的内容。 参考代码： For i = 1 To Len(S1) S2 = S2 + Mid(S1, Len(S1) + 1 - i, 1) Text2.Text = S2 步骤2：按要求将文件保存至考生文件夹中。 【主要考点】字符串逆序算法。 三、综合操作题 【知识点拨】\冒泡法\是一种重要的数据排序算法，它的核心思路是按顺序让一个数列中的每一个数都与它之后的所有的数逐一进行比较，如果该数小于其后面的数，则把这两个位置的数进行交换。通过这样的循环，最终按照从大到小的顺序排列出该数列。 【审题分析】本题首先需要按照要求画出窗体上的控件以及设置它们的属性，然后编写三个按钮的单击事件。 在\取数\按钮的单击事件中，首先以Input方式打开文件，然后在循环中使用Input#语句将数据一一取出放入数组元素中并显示在文本框中，最后关闭文件。 在\排序\按钮的单击事件中，首先在一个二重循环中利用冒泡法将数组进行排序，然后再次用一个循环挑选出数组中大于500的数并显示在文本框中。 在\存盘\按钮的单击事件中，用Output方式打开文件，然后使用Write#语句将文本框中的值存入文件，最后关闭文件。 【操作步骤】 步骤1：新建一个\标准EXE\工程。 步骤2：在窗体Form1中加入一个文本框和三个命令按钮，并分别设置它们的相关属性，属性及值如表3所示。 表3 步骤3：打开代码编辑窗口，编写三个命令按钮的单击事件代码。 参考代码： Private N(100) As Integer Private Sub Command1_Click() Open \ For i = 1 To 100 Input #1, N(i) Text1 = Text1 & \ \ Next i Close #1 End Sub Private Sub Command2_Click() Dim i, j As Integer For i = 1 To 100 For j = i To 100 If N(i) < N(j) Then tmp = N(i) N(i) = N(j) N(j) = tmp End If Next j Next i Text1.Text = \ For i = 1 To 100 If N(i) > 500 Then Text1 = Text1 & \ \ End If Next i End Sub Private Sub Command3_Click() Open \ Write #1, Text1.Text Close #1 End Sub 步骤4：按要求将文件保存在考生文件夹中。 步骤5：运行程序，先单击\取数\按钮，然后单击\排序\按钮，最后单击\存盘\按钮。 第九十八套上机答案解析134 一、基本操作题 第1小题 【知识点拨】滚动条分为水平滚动条（HscrollBar）和垂直滚动条（VscrollBar）两种，常用来提供简便的定位或用于取代数据的键盘输入。通过调整滚动条滑块的位置即可改变其Value属性的值，滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值，即Value属性值的取值范围，在程序中改变Value属性的值，滚动条滑块会随之移动到相应位置。LargeChange属性用于设置当点击滚动条滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当点击滚动条两侧箭头时Value属性值的改变量。 【审题分析】要在程序运行时，单击窗体就能将滚动条的滑块位置定位到文本框中输入的值，只需要编写窗体的单击事件，令滚动条的Value属性值等于文本框的Text属性值。 【操作步骤】 步骤1：新建\标准EXE\工程，往窗体Form1中加入一个文本框和一个水平滚动条，分别设置它们的相关属性，属性及其值如表1所示。 表1 步骤2：打开代码编辑窗口，输入如下代码： 参考代码： Private Sub Form_Click() HScroll1.Value = Val(Text1.Text) —40— End Sub 步骤3：按要求将文件保存至考生文件夹中。 【主要考点】滚动条控件。 第2小题 【知识点拨】列表框的列表项既可以在设计阶段通过其List属性设置加入（注意：每输入完一项后按 列表框的Text属性用于返回列表框中选择的项目内容，返回值总与列表框的List(ListIndex)属性的返回值相同。 【审题分析】本题需要在列表框的属性窗口中输入列表框中的项目，然后在列表框的单击事件中将选定项赋值给标签的FontSize属性。 【操作步骤】 步骤1：新建一个\标准EXE\工程，在窗体上画一个列表框和一个标签，按表2设置其相关属性。 表2 步骤2：在打开的代码编辑窗口中，编写列表框的单击事件代码。 参考代码： Private Sub List1_Click() Label1.FontSize = Val(List1.Text) End Sub 步骤3：按要求将文件保存至考生文件夹中。 二、简单应用题 第1小题 【知识点拨】①列表框的List(Index)属性用于设置或返回指定索引号列表项的内容。ListCount属性用来返回列表框中当前的列表项项数。②列表框的Clear方法可以清除该列表框中的所有项目。 【审题分析】本题需要将列表框中的内容显示在文本框中，应使用循环来实现。使用For循环遍历整个列表框，循环范围应该是由0到列表框的ListCount-1；每次循环中取出列表框中的一项并且连接到一起，循环完毕后清空列表框并且为文本框的Text属性赋值。 【操作步骤】 步骤1：打开本题工程文件sjt3.vbp，在代码编辑窗口中，去掉程序中的注释符\，将问号\改为正确的内容。 参考代码： For i = 0 To List1.ListCount - 1 s = s & List1.List(i) & vbCrLf List1.Clear Text1.Text = s 步骤2：按要求将文件保存至考生文件夹中。 第2小题 【审题分析】标签的闪烁可在计时器的Timer事件过程中通过对标签的Visible属性值进行逻辑非运算来实现；\开始\按钮和\停止\按钮控制计时器的Enabled属性为True或者False。 【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口中，去掉程序中的注释符\，将问号\改为正确的内容。 参考代码： Form_Load事件中的程序： Timer1.Enabled = False Timer1.Interval = 200 Command1_Click事件中的程序： Timer1.Enabled = True Command2_Click事件中的程序： Timer1.Enabled = False 步骤2：按要求将文件保存至考生文件夹中。