②素数的判断准则就是看该数除了1和其本身外有无其他约数。
【审题分析】程序设计思路：要找出大于15000的第一个素数，可以定义一个初值为15000的整型变量a，通过调用函数isprime（i），以其返回值是素数（即isprime（a））作为Do循环语句的继续循环条件，在循环体中加入语句：a=a+1，实现每执行循环体一次变量i的值增加1，当循环结束时将a的值在文本框中显示出来。
要将结果存入考生文件夹下的out5.txt文件，可先用Open语句以输出方式打开该文件；然后通过Print语句将文本框中的内容写入打开的文件；最后用Close语句关闭打开的文件。
【操作步骤】
步骤1：打开本题对应工程文件sjt5.vbp。
步骤2：双击窗体Form1上的\计算\按钮，打开代码编辑窗口，在其Click事件过程中输入如下代码：
参考代码：
Private Sub C1_Click() a% = 15000 Do
a% = a% + 1
Loop Until isprime(a%) Text1.Text = a% End Sub
步骤3：双击窗体Form1上的\存盘\按钮，在代码编辑窗口其Click事件过程中输入如下代码：
参考代码：
Private Sub C2_Click()
Open App.Path & \
Print #1, Text1.Text Close #1 End Sub
步骤4：按要求将文件保存至考生文件夹中。
第七十套上机答案解析70
一、基本操作题
第1小题
【审题分析】滚动条所能表示的最小值和最大值分别由其Min属性和Max属性设定； LargeChange属性用于设置当点击滚动条滑块与两侧箭头间区域时Value属性值的改变量，SmallChange属性用于设置当点击滚动条两侧箭头时Value属性值的改变量。
【操作步骤】
步骤1：新建一个\标准EXE\工程，在窗体Form1中画一个水平滚动条和两个标签，其属性及值如表1所示。
表1
步骤2：按要求将文件保存至考生文件夹中。 【主要考点】水平滚动条控件。 第2小题
【知识点拔】菜单中所包含的每一个菜单项都可看成是一个命令按钮，程序运行时，选择某菜单项将触发其Click事件。
【审题分析】要实现本题中的功能，应在\复制\菜单项的Click事件过程中，为Text2赋值为Text1的Text属性值，在\清除\菜单项的Click事件过程中，为Text2的Text属性赋值为空字符串。
【操作步骤】
步骤1：新建一个\标准EXE\工程，在窗体Form1中画两个文本框，名称分别为Text1和Text2，其Text属性均为空白。
—26—
步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。
表2
步骤3：打开代码编辑窗口，编写\复制\和\清除\菜单命令的单击事件过程。
参考代码：
Private Sub clear_Click() Text2.Text = \End Sub
Private Sub copy_Click() Text2.Text = Text1.Text End Sub
步骤4：按要求将文件保存至考生文件夹中。
二、简单应用题
第1小题
【审题分析】本题要求通过修改程序源代码，来实现当选中不同选项时，在文本框显示出不同信息的功能。程序源代码在单选按钮数组的Click事件过程中，利用Select Case语句来判断是哪个单选按钮被单击并在文本框中显示不同内容。
【操作步骤】
步骤1：打开考生文件夹中的本题工程文件sjt3.vbp，使用复制粘贴的方法画出一个有三个元素的单选按钮数组，再画出一个文本框，设置它们的相关属性，其属性及值如表3所示。
表3
步骤2：双击单选按钮数组，打开代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
Select Case Index
Text1.Text = a + Me.Op1(1).Caption+\去\
步骤3：按要求将文件保存至考生文件夹中。 第2小题
【知识点拔】①某容器（如窗体和框架）中的单选按钮（OptionButton）组常用于提供多个选项间的唯一选择，其Value属性用于设置或返回每个单选按钮的选中状态：值为False时表示未被选中，值为True时表示被选中，其Caption属性来设置或返回单选按钮的标题内容。②分支控制结构是结构化程序设计的基本结构之一，它所要解决的是根据条件判断的结果决定程序执行的流向。选择控制结构就是其中一种，它是由两个分支构成的，就是说，条件要么是真，要么是假，没有其他的选择。在执行结构时按照所指定的条件进行判断并选择其中一组语句来执行。If语句就是一种选择控制结构，其一般语法为：
If 条件Then 语句块A Else 语句块B End If
功能：判断条件，如果条件为\真\，则执行语句块A部分，反之则执行语句块B部分。
【审题分析】根据题目要求，在本题的程序设计上，以F1中的Op1是否选中作为If…Then…Else语句的条件，由此分出两种情况：Op1被选中或Op2被选中。在条件为真（即Op1被选中）时，再使用一个嵌套的If…Then…Else语句对F2中Op3和Op4的选中情况进行分类，当Op3被选中时，文本框中显示\我是男学生\，否则显示\我是女学生\；同理在
条件为假（即Op2被选中）时，也用类似方法处理。这样一共就有四种可能：Op1和Op3被选中、Op1和Op4被选中、Op2和Op3被选中或Op2和Op4被选中，对于可能出现的不同选择对照题目中表的规定，修改Text1的Text属性值，以显示不同内容。以上判断和显示操作均在C1的Click事件中完成。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt4.vbp。 步骤2：在窗体Form1中加入两个框架和一个命令按钮，然后在每个框架中各加入两个单选按钮，分别设置它们的相关属性，属性及其值如表4所示。
表4
步骤3：打开代码编辑窗口输入如下代码： 参考代码：
Private Sub C1_Click() Text1.Text = \我是\ If Op1.Value Then
ext1.Text=Text1.Text+Op1.Caption Else
ext1.Text=Text1.Text+Op2.Caption End If
If Op3.Value Then
ext1.Text=Text1.Text+Op3.Caption Else
ext1.Text=Text1.Text+Op4.Caption End If End Sub
步骤4：按要求将文件保存至考生文件夹中。 步骤5：按
【考试误区】在一个容器中的多个单选按钮只能有一个被选中，由此分出不同分支，理清思路是关键。 三、综合操作题
【审题分析】本题实际是要让考生编写\显示结果\按钮的单击事件过程。用For循环语句（循环变量的取值与单选按钮数组的下标一致，从0到Op1.Count - 1）逐一检查单选按钮数组中的元素的选中状态，若某单选按钮的Value属性值为True，则该单选按钮被选中，用变量n记录下其对应的数值，即n=Val(Op1(k).Caption)。
根据题意，从数列的第三个数开始，每个数是其前两个数之和，可以利用For循环语句（循环变量i的初值为3，终值为n），从数列的第三个数开始，逐一计算出该数列第3~n项的值。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt5.vbp。 步骤2：编写\计算\按钮的单击事件过程。 参考代码：
Private Sub Command1_Click()
Dim a As Long, a1 As Long, a2 As Long Dim k As Integer, n As Integer For k = 0 To 2
If Op1(k).Value Then
n = Val(Op1(k).Caption) End If —27—
Next k a1 = 1 a2 = 1
For k = 3 To n a = a1 + a2 a1 = a2 a2 = a Next k
Text1.Text = a End Sub
步骤3：运行程序，选中一个单选按钮，并单击\计算\按钮获得一个结果，然后使用窗体右上角的关闭按钮结束程序。
步骤4：按要求将文件保存至考生文件夹中。
第七十一套上机答案解析71
一、基本操作题
第1小题
【审题分析】本题只需按题目要求画出控件，并设置相关属性。
【操作步骤】
步骤1：新建一个\标准EXE\工程，如表1在窗体中画出控件并设置其相关属性。
表1
步骤2：按要求将文件保存至考生文件夹中。 【主要考点】文本框控件。 第2小题
【知识点拔】图片框（PictureBox）主要用于显示图片（支持的图形文件有位图（bmp）、图标（ico）、Windows原文件（wmf））或在其上画图，也可用作其他控件的容器，还可使用Print方法在其上直接输出文本。
【审题分析】本题需要分别在窗体和图片框的的Click事件过程用Print方法输出结果。
【操作步骤】
步骤1：新建一个\标准EXE\工程，在Form1窗体上画出一个图片框并命名为P1。
步骤2：打开代码编辑窗口，编写以下事件过程： 参考代码：
Private Sub Form_Click() Print \单击窗体\End Sub
Private Sub P1_Click()
P1.Print \单击图片框\End Sub
步骤3：按要求将文件保存至考生文件夹中。
二、简单应用题
第1小题
【审题分析】本题通过计时器来控制航天飞机移动。单击\发射\按钮时启动计时器，在计时器的Timer事件过程中，如果航天飞机尚未抵达云层（P1.Top > P2.Top + P2.Height），则通过Move方法，使航天飞机（图片框P1）每次加速上移，否则通过停止计时器来停止航天飞机上移。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt3.vbp，设置计时器的Enabled属性值为False，Interval属性值为100。
步骤2：在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
Timer1.Enabled = True
If P1.Top > P2.Top + P2.Height Then Timer1.Enabled = False
步骤3：按要求将文件保存至考生文件夹中。 【主要考点】计时器控件。 第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)。计算结果显示在标签中，故第二个？处应改为：Str(z)。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt4.vbp，在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码： tmp = tmp * a xn = tmp
z = z + xn(t, i) Label1.Caption = z
步骤2：按
步骤3：按要求将文件保存至考生文件夹中。
三、综合操作题
【审题分析】本题从 in5.txt文件中读入的40个数存放于数组arr中，为了计算出素数的个数以及找出最小的素数，需要使用For循环遍历整个数组，首先假设数组找到的第一个素数就是最小的素数存放与变量mini中，在以后的循环中对数组的每一个元素进行判断其是否是素数，若是素数，则计数器n加1，并且将其与预存的最小素数mini相比较，若其小于mini则更新mini的值，直到循环结束，此时mini就是最小素数，n即为素数的个数。
【操作步骤】
步骤1：打开考生文件中的本题工程文件sjt5.vbp，打开代码编辑窗口，编写\统计\按钮的单击事件过程。
参考代码： n = 0
For k = 1 To 40
If prime(arr(k)) Then If n = 0 Then mini = arr(k) Else
If mini > arr(k) Then mini = arr(k) End If End If n = n + 1 End If Next
Label3.Caption = Str(n) Label4.Caption = Str(mini)
步骤2：按要求将文件保存至考生文件夹中。
步骤3：按
第七十二套上机答案解析72
一、基本操作题
第1小题
【知识点拔】复选框（CheckBox）组常用于提供多个选项间的多重选择，Value属性值决定每个复选框的选中状态：0－Unchecked为未选，1－Checked为选中，2－Grayed为禁用（以灰色呈现）。选择某复选框后，该复选框将显示\√\，而取消选择后，\√\消失。 —28—
【审题分析】本题只需按要求画出控件数组，并设置其Value属性。
【操作步骤】
步骤1：新建一个\标准EXE\工程。
步骤2：在窗体Form1中加入一个复选框，并用\复制\和\粘贴\的方法，生成包含三个元素的复选框数组。
步骤3：分别设置窗体和复选框数0组中各元素的相关属性，其属性及值如表1所示。
表1
步骤4：按要求将文件保存至考生文件夹中。 【主要考点】复选框控件数组。
第2小题
【审题分析】本题需用菜单设计器建立菜单，并编写\显示\和\隐藏\菜单项的单击事件过程控制文本框的Visible属性变化。
【操作步骤】
步骤1：新建一个\标准EXE\工程，在窗体Form1中画一个文本框，在属性设置窗口中将其Name属性值设置为Text1。
步骤2：选择【工具】→【菜单编辑器】命令，打开菜单设计器，如表2中的设置建立菜单项。
表2
步骤3：打开代码编辑窗口，编写以下事件过程： 参考代码：
Private Sub hide_Click() Text1.Visible = False End Sub
Private Sub show_Click() Text1.Visible = True End Sub
步骤4：按要求将文件保存至考生文件夹中。
二、简单应用题
第1小题
【审题分析】PasswordChar属性用于设置屏蔽文本框中内容的字符，要去掉对文本框中输入内容的屏蔽，需将其PasswordChar属性值清空。该属性既可以在属性窗口设置，也可以在代码中进行设置。
【操作步骤】
步骤1：新建一个\标准EXE\工程，如表3在窗体中画出控件并设置其相关属性。
表3
步骤2：在代码编辑窗口，分别编写三个按钮的单击事
件过程。
参考代码：
Private Sub C1_Click()
Text1.PasswordChar = \End Sub
Private Sub C2_Click()
Text1.PasswordChar = \End Sub
Private Sub C3_Click()
C3.Parent.Text2.Text = Text1.Text End Sub
Private Sub Form_Load() Text1.PasswordChar = \End Sub
步骤3：按要求将文件保存至考生文件夹中。 【主要考点】PasswordChar属性。 第2小题
【知识点拔】通用对话框的InitDir属性用于为打开或另存为对话框指定初始的目录，如果此属性没有指定，则使用当前目录。
【审题分析】本题需按要求在图片框的单击事件过程中，通过调用通用对话框的ShowOpen方法实现。
【操作步骤】
步骤1：新建一个\标准EXE\工程，如表4在窗体中画出控件并设置其相关属性。
表4
步骤2：打开代码编辑窗口，编写如下事件过程。 参考代码：
Private Sub P1_Click() CD1.ShowOpen End Sub
步骤3：按要求将文件保存至考生文件夹中。
【特别提示】打开\打开文件\对话框还可使用语句：cdlOpen.Action=1。 三、综合操作题
【审题分析】本题中自定义函数foundhuiwen的功能是判断字符串参数p是否为回文，若是则返回函数值True，否则返回函数值False。根据回文的定义程序设计思路：在For循环中按从两端到中间的顺序，分别用Mid函数依次从字符串参数p中同时取出两个字符，并比较这两个字符是否相同，若不相同则返回函数值False，并用Exit Function语句退出自定义函数；否则继续往下比较直至循环结束。循环正常结束时，返回函数值True。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt5.vbp，如表5所示在窗体上画出控件并设置它们的相关属性。
表5
步骤2： 打开代码编辑窗口，在指定位置编写foundhuiwen函数的过程。
参考代码：
Function foundhuiwen(p As String) foundhuiwen = True k = Len(p)
For i = 1 To k / 2 —29—
If Mid(p,i,1)<>Mid(p,k+1-i,1) Then foundhuiwen = False Exit For End If Next End Function
步骤3：按要求将文件保存至考生文件夹中。
步骤4：按
第七十三套上机答案解析73
一、基本操作题
第1小题
【知识点拔】InputBox()函数用于显示一个输入框，提示用户输入一个数据，该函数返回值默认为字符串类型，其常用语法格式为：InputBox(Prompt[,Title][,Default])。
其中，Prompt字符串为输入框上显示的提示文本；Title字符串在输入框的标题栏上显示；Default字符串为输入框的缺省文本。
【审题分析】要实现本题功能只需在命令按钮的Click事件过程中，编写两条将输入对话框中用户输入内容赋值给文本框Text属性的语句。
【操作步骤】
步骤1：新建一个\标准EXE\工程，在窗体Form1中加入两个标签、两个文本框和一个命令按钮，其相关属性设置如表1所示。
表1
步骤2：双击窗体Form1中的\输入\按钮，在打开的代码编辑窗口中，输入如下代码：
参考代码：
Private Sub Command1_Click()
Text1.Text = InputBox(\请输入身高\ Text2.Text = InputBox(\请输入体重\End Sub
步骤3：按要求将文件保存至考生文件夹中。 【主要考点】InputBox()函数。 第2小题
【知识点拔】①窗体、图像框（ImageBox）和图片框（PictureBox）上均可以显示来自位图、图标、元文件、JPEG或GIF文件的图形。区别在于：图像框专门用于显示位图，而另外两种还提供了画图的功能。为图片框控件指定图片有两种方法：一是在设计阶段通过Picture属性设置；二是在程序运行时通过LoadPicture()图片加载函数加载。②图片框的宽和高分别由其Width属性和Height属性设置。
【审题分析】根据题意，本题需在命令按钮的单击事件过程中编写设置垂直滚动条相关属性的语句，在滚动条的Change事件过程中编写将滚动条的Value属性值赋予图片框Height属性的语句，从而达到利用滚动条控制图片框高度的目的。
【操作步骤】
步骤1：新建一个\标准EXE\工程，在窗体Form1中画一个图片框和一个水平滚动条，在属性设置窗口中设置其相关属性，属性及其值如表2所示。
表2
步骤2：打开代码编辑窗口，分别编写命令按钮的Click事件过程和垂直滚动条的Change事件过程。
参考代码：
Private Sub Command1_Click() VScroll1.Min = 100 VScroll1.Max = 2400
VScroll1.LargeChange = 200 VScroll1.SmallChange = 20 End Sub
Private Sub VScroll1_Change()
Picture1.Height = VScroll1.Value End Sub
步骤3：按要求将文件保存至考生文件夹中。
二、简单应用题
第1小题
【审题分析】本题原程序在添加项目按钮的单击事件中通过输入对话框输入要添加的项目内容，在文本框中显示的同时将其用AddItem添加到列表框中；在删除项目按钮中通过输入对话框中输入要删除的项目，并显示在文本框中，利用For循环语句逐一判断列表框中的各项是否与文本框中的内容一致，若一致则用RemoveItem方法删除该项目。ListCount属性可返回列表框中当前的列表项总数，由于循环的初值为0，故终值就应为Lst1.ListCount-1。
【操作步骤】
步骤1：打开考生文件夹中的本题工程文件sjt3.vbp，如表3所列在窗体Form1中画出控件并设置它们的属性。
表3
步骤2：打开代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
List1.AddItem Text1.Text
For i = 0 To List1.ListCount - 1 If List1.List(i) = Text1.Text Then List1.RemoveItem i
步骤3：按要求将文件保存至考生文件夹中。
【考试误区】列表框中项目的索引号是从0开始的，最后一个项目的索引号应等于Lst1.ListCount-1，而非Lst1.ListCount。
【主要考点】列表框控件及For循环语句。 第2小题
【审题分析】本题程序运行时，单击命令按钮，通过Array()函数返回一个以4个文本框中的数值为元素的数组，并赋值给数组arr1，然后使用For语句将数组arr1中每个元素的数据类型转换为整型并赋给数组arr2具有相同下标的元素，最后以数组arr2为参数调用求最大值的函数过程FindMax。
在FindMax过程中，首先用变量Start 和Finish分别记录下数组a的下界和上界，用变量Max记录下数组a第一个元素的值。然后通过For循环让数组a中的每一个元素逐一与变量Max比较大小，当有数组元素的值大于变量Max时，将其赋值变量Max，最后将变量Max的值作为函数返回值。
【操作步骤】
步骤1：打开考生文件夹下的本题工程文件sjt4.vbp， —30—
在代码编辑窗口，去掉程序中的注释符\，将问号\改为正确的内容。
参考代码：
Start = LBound(a) Finish = UBound(a) Max = a(Start)
If a(i)> Max Then Max = a(i)
arr1=Array(Val(Text1.Text),Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))
arr2(i) = CInt(arr1(i)) M = FindMax(arr2)
步骤2：按要求将文件保存至考生文件夹中。
【特别提示】调用自定义Function过程FindMax需传递参数为数组变量。 三、综合操作题
【审题分析】本题原程序已提供ReadData和WriteData两个自定义过程，只需编写\读入数据\、\计算并输出\和\存盘\命令的单击事件过程，并在事件过程中调用ReadData和WriteData自定义过程。程序设计思路：在\读入数据\菜单项的Click事件过程中，通过调用ReadData过程将数据从datain1.txt文件读入到数组Arr（窗体变量）中；在\计算并输出\菜单项的Click事件过程中，利用For循环语句（循环变量i的初值为1，终值为100）依次将数组Arr中为奇数的元素的值显示在文本框中（条件表达式为：i Mod 2 <> 0），并将其值累加到变量Sum，循环结束后将结果显示在窗体上。在\存盘\菜单项的Click事件过程中，通过调用WriteData过程将Sum的值写入数据文件dataout.txt。
【操作步骤】
步骤1：打开考生文件下的本题工程文件sjt5.vbp，利用菜单设计器，如表4中的设置建立菜单项。
表4
步骤2：在窗体Form1中画一个文本框，其相关属性及
值如表5。
表5
步骤3：在代码编辑窗口，分别编写三个菜单项的
Click事件过程。
参考代码：
Dim Sum As Integer
Private Sub Read_Click() ReadData End Sub
Private Sub Calc_Click() Dim S As String Sum = 0
For i = 1 To 100
If i Mod 2 <> 0 Then Sum = Sum + Arr(i)
S = S & Str(Arr(i)) & \ \ End If Next i
Form1.Text1.Text = S Me.Print \End Sub
Private Sub Save_Click()
WriteData \End Sub
步骤4：按要求将文件保存至考生文件夹中。
【特别提示】在多个过程中使用同一个变量，应将其声明为窗体变量。
第七十四套上机答案解析74
一、基本操作题
第1小题
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库2013年3月全国计算机等级考试二级VB无纸化上机题题库及答案解析((6)在线全文阅读。
相关推荐：