1、二级 VISUAL+BASIC 机试-114 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名称为 Form1 的窗体上画一个文本框，其名称为 Text1， 然后通过属性窗口设置窗体和文本框的属性，实现如下功能：(a)在文本框中可以显示多行文本；(b)在文本框中显示垂直滚动条；(c)文本框中显示的初始信息为“全国计算机等级考试”；(d)文本框中显示的字体为三号、规则、黑体；(e)窗体的标题为“设置文本属性”。完成设置后的窗体如下图所示。（分数：15.00）_2.在窗体上画两个文本框，名称为 Text1，Text2。使得在 运行时，
2、如果在 Text1 中每输入一个字符，则显示一个“*”，同时 在 Text2 中显示输入的内容。程序运行时的界面如下图所示。（分数：15.00）_二、2 简单应用题(总题数：2，分数：40.00)3.在名称为 Form1 的窗体上画出如阿所示的三角形。下表给出了直线 Line1、Line2 的坐标值，请按此表画 Line1、 Line2，并画出直线 Line3，从而组成如图所示的三角形。表 Line1、Line2 的坐标值名称 X1 Y1 X2 Y2Line1 600 1600 1600 600Line2 600 1600 2600 1600（分数：20.00）_4.在考生文件夹下有一个工程文
3、件 T507.vbp，其窗体上 有一个文本框，名称为 Text1；还有一个命令按钮，名称为 C1，标 题为“计算”，如图所示。有一个函数 isprime( )可以在程序中直 接调用，其功能是判断参数 a 是否为素数，如果是素数，则返回 True，否则返回 False。请编写适当的事件过程，使得在运行时， 单击“计算”按钮，则找出小于 2000 的最大素数，并显示在 Text1 中。注意：考生不得修改 isprime( )函数过程和控件的属性。试题源程序：1 Private Function isprime(a As Integer)As Boolean2 Dim flag As Boolean
4、3 flag=True4 b%=25 Do while b%=Int(a/2)And flag6 If Int(a/b%)=a/b%T hen7 flag=False8 Else9 b%=b%+110 End If11 Loop12 isprime= flag13 End Eunction（分数：20.00）_三、3 综合应用题(总题数：1，分数：30.00)5.在名称为 Form1 的窗体中画三个命令按钮(名称分别为 Command1、Command2 和 Command3，标题分别为“显示”、“统计”和“保存”)，然后画一个文本框(名称为 Text1，MultiLine 属性设置为True
5、，ScrollBars 属性设为 2)，如下图所示。程序运行后，如果单击“显示”则读入程序中的文本，并在文本框中显示出来，如下图所示。（分数：30.00）_二级 VISUAL+BASIC 机试-114 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在名称为 Form1 的窗体上画一个文本框，其名称为 Text1， 然后通过属性窗口设置窗体和文本框的属性，实现如下功能：(a)在文本框中可以显示多行文本；(b)在文本框中显示垂直滚动条；(c)文本框中显示的初始信息为“全国计算机等级考试”；(d)文本框中显示的字体为三号、规则、黑体；(e)
6、窗体的标题为“设置文本属性”。完成设置后的窗体如下图所示。（分数：15.00）_正确答案：(第一步：启动 Visual Basic，新建一个工程文件。第二步：单击工具箱上的“文本框”控件，在窗体上画一个文本框，将其 Name 属性设置为 Text1，Text属性设置为“程序设计”，Font 属性中设置字体为黑体，字号为三号，MultiLine 属性设为True，ScrollBars 属性值设为 2；将 Form1 的 Caption 设为“设置文本框属性”。第三步：调试并运行程序，运行正确后按要求保存。)解析：解析 MultiLine 属性如果设为 False，则在文本框中只能输入单行文字；当
7、设为 True 时，可以使用多行文本，即在文本框中输入或输出文字时可以换行，并在下一行接着输入或输出。ScrollBars 属性用来设置文本框是否有滚动条，要使文本框有垂直滚动条，将其设为 2 即可。注意，要使得文本框有滚动条，其 MultiLine 属性必须为 True。2.在窗体上画两个文本框，名称为 Text1，Text2。使得在 运行时，如果在 Text1 中每输入一个字符，则显示一个“*”，同时 在 Text2 中显示输入的内容。程序运行时的界面如下图所示。（分数：15.00）_正确答案：(第一步：启动 Visual Basic，新建一个工程文件。第二步：单击工具箱中的“文本框”控件
8、，在窗体上画两个文本框，Name 属性分别设为 Text1 和 Text2，把 Text1 的 PasswordChar 属性设为“*”。第三步：编写程序源代码：1 Private Sub Text1_Change( )2 Text2. Text=Text1. Text3 End Sub第四步：调试并运行程序，运行正确后保存。程序设计完成经调试无误后进行存盘。以 sit2. vbp 和sjt2. frm 进行保存。)解析：解析 文本框的 Passwordchar 在默认状态下被设置为空字符串(不是空格)，用户从键盘上输入时，每个字符都可以显示出来，若设为非空的某个字符，则运行时文本框中显示设置
9、的那个字符，而非输入的内容。现要求显示*，所以将 Password-Char 属性设为*即可。不过要引起注意的是该文本框的 Text 属性还是输入的内容，所以把 Text1 的 Text 属性值赋给 Text2 时，就可以在 Text2 中显示输入的内容。二、2 简单应用题(总题数：2，分数：40.00)3.在名称为 Form1 的窗体上画出如阿所示的三角形。下表给出了直线 Line1、Line2 的坐标值，请按此表画 Line1、 Line2，并画出直线 Line3，从而组成如图所示的三角形。表 Line1、Line2 的坐标值名称 X1 Y1 X2 Y2Line1 600 1600 160
10、0 600Line2 600 1600 2600 1600（分数：20.00）_正确答案：(第一步：启动 Visual Basic，新建一个工程文件。第二步：编写程序源代码：1 Private Sub Form Load( )2 Me. Line(600，1600)-(1600，600)3 Me. Line(600，1600)-(2600，600)4 Me. Line(2600，600)-(1600，600)5 End Sub第三步：调试并运行程序，运行正确后按要求保存。)解析：解析 本题主要考查 Line 方法。不通过形状控件，用户通过 Line 方法建立自定义的图形。题目要求画出一个三角形
11、，那就是要求画出首尾相连的三条直线，根据题日已经给出的两组(X1，Y1)、(X2，Y2)的坐标，我们很容易就可以计算出第三条直线的起始点和终止点坐标。而对于 Line 方法，只要给出了起始点和终止点坐标，一条直线便生成了，所以代码中通过三条 Line 语句画出三条直线组成了题目所要求的一个三角形。4.在考生文件夹下有一个工程文件 T507.vbp，其窗体上 有一个文本框，名称为 Text1；还有一个命令按钮，名称为 C1，标 题为“计算”，如图所示。有一个函数 isprime( )可以在程序中直 接调用，其功能是判断参数 a 是否为素数，如果是素数，则返回 True，否则返回 False。请编
12、写适当的事件过程，使得在运行时， 单击“计算”按钮，则找出小于 2000 的最大素数，并显示在 Text1 中。注意：考生不得修改 isprime( )函数过程和控件的属性。试题源程序：1 Private Function isprime(a As Integer)As Boolean2 Dim flag As Boolean3 flag=True4 b%=25 Do while b%=Int(a/2)And flag6 If Int(a/b%)=a/b%T hen7 flag=False8 Else9 b%=b%+110 End If11 Loop12 isprime= flag13 End
13、 Eunction（分数：20.00）_正确答案：(第一步：启动 Visual Basic，打开考生文件夹下的工程文件 T507. vbp。第二步：双击窗口中的任何位置，进入程序编辑窗口，补充程序如下：1 Private Sub C1_Click( )2 Static a As Integer3 Dim i As Integer4 For i=1 To 20005 Call isprime(i)6 If isprime(i)=True Then7 a=i8 End If9 Next i10 Me.Text1. Text=a11 End Sub第三步：调试运行程序，正确后以原文件名保存。)解析：
14、解析 本题主要考查过程函数的调用以及 For 循环语句的使用。考生可在窗体上双击 C1，进入程序编写窗口。根据题意，主要是使 2000 以内的最大素数显示在文本框中，故可以使用 For 循环语句，令变量 i 在 12000 之间取值，逐一作为实参调用 isprime( )函数过程，当遇到 isprime( )函数过程返回True 值时，把 i 的值赋给 a。这样循环便可得到 2000 以内的最大素数。这也是本题最后所给两点要求的原因。三、3 综合应用题(总题数：1，分数：30.00)5.在名称为 Form1 的窗体中画三个命令按钮(名称分别为 Command1、Command2 和 Comma
15、nd3，标题分别为“显示”、“统计”和“保存”)，然后画一个文本框(名称为 Text1，MultiLine 属性设置为True，ScrollBars 属性设为 2)，如下图所示。程序运行后，如果单击“显示”则读入程序中的文本，并在文本框中显示出来，如下图所示。（分数：30.00）_正确答案：(第一步：启动 Visual Basic，打开考生文件夹下的工程文件 T506.vbp。第二步：单击工具箱，拖拉出一个文本框、三个命令按钮置于 Form1 上，属性设置如下：文本框的MultiLine 属性设为 True，ScroilBars 属性选择 2，三个命令按钮的 Caption 属性分别为“显示”
16、、“统计”和“保存”，其余均采用默认设置。第三步：窗体设计完毕后，双击窗体中的任何位置，进入代码编辑窗口，编辑代码如下：1 Dim sen0 As String2 Dim sen As String3 Private Sub Command1 Click( )4 Open App. Path &“/inzhyy10.txt“ For Input As #15 Line Input #1, sen06 sen=sen + sen07 Close #18 Me. Text1. Text=sen9 End Sub10 Private Sub Command2 Click( )11 Dim n As
17、Integer12 Dim oldSen As String13 Dim ch As String14 oldSen=Text1.Text15 strlen=Len(oldSen)16 For i=1 To strlen17 ch=Mid(oldSen，i，1)18 If Asc(ch)=70 And Asc(ch)=100 Then19 n=n+120 End If21 Next i22 Text1.Text=Me.Text1.Text+Str(n)23 End Sub24 Private Sub Command3_Click( )25 Open App. Path &“/outzhyy10
18、.txt“For Output As #126 Write #1, Me Text1.Text27 Close #128 End Sub第四步：编写完毕，调试无误后，以原文件名保存到原文件夹下。)解析：解析 本题要求考生编写三个按钮的 Click 事件过程，三个代码的功能分别为：读取数据，统计数据以及保存数据。Command1 的 Click 事件为“显示”，即读文件并显示在文本框中的一个过程。待读的文本是一个多行文本，故我们一行行读入后赋给一个字符串变量，最后将此字符串变量赋给文本框的 Text 属性，具体代码为：1 Open App Path & “/inzhyy10. txt“For I
19、nput As #12 Line Input #1，sen03 sen=sen+sen04 Close #15 Me. Text1. Text=senCommand2 的 Click 事件为统计读入的字符中 ASCII 码值大于等于 70 且小于等于 100 的字符个数，程序通过一个 For 循环对读入的各个字符逐一检查，最后统计出总个数。具体核心代码为：1 For i=1 To strlen2 ch=Mid(oldSen，i，1)3 If Asc(ch)=70 And Asc(eh)=100 Then4 n=n+15 End If6 Next iCommand3 的 Click 事件为保存，即将文本框的内容写入文件，经过多次训练，这对于考生来说应该很简单，代码为：1 Open App. Path &“/outzhyy10. txt“ For Output As #12 Write #1, Me. Text1. Text3 Close #1这里我们采用了 Write#语句。
