全国计算机等级考试二级VB上机试题及答案（一）

全国计算机等级考试二级VB上机试题及答案(一)

基本操作（2小题，每题15分，共30分）

**************************************************************** 请根据以下各小题的要求设计VB应用程序（包括界面和代码）。 （1）在名称为Form1的窗体上画一个名称Text1的文本框，其高、宽分别为400、2000。请在属性框中设置适当的属性以满足以下要求： 1）Text1的字体为\黑体\，字号为\四号\；

2）窗体的标题为\输入\，不显示最大化和最小化按钮。 运行后的窗体如图所示。

*注意：存盘时必须存放在考生文件夹下，工程文件名为stj1.vbp，窗体文件名为stj1.frm。

（2）在名称为Form1的窗体中建立一个名为Command1、标题为\显示\的命令按钮。要求程序运行后，如果单击\显示\按钮，则执行语句Form1.Print\显示\；如果单击窗体，则执行语句Form1.Cls。程序运行时的界面如图所示。

*注意：保存时必须存放在考生文件夹下，窗体文件名为stj2.frm。工程文件名为stj2.vbp。

参考答案与分析

（1）【解析】

本题主要考查窗体属性的设置。窗体的Caption属性决定其标题，MaxButton和 MinButton决定了窗体显示时的表现形式，如果为True，则表示可以将窗体最大化或最小化，若为False，则不可最大化或最小化。

文本框中的字体可以通过Font属性窗口设置，可以设置其字体，字号，字形，是否有下划线，删除线等。 【答案】

步骤1：启动VB，新建工程文件。 步骤2：双击工具箱中的文本框控件，在窗体上画一个文本框，Name属性为Text1，Text属性设为空。Font属性中设置字体为\黑体\，字号为\四号\；将Form1的

Caption属性设为\输入\，MaxBotton与MinBotton属性均设为False。 步骤3：通过双击窗口进入代码编辑窗口编写代码如下： 1 Private Sub Form_Load() 2 Text1.Text = \计算机考试\3 End Sub

步骤4：保存。程序设计完成经调试无误后进行存盘。执行\文件\菜单中的\保存工程\命令，打开\文件另存为\对话框，窗体文件名为\，单击保存按钮。然后在紧接着出现的\工程另存为\对话框中选择工程文件名为\，单击保存按钮。 （2）【解析】

本题主要考查Print方法用于在图片框和窗体中显示内容。格式为：对象

名.print 待显示的内容；Cls方法用于在图片框和窗体中清除内容，格式为：对象名.Cls 【答案】

步骤1：启动VB，新建工程文件。

步骤2：在窗体上画一按钮，将其Name属性设置为Command1，Caption属性为\显示\。

步骤3：编辑源代码：

1 Private Sub Command1_Click() 2 Form1.Print \显示\3 End Sub

4 Private Sub Form_click() 5 Form1.Cls 6 End Sub

步骤4：保存。程序设计完成经调试无误后进行存盘。以Stj2.vbp和sjt2.frm进行保存。

简单操作（2小题，每题20分，共40分）

**************************************************************** 请根据以下各小题的要求设计VB应用程序（包括界面和代码）。

（1）在窗体上建立一个名称为Text1的文本框，建立一个名称为Calculate，标题为\计算\的命令按钮（如图所示）。要求程序运行后，如果单击\计算\按钮，则求出100~200之间所有可以被3整除的数的总和，在文本框中显示出来，并把结果存入考生文件夹下的out003.txt文件中。注意，在考生的文件夹下有一个名为stj3.vbp的工程文件，其中提供了保存文件的过程putdata，考生可以直接用。

*注意：保存时必须存放在考生文件夹下，窗体文件名为stj3.frm。工程文件名为stj3.vbp。

已给的的程序代码为： 1 Option Explicit

2 Sub putdata(t_FileName As String, t_Str As Variant) 3 Dim sFile As String

4 sFile = \

5 Open App.Path & sFile For Output As #1 6 Print #1, t_Str 7 Close #1 8 End Sub

（2）在考生文件夹中有工程文件stj4.vbp及其窗体文件 stj4.frm，该程序是不完整的，请在有？号的地方填入正确内容，然后删除？及所有注释符（'），但不能修改其他部分。存盘时不得改变文件名和文件夹。

本题描述如下：在窗体上有一个名称为Text1的文本框，一个名称为CCheck，标题为\校验\的命令按钮。其中文本框用来输入口令（如图所示），要求在文本框中输入的内容都必须以\显示（请考生自己通过属性窗口设置）。要求程序运行后，输入口令，单击命令按钮后，对口令进行校验。如果输入的内容是ABC这3个字母，则用MsgBox信息框输出\正确\，否则输出\错误\

2 Private Sub CCheck_Click()

3 ' If Text1.Text = \

4 ' MsgBox \5 Else

6 MsgBox \错误\7 End if 8 End Sub

参考答案与分析

（1）【解析】

本题主要考查数据的输出和基本的算法，考察if…then…end if的运用。If语句，它有两种格式，一种是单行结构，一种是块结构。单行条件语句比较简单，其格式为：If 条件Then then部分 [ Else else部分]。块结构条件语句以If开头，以End If结束，中间有多个elseif分支，可以用于对多个不同条件进行比较判断，从而执行对应的语句。 【答案】

步骤1：启动VB，打开考生文件夹一下的工程文件sjt3.vbp。 步骤2：设计窗体。

分别单击工具箱中的控制按钮与文本框。先在窗体上画出一个控制按钮，命名为Calculate，Caption属性为\计算\。画一个文本框，Name属性为Text1。 步骤3：编写代码。 根据题意，Calculate的Click事件过程首先要在100到200之间选择3的倍数。这是一个常见的问题，可以使用For循环遍试100到200之间所有的整数。在If的执行过程中，遇到 i Mod 3 = 0，则把i值加到temp上。If循环执行完毕，把temp值赋给Text1的Text属性。最后就是调用putdata过程。 双击窗体上的Calculate按钮进入事件过程，编写程序代码： 1 Private Sub Calculate_Click() 2 Dim temp As Long 3 Dim i As Integer 4 For i = 100 To 200 5 If i Mod 3 = 0 Then 6 temp = temp + i 7 End If

8 Next1.Text = temp

9 putdata \10 End Sub

步骤4：填写完毕，调试成功后，以原文件名保存。 （2）【解析】

本题主要考查对话框的运用。本题中用到条件语句也称为If语句，它有两种格