1、二级 VISUAL+BASIC 机试-98 及答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在 Form1 的窗体上绘制一个图片框其名称为 Picimages/ture1。编写适当的事件过程，使程序运行后，若单击窗体，则从图片框的(300,600)位置处开始显示“Visual Basic”。程序运行情况如下图左图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 sj1.vbp，窗体文件名为Sj1.frm。（分数：15.00）_2.在 Form1 的窗体上绘制一个文本框，名称为 Text1；绘制一个命令按钮，
2、名称为 Command1，标题为“显示”，TabIndex 属性设为 0。请为 Command1 设置适当的属性，使得当焦点在 Command1 时，按 Esc 键就调用 Command1 的 Click 事件，该事件过程的作用是在文本框中显示“Visual Basic 程序没计”，程序运行结果如下图右图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 sj2.vbp，窗体文件名为sj2.frm。（分数：15.00）_二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹中有一个工程文件 sj3.vbp 和一个窗体文件 sj3.frm；窗体上有一个名为
3、Text1 的文件框，一个标题为“计算”，名称为 Command1 的命令按钮和一个组合框。请在名为 Combo1 的组合框中输入 3 个列表项：“5”、“9”、“13”(列表项的顺序不限，但必须是这 3 个数字)，程序运行情况如下图所示。请编写适当的事件过程，使得程序运行时，在组合框中选定一个数字后，单击“计算”按钮，则计算4000 以内能够被该数整除的所有数之和，并放人 Text1 中。最后按原文件名存盘(提示：由于计算结果较大，应使用长整型变量)。注意：不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。必须用窗体右上角的关闭按钮结束程序，否则无成绩。（分数：20
4、.00）_4.在考生文件夹中有一个工程文件 sj4.vbp 及窗体文件 sj4.frm。在名为 Form1 的窗体上有一个圆和一条直线(直线的名称为 Line1)构成一个钟表的图案；有两个命令按钮，名称分别为 Command1 和 Command2，标题分别为“开始”和“暂停”，还有一个名为 Timer1 的计时器。程序运行时，钟表指针不动，单击“开始”按钮，则钟表上的指针(即 Line1)开始顺时针旋转(每秒转 6，一分钟转一圈)；单击“暂停”按钮，则指针暂停旋转。运行时的窗体如下图所示。请设置计时器的适当属性，使得每秒激活计时器的 Timer 事件一次；编写两个按钮的 Click 事件过程
5、。文件中已经给出了所有控件和部分程序，不得修改已有程序和其他控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后按原文件名并在原文件夹中保存修改后的文件。（分数：20.00）_三、3 综合应用题(总题数：1，分数：30.00)5.在考生文件夹下有文件 in5.txt，文件中有几行汉字。请在窗体 Form1 上绘制一个文本框，名称为Text1，能显示多行；再绘制一个命令按钮，名称为 Command1，标题为“保存”，并编写适当的事件过程，使得在加载窗体时，把 in5.txt 文件的内容显示在文本框中，然后在文本的最前面手工插入一行汉字：“全国计算机等级考试”，如下图所示。最后单击“保
6、存”按钮，可以把文本框中修改过的内容存到文件out5.txt 中。注意：只能在最前面插入文字，不能修改原有文字。文件必须存放在考生文件夹中，以 sj5.vbp 为文件名存储工程文件，以 sj5.frm 为文件名存储窗体文件。（分数：30.00）_二级 VISUAL+BASIC 机试-98 答案解析(总分：100.00，做题时间：90 分钟)一、1 基本操作题(总题数：2，分数：30.00)1.在 Form1 的窗体上绘制一个图片框其名称为 Picimages/ture1。编写适当的事件过程，使程序运行后，若单击窗体，则从图片框的(300,600)位置处开始显示“Visual Basic”。程序
7、运行情况如下图左图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 sj1.vbp，窗体文件名为Sj1.frm。（分数：15.00）_正确答案：(本题主要考查图片框控件的画法和属性设置，以及简单的窗体事件的编写。根据题意，新建“标准 EXE”工程，在窗体上添加一个名称为 Picimages/ture1 的图片框，设计完成后，进入代码窗口编写如下代码：Private Sub Form_Click()Picimages/ture1.CurrentX=300 图片框 X 方向坐标Picimages/ture1.CurrentY=600 图片框 Y 方向坐标Picimage
8、s/ture1.Print“Visual Basic“ 在图片框显示 Visual BasicEnd Sub单击 )解析：2.在 Form1 的窗体上绘制一个文本框，名称为 Text1；绘制一个命令按钮，名称为 Command1，标题为“显示”，TabIndex 属性设为 0。请为 Command1 设置适当的属性，使得当焦点在 Command1 时，按 Esc 键就调用 Command1 的 Click 事件，该事件过程的作用是在文本框中显示“Visual Basic 程序没计”，程序运行结果如下图右图所示。注意：程序中不得使用任何变量；文件必须存放在考生文件夹中，工程文件名为 sj2.vb
9、p，窗体文件名为sj2.frm。（分数：15.00）_正确答案：(命令按钮的 Cancel 属性返回或设置一个值，用来指示窗体中命令按钮是否为取消按钮，它有两种取值：True 和 False。值为 True 时，命令按钮不是窗体的取消按钮，按 Esc 键与单击该命令按钮的作用相同；值为 False 时，命令按钮是窗体的取消按钮。根据题意，新建“标准 EXE”工程，在窗体上添加一个文本框，其名称为“Text.1”，一个命令按钮，其名称为 Command1，Caption 属性为“显示”，Cancel 属性为“True”，TabIndex 属性为 0。设置完成后双击 command1 命令按钮，编
10、写如下代码：Private Sub Command1_Click()Text1.Text=“Visual Basic 程序设计“End Sub单击 )解析：二、2 简单应用题(总题数：2，分数：40.00)3.在考生文件夹中有一个工程文件 sj3.vbp 和一个窗体文件 sj3.frm；窗体上有一个名为 Text1 的文件框，一个标题为“计算”，名称为 Command1 的命令按钮和一个组合框。请在名为 Combo1 的组合框中输入 3 个列表项：“5”、“9”、“13”(列表项的顺序不限，但必须是这 3 个数字)，程序运行情况如下图所示。请编写适当的事件过程，使得程序运行时，在组合框中选定一
11、个数字后，单击“计算”按钮，则计算4000 以内能够被该数整除的所有数之和，并放人 Text1 中。最后按原文件名存盘(提示：由于计算结果较大，应使用长整型变量)。注意：不得修改窗体文件中已经存在的程序，在结束程序运行之前，必须至少进行一次计算。必须用窗体右上角的关闭按钮结束程序，否则无成绩。（分数：20.00）_正确答案：(组合框(ComboB0x)将文本框与列表框的特性组合在一起，既可在组合框的文本框部分输入信息，也可在列表框部分选择项目；组合框的列表项可以在设计阶段通过其 List 属性加入，加入时注意每输入完一项后，按Ctrl+Enter组合键换行再输入下一项，也可以通过代码设置，Ad
12、dItem 方法用来向组合框中添加一个表项，其格式为：组合框Additem 列表项索引。题目给出的源程序中已设计好窗体，只需在 Combo1 的 List 属性中添加“5”、“9”、“13”三个列表项，添加完成后，双击 Command1 进入代码窗口，补充后的代码如下：Private Sub Command1_Click()If Combo1.Text=5 Thendivide(5)Else If Combo1.Text=9 Thendivide(9)Elsedivide(13)End IfEnd SubPrivate Sub divide(X As Integer)Dim i As Inte
13、gerDim temp As LongFor i=1 To 4000If i Mod x=0 Thentemp=temp+iEnd IfNext iText1.Text=tempEnd Sub单击 )解析：4.在考生文件夹中有一个工程文件 sj4.vbp 及窗体文件 sj4.frm。在名为 Form1 的窗体上有一个圆和一条直线(直线的名称为 Line1)构成一个钟表的图案；有两个命令按钮，名称分别为 Command1 和 Command2，标题分别为“开始”和“暂停”，还有一个名为 Timer1 的计时器。程序运行时，钟表指针不动，单击“开始”按钮，则钟表上的指针(即 Line1)开始顺时针
14、旋转(每秒转 6，一分钟转一圈)；单击“暂停”按钮，则指针暂停旋转。运行时的窗体如下图所示。请设置计时器的适当属性，使得每秒激活计时器的 Timer 事件一次；编写两个按钮的 Click 事件过程。文件中已经给出了所有控件和部分程序，不得修改已有程序和其他控件的属性；编写的事件过程中不得使用变量，且只能写一条语句。最后按原文件名并在原文件夹中保存修改后的文件。（分数：20.00）_正确答案：(本题主要考查计时器控件和形状控件和用法。计时器的 Interval 属性用于设置每次触发计时器的 Timer 事件的时间间隔，单位为毫秒。Enabled 属性控制计时器是否开始启用，True 表示启用，F
15、alse 表示不启用。形状控件用来绘制各种形状，其值有 6 种，0 表示矩形，1 表示正方形，2 表示椭圆，3 表示圆形，4 表示圆角矩形，5 表示圆角正方形。根据题意，将计时器的 Interval 属性设为 1000，双击 Command1 命令按钮，进入代码窗口，源程序给出的代码如下：Dim lenth As Integer，q As IntegerConst PI=3.14159Private Sub Form_Load()lenth=Line1.Y2-Line1.Y1q=90End SubPrivate Sub Timer1_Timer()q=q-6Line1.Y1=Line1.Y2-
16、lenth*Sin(q*PI/180)Line1.X1=Line1.X2+lenth*Cos(q*PI/180)End Sub补充后的命令按钮事件如下：Private Sub Command1_Click()Timer1.Enabled=TrueEnd SubPrivate Sub Command2_Click()Timer1=FalseEnd Sub单击 )解析：三、3 综合应用题(总题数：1，分数：30.00)5.在考生文件夹下有文件 in5.txt，文件中有几行汉字。请在窗体 Form1 上绘制一个文本框，名称为Text1，能显示多行；再绘制一个命令按钮，名称为 Command1，标题为
17、“保存”，并编写适当的事件过程，使得在加载窗体时，把 in5.txt 文件的内容显示在文本框中，然后在文本的最前面手工插入一行汉字：“全国计算机等级考试”，如下图所示。最后单击“保存”按钮，可以把文本框中修改过的内容存到文件out5.txt 中。注意：只能在最前面插入文字，不能修改原有文字。文件必须存放在考生文件夹中，以 sj5.vbp 为文件名存储工程文件，以 sj5.frm 为文件名存储窗体文件。（分数：30.00）_正确答案：(根据题意，在窗体上添加一个文本框控件，其名称为 Text1，MuhiLine 属性为 True，一个命令按钮，其名称为 Command1，标题为“保存”。设置完成
18、后，双击 Command1 命令按钮进入代码窗口，编写如下代码：Private Sub Form_Load()Open“./in5.txt“For Input As # 1Do While Not EOF(1)Input # 1，mystringText1.Text=Text1.Text+mystringLoopClose # 1Text1.Text=“全国计算机等级考试“+Text1.TextEnd SubPrivate Sub Command1_Click()Open App.Path&“/out5.txt“For Output As # 2Print # 2,Text1.TextClose # 2End Sub单击 )解析：
