步骤2：按要求将文件保存至考生文件夹中。 第2小题
【审题分析】本题可在命令按钮的单击事件过程中，通过修改图像框的Left属性值达到移动或复位图像框位置的功能。
【操作步骤】
步骤1：新建一个\标准EXE\工程，如表2在窗体中画出控件并设置其相关属性。
表2
步骤2：打开代码编辑窗口，分别编写两个命令按钮的单击事件过程。
参考代码：
Private Sub Command1_Click() Image1.Left = Image1.Left + 10 End Sub
Private Sub Command2_Click() Image1.Left = 360 End Sub
步骤3：按要求将文件保存至考生文件夹中。
二、简单应用题
第1小题
【审题分析】在命令按钮数组的单击事件过程中，首先判断单击的是哪个按钮，即触发单击事件的Index参数值，若其为2则代表单击的是\退出\按钮，此时应结束程序运行；如果Index的值是0或者1，那么应该使计时器变为可用状态，同时利用全局变量flag保存Index值，苏后再计时器的Timer事件中根据flag的值来判断应该执行\前进\按钮的单击事件还是\停止\按钮的单击事件。
【操作步骤】
步骤1：打开考生文件下的本题工程文件sjt3.vbp，在窗体上画出一个名为Timer1的计时器，设置计时器的Interval属性为3000，Enabled属性为False。
步骤2：在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
If Index = 2 Then
Timer1.Enabled = True Select Case flag
步骤3：按要求将文件保存至考生文件夹中。 第2小题
【审题分析】本题原程序在\统计\按钮的Click事件过程中，先检验文本框Text1中是否读入数据（条件表达式为len(s)=0），再检查是否在文本框Text1中选中文本（条件表达式为Text1.SelLength=0），并以空格为单词分隔依据找出每个单词。然后将找出的单词转换成小写，并判断该单词是否同时出现了\和\，若该单词满足条件则用于统计满足条件单词个数的变量m的值增1。最后将结果显示在文本框Text2中。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
If Len(s) = 0 Then —21—
If Text1.SelLength = 0 Then x = LCase(t)
Text2.Text = Str(m)
步骤2：按要求将文件保存至考生文件夹中。
三、综合操作题
【审题分析】设计思路：通过For循环逐一判断数组a的每一个元素是否是素数。判断a(i)是否是素数的思路是从2到a(i)-1依次去除a(i)，若有能整除的则不是素数；每找到一个素数，则将记录数组b元素个数的变量num增1，并将当前数组元素a(i)的值赋予数组元素b(num)，从而生成数组b。当数组b生成后，将数组b的内容显示在文本框中。
【操作步骤】
步骤1：打开考生文件夹中的本题工程文件sjt5.vbp，在代码编辑窗口指定位置编写以下代码：
参考代码：
For i = 1 To 100 flag = 0
For j = 2 To a(i) - 1
If a(i) / j = Fix(a(i) / j) Then flag = 1 Exit For End If Next
If flag = 0 Then num = num + 1 b(num) = a(i) End If Next
步骤2：按
步骤3：按要求将文件保存至考生文件夹中。
第六十六套上机答案解析66
一、基本操作题
第1小题
【知识点拔】①形状控件（Shape）提供了显示一些规则图形的简易方法。通过设置形状控件Shape属性值，可显示6种图形：0－矩形、1－正方形、2－椭圆、3－圆、4－圆角矩形、5－圆角正方形。Width属性用于设置形状的宽度，当形状为圆时即为圆的直径。②窗体的标题由其Caption属性设置，窗体的MaxButton属性、MinButton 属性决定其标题栏是否显示最大化按钮、最小化按钮，True表示显示，False表示不显示。
【审题分析】本题只需按要求建立程序界面并设置窗体和形状控件相关属性即可。
【操作步骤】
步骤1：新建一个\标准EXE\工程，在窗体Form1中加入一个形状控件，其相关属性设置如表1所示。
表1
步骤2：按要求将文件保存至考生文件夹中。 第2小题
【知识点拔】列表框控件（ListBox）用于显示可供单一或多个选择的列表项，给列表框添加列表项既可以在设计阶段通过其List属性设置加入，也可在程序运行时使用AddItem方法加入。在程序运行时删除列表框中的项目可以使用RemoveItem方法，其语法为：列表框.RemoveItem 索引值。其中，\索引值\可以指定插入项在列表框中的位置，从0开始计数。
【审题分析】单击列表框中的某个项目，将触发其Click事件。要实现单击列表框中的某一项，就改变滚动条
的宽度值，只需在Click事件过程中编写改变水平滚动条Width属性的语句即可。
【操作步骤】
步骤1：新建一个\标准EXE\工程，在窗体Form1中加入一个列表框和一个水平滚动条，其相关属性设置如表2所示。
表2
步骤2：打开代码编辑窗口，编写列表框的Click事件过程：
参考代码：
Private Sub List1_Click() HS.Width = List1.Text End Sub
步骤3：按要求将文件保存至考生文件夹中。
二、简单应用题
第1小题
【审题分析】f1函数的作用是计算n的阶乘，首先预设累乘积x的值为1，然后循环n次，在每次循环中把循环变量乘到累乘积中，循环结束后x的值即为函数返回值。
在单选按钮数组的单击事件中，首先使用Index参数判断触发单击事件的单选按钮，如果Index=0则调用f1函数计算n的阶乘，若Index属性为1则调用f1函数计算n+2的阶乘。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
Select Case Index Text2.Text = f1(n) Text2.Text = f1(n + 2) For i = 1 To n f1 = x
步骤2：按要求将文件保存至考生文件夹中。 第2小题
【知识点拔】Instr(n,s1,s2)函数用于查找字符串s2在s1中第一次出现的位置，其中n为开始查找的起始字符位置，若未找到返回0。若缺省n，默认从第一个字符找起。
【审题分析】本题原程序在\统计\按钮的Click事件过程中，首先把Text2中的字母放入变量s1中，然后依次判断s中出现s1的次数，最后将结果显示在标签中。
【操作步骤】 步骤1：打开考生文件中的本题工程文件sjt4.vbp，打开代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码： p = InStr(s, s1) Loop While p <> 0 Label3.Caption = n Text1.Text = s
步骤2：按要求将文件保存至考生文件夹中。
三、综合操作题
【知识点拔】①过程是构成程序的一个模块，常用来完成一个相对独立的功能。Function过程也叫函数过程，一般用于调用后不仅要执行一组代码完成相应操作，还需返回一个有用值的情况。Function函数的参数有两种传递方式：按值传递（Byval）和按址传递（Byref），默认为按址传递。调用Function函数常放在赋值符右端。
②For循环用于知道次数的循环，在不知道明确的循环次数的情况下，我们可以用条件来控制循环，While循环和Do循环就是用条件来控制的循环。While…Wend语句的一般语法格式：
While 条件
—22—
语句块 Wend
功能：在给定的条件为真（True）时，执行循环中的\语句块\。
③素数的判断准则就是看该数除了1和其本身外是否别无其他约数。
【审题分析】程序设计思路：要找出小于18000的最大素数，可以定义一个初值为18000的整型变量i，通过调用函数isprime（a），以其返回值不是素数（即Not isprime（a））作为While循环语句的循环条件，在循环体中加入语句：a=a-1实现每执行循环体一次变量a的值减少1，当循环结束时将a的值在文本框中显示出来。
要将结果存入考生文件夹下的out5.txt文件，可先用Open语句以输出方式打开该文件；然后通过Print语句将文本框中的内容写入打开的文件；最后用Close语句关闭打开的文件。
【操作步骤】
步骤1：打开本题对应工程文件sjt5.vbp。
步骤2：双击窗体Form1上的\计算\按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码：
参考代码：
Private Sub C1_Click() a% = 18000 Do
a% = a% - 1
Loop Until isprime(a%) Text1.Text = a% End Sub
步骤3：双击窗体Form1上的\存盘\按钮，在代码编辑窗口其Click事件过程中输入如下代码：
参考代码：
Private Sub C2_Click()
Open \ Print #1, Text1.Text Close #1 End Sub
步骤4：按要求将文件保存至考生文件夹中。
步骤5：按
【考试误区】正确使用循环控制结构是解决此题的关键。
第六十七套上机答案解析67
一、基本操作题
第1小题
【审题分析】本题只需按要求画出控件并设置其相应属性即可。
【操作步骤】
步骤1：新建一个\标准EXE\工程，在窗体Form1中画一个滚动条和一个标签，并设置它们的相关属性，其属性及值如表1所示。
表1
步骤2：按要求将文件保存至考生文件夹中。 第2小题
【审题分析】程序一开始运行时计时器即变为可用，需在窗体的Load事件过程中用语句设置其Enabled属性值为True。为使形状控件每隔0.5秒向下移动100，可在计时器的Timer事件过程中设置形状控件的Top属性值在原有基础上每次增加100。
【操作步骤】
步骤1：新建一个\标准EXE\工程，如表2在窗体中画出控件并设置其相关属性。
表2
步骤2：在代码编辑窗口编写相应的事件过程。 参考代码：
Private Sub Form_Load() Timer1.Enabled = True End Sub
Private Sub Timer1_Timer()
Shape1.Top = Shape1.Top + 100 End Sub
步骤3：按要求将文件保存至考生文件夹中。
二、简单应用题
第1小题
【审题分析】本题在Text2_Change事件过程中，根据\显示密码\复选框是否被选中（即Check1.Value属性值是否为1），来决定文本框Text3中的字符是否被屏蔽。其中，屏蔽时将文本框的PasswordChar属性值设置为字符\，取消屏蔽时将文本框的PasswordChar属性值设置为空字符串。文本框Text2中输入的密码要同步显示在文本框Text3中，需使用语句：Text3.Text = Text2.Text。
【操作步骤】
步骤1：打开考生文件下的本题工程文件sjt3.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
If Check1.Value = 1 Then
Form1.Text3.PasswordChar = \ Else
Text3.PasswordChar = \ End If
Text3.Text = Text2.Text
步骤2：按要求将文件保存至考生文件夹中。 第2小题
【审题分析】本题程序运行时，单击命令按钮，使用For语句将文本框中每个元素的数据类型转换为整型，然后在循环中调用求最小值的函数过程FindMin来保证变量x中保持为数组中的最小值，FindMin函数过程的实质是返回两个参数x和y的最小值。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码： For k = 2 To 5
x = FindMin(Val(Text1(k).Text), x) lblResult.Caption = x If x > y Then
步骤2：按要求将文件保存至考生文件夹中。
三、综合操作题
【审题分析】7*7数组四周元素的特点：第一维下标为1（或7）或第二维下标为1（或7）。根据题意，可通过一个嵌套的For循环，将满足前述条件的数组元素累加入变量Sum，若该数组元素能被7整除，则记录个数变量Num增1。【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt5.vbp，在代码编辑窗口的指定位置编写以下代码：
参考代码：
Dim Num As Integer For i = 1 To 7
For j = 1 To 7
If i=1 Ori = 7 Or j = 1 Or j = 7 Then
—23—
Sum = Sum + a(i, j)
If a(i,j)Mod7=0 Then Num= Num+1
End If Next Next
lblFirst.Caption = Num lblSecond.Caption = Sum
步骤2：按
第六十八套上机答案解析68
一、基本操作题
第1小题
【知识点拔】通用对话框（CommonDialog）提供诸如打开文件、保存文件、设置打印选项、选择颜色和字体、显示帮助等操作的一组标准对话框，该控件运行时不可见。Action属性用于设置被打开对话框的类型；当通用对话框显示为\打开\或\另存为\类型时，其FileName属性用于返回或设置所选的文件的路径和文件名，Filter（过滤器）属性在对话框显示时提供一个可供选择过滤器列表，从而指定在对话框的文件列表中显示文件的类型，例如，过滤器为*.txt，表示显示所有的文本文件，它的语法为：对象名.Filter =\描述|文件扩展名\。使用管道符（|）将描述与过滤器隔开，同样使用管道符将多个过滤器相互分隔。FilterIndex属性返回或设置\打开\或\另存为\对话框中一个缺省的过滤器，其中第一个过滤器的索引号是1。
在VB6中开始使用新方法来打开不同对话框，同时也保留了对Action属性的支持。如表1列出了不同Action属性值代表的对话框类型及其在VB6中的对应方法。
表1
【审题分析】要在单击按钮时弹出\打开文件\对话框，只需在\打开\按钮的Click事件过程中调用通用对话框的ShowOpen方法即可。
【操作步骤】
步骤1：新建一个\标准EXE\工程，在窗体Form1中加入一个命令按钮，其相关属性设置如表2所示。
表2
步骤2：选择【工程】→【部件】命令，将弹出的\部件\对话框，如图1所示，从列表中选中\Common Dialog Control6.0\项目，单击\确定\按钮。
图1
步骤3：双击工具箱新添加的通用对话框（CommonDialog）图标，在窗体中加入一个通用对话框，其相关属性设置如图68-2所示。也可右击窗体中的通用对话框，选择【属性】命令，在打开的\属性页\对话框中设置其相关属性，如图2所示。
图2
步骤4：双击窗体Form1中的\打开\按钮，在打开的代码编辑窗口中，输入如下代码：
参考代码：
Private Sub Command1_Click() CD1.ShowOpen End Sub
步骤5：按要求将文件保存至考生文件夹中。
第2小题
【审题分析】根据题目要求，要在程序运行时能每隔1秒，文本框中的数字加1，需将计时器的Interval属性值设置为1000毫秒，在计时器的Timer事件过程中将标签中的数值加1。在设计阶段令计时器的Enabled属性为False即不启用计时器，然后在命令按钮的单击事件中将计时器的Enabled属性值设置为True。
【操作步骤】
步骤1：新建一个\标准EXE\工程，如表68-3在窗体中画出控件并设置其相关属性。
表68-3
步骤2：在代码窗口中加入以下代码： 参考代码：
Private Sub C1_Click() T1.Enabled = True End Sub
Private Sub T1_Timer()
Text1.Text = Text1.Text + 1 End Sub
步骤3：按要求将文件保存至考生文件夹中。
【特别提示】常通过计时器来完成一些重复的有规律性的任务。 二、简单应用题
第1小题
【审题分析】从本题题目要求及所提供原程序可知，程序运行时首先显示窗体Form2，然后在Form2的\显示\按钮的单击事件过程中，通过设置窗体Form1的Visible属性值为True —24—
来显示该窗口。在Form1的\结束\按钮的单击事件过程中结束程序的运行。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt3.vbp，然后将按钮C1的Caption属性设置为\结束\，将按钮C2的Caption属性设置为\显示\。
步骤2：选择【工程】→【工程属性】命令打开\工程属性\对话框，设置Form2为启动窗体。
步骤3：打开Form2和Form1的代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。 参考代码：
Load Form1
Form1.Visible = True
步骤4：按要求将文件保存至考生文件夹中。 第2小题
【审题分析】本题要求通过修改程序源代码，来实现当选中不同选项时，单击命令按钮，即在图片框显示出不同信息的功能。程序源代码在按钮的Click事件过程中，利用For循环语句逐一判断单选按钮数组中每个元素当前是否被选中，若选中则通过调用draw过程将其标题信息在图片框中用Print语句显示出来。因为单选按钮数组一共有三个元素，且数组索引号（Index属性值）从0开始，故循环语句的初值为0，终值为2。
【操作步骤】
步骤1：打开考生文件夹中的本题工程文件sjt4.vbp，程序界面如图3所示。
图3
步骤2：依次选中窗体中的各单选按钮和命令按钮，设置它们的相关属性，其属性及值如表68-4所示。
表68-4
步骤3：双击\显示\命令按钮，打开代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
If Op1 (k).Value = True Then Call draw(k)
P1.Print \选择了\
步骤4：按要求将文件保存至考生文件夹中。
三、综合操作题
【知识点拔】①过程是构成程序的一个模块，常用来完成一个相对独立的功能。Function过程也叫函数过程，一般用于调用后不仅要执行一组代码完成相应操作，还需返回一个有用值的情况。Function函数的参数有两种传递方式：按值传递（Byval）和按址传递（Byref），默认为按址传递。调用Function函数常放在赋值符右端。
②素数的判断准则就是看该数除了1和其本身外有无其他约数。
【审题分析】程序设计思路：要找出小于给定数的最大素数，可以从给定数开始反向循环，通过调用函数isprime（n），以其返回值不是素数（即Not isprime（n））作为判断条件，每找到一个素数就记录下来并且令计数器counter加1，当counter=3时就找出了三个小于给定数的最大素数。
【操作步骤】
步骤1：打开本题对应工程文件sjt5.vbp。
步骤2：双击窗体Form1上的\查找\按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码：
参考代码： Dim i As Integer
Dim n As Integer
Dim counter As Integer Dim arr(3) As Integer n = Val(Text1.Text) counter = 0
For i = n - 2 To 3 Step -2 If IsPrime(i) Then arr(counter) = i
counter = counter + 1 If counter = 3 Then Exit For End If End If Next
For i = 0 To 2
Label1(i).Caption = arr(i) Next
步骤3：运行程序，在\给定的素数\对应的文本框中输入12379，并执行\查找\命令，将找到满足条件的三个素数显示在标签中，然后单击关闭按钮结束程序的运行。
步骤4：按要求将文件保存至考生文件夹中。
【考试误区】正确使用循环控制结构是解决此题的关键。
【主要考点】循环控制结构的应用、过程调用。
第六十九套上机答案解析69
一、基本操作题
第1小题
【审题分析】本题只需按要求画出控件并设置其相关属性即可。
【操作步骤】
步骤1：新建一个\标准EXE\工程，如表1在窗体中画出控件并设置其相关属性。
表1
步骤2：按要求将文件保存至考生文件夹中。 第2小题
【审题分析】要实现本题所要求的功能，可在文本框的Change事件过程中，将当前文本框中的文本用Print方法输出到图片框中。
【操作步骤】
步骤1：新建一个\标准EXE\工程，如表2在窗体中画出控件并设置其相关属性。
表2 对象属性设置
步骤2：打开代码编辑窗口，编写命令按钮的单击事件过程。
参考代码：
Private Sub Text1_Change() P1.Print Text1.Text End Sub
步骤3：按要求将文件保存至考生文件夹中。
二、简单应用题
第1小题
【审题分析】本题要求通过修改程序源代码，来实现当选中不同选项时，单击命令按钮，即在窗体显示出不同信息的功能。程序源代码在按钮的Click事件过程中，利用For循环语句逐一判断单选按钮数组中每个元素当前是否被 —25—
选中，若选中则通过在窗体中用Print语句显示出相关信息。因为单选按钮数组一共有三个元素，且数组索引号（Index属性值）从0开始，故循环语句初值为0，终值为2。
【操作步骤】
步骤1：打开考生文件夹中的本题工程文件sjt3.vbp，依次选中窗体中的各单选按钮和命令按钮，设置它们的相关属性，其属性及值如表3所示。
表3
步骤2：双击\显示\命令按钮，打开代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
Private Sub C1_Click() For i = 0 To 2
If Op1(i).Value = True Then
Print\我的出生地是\
End If Next End Sub
步骤3：按要求将文件保存至考生文件夹中。 第2小题
【审题分析】组合框的Text属性可以返回当前选中的列表项内容，本题只需要分别在两个组合框的Click事件中令标签的相应字体属性等于组合框当前选中项的内容即可。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt4.vbp，如表4画出三个标签和两个组合框并设置属性。
表4
步骤2：在代码编辑窗口，编写两个组合框的单击的单击事件过程。
参考代码：
Private Sub Cb1_Click() L1.FontSize = Cb1.Text End Sub
Private Sub Cb2_Click() L1.Font = Cb2.Text End Sub 步骤3：按要求将文件保存至考生文件夹中。
步骤4：按
【知识点拔】①过程是构成程序的一个模块，常用来完成一个相对独立的功能。Function过程也叫函数过程，一般用于调用后不仅要执行一组代码完成相应操作，还需返回一个有用值的情况。Function函数的参数有两种传递方式：按值传递（Byval）和按址传递（Byref），默认为按址传递。调用Function函数常放在赋值符右端。
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库2013年3月全国计算机等级考试二级VB无纸化上机题题库及答案解析((5)在线全文阅读。
相关推荐：