vb计算机等待用户输入的语句,2012年计算机二级VB上机试题及解题思路第九套

1. 基本操作(2小题，每小题15分，共计30分)

注意：下面出现的“考生文件夹”均为%USER%

**********************************************************************

请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。

(1)在名称为Form1 的窗体上画两个命令按钮，其名称分别为Command1和Command2，标题分别为“扩大”和“移动”。如图所示，编写适当的事件过程。程序运行后，如果单击Command1命令按钮，则使窗体在高、宽方向上各增加0.2倍(变为原来的1.2倍);如果单击Command2命令按钮，则使窗体向右移动200，向下移动100。

要求：

程序中不得使用变量。

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

解题思路：

启动Visual Basic系统，创建一个Form1窗体。

该窗体上画二个命令按钮控件，通过其属性窗口将名称分别设为Command1、Command2，标题(Caption属性)分别设为“扩大”和“移动”。

单击“扩大”按钮(即运行Click事件过程)，在该Click事件过程中加入语句：

Private Sub Command1_Click()

Height = 1.2 * Height

Width = Width * 1.2

End Sub

单击“移动”按钮(即运行Click事件过程)，在该Click事件过程中加入语句：

Private Sub Command2_Click()

Left = 200 + Left

Top = Top + 100

End Sub

参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt1.vbp、sjt1.frm、sjt1.vbw

请把这些文件复制到c:\wexam\26990001中，然后打开sjt1.vbp文件并运行。

**********************************************************************

(2)在名称为 Form1的窗体上画一个标签，其名称为Label1，标题为“计算机等级考试”，Left属性为0; 再画一个水平滚动条，其名称为HScroll1，在属性窗口中设置其属性如下：

Min 0

Max 3000

SmallChange 10

LargeChange 100

编写适当的事件过程。程序运行后，如果移动滚动条上的滚动框，则可使标签向相应的方向移动，标签距窗体左边框的距离等于滚动框的位置，程序的运行情况如图所示。

要求：

程序中不得使用变量，每个事件过程中只能写一条语句。

注意：

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

解题思路：

启动Visual Basic系统，创建一个Form1窗体。

在该窗体上画一个标签控件，通过其属性窗口将名称设为Label1，标题(Caption属性)设为“计算机等级考试”，Left属性设为0。画一个水平滚动条控件，通过其属性窗口将名称设为HScroll1，Min属性设为0，Max属性设为3000，SmallChange属性设为10，LargeChange属性设为100。

移动滚动条上的滚动框(即运行Scroll事件过程)，在该Scroll事件过程中加入语句：

Private Sub HScroll1_Scroll()

Label1.Left = Form1.HScroll1

End Sub

单击滚动条上的方向按钮(即运行Click事件过程)也能实现题目所要求的功能，在该Click事件过程中加入语句：

Private Sub HScroll1_Change()

Label1.Left = Me.HScroll1

End Sub

参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt2.vbp、sjt2.frm、sjt2.vbw

请把这些文件复制到c:\wexam\26990001中，然后打开sjt2.vbp文件并运行。

2. 简单应用(2小题，每题20分，计40分)

注意：下面出现的“考生文件夹”均为%USER%

***********************************************************************

(1)在名称为Form1的窗体上画一个计时器，其名称为Timer1;再画一个图像框，其名称为Image1，在该图像框中装入一个图形文件pic.ico;然后画一个水平滚动条， 其名称为HScroll1， Min属性值为100，Max属性值为1200，LargeChange属性值为100，SmallChange属性值为25，编写适当的事件过程。 程序运行后，可以使图像框闪烁，其闪烁速度可以通过滚动条调节。

提示：

图像框的闪烁可以通过图像框交替地显示和隐藏来实现。

要求：

程序中不得使用变量，每个事件过程中只能写一条语句。

注意：

存盘时必须存放在考生文件夹下，工程文件名为sjt3.vbp，窗体文件名

为sjt3.frm。

解题思路：

启动Visual Basic系统，创建一个Form1窗体。

在该窗体上画一个计时器控件，通过其属性窗口将名称设为Timer1。画一个图像框，通过其属性窗口将名称设为Image1，通过Picture属性将图形文件pic.ico装入。画一个水平滚动条，通过其属性窗口将名称设为HScroll1，Min属性设为100，Max属性设为1200，LargeChange属性设为100，SmallChange属性设为25。

点击滚动条(即运行Change事件过程)，在Change事件过程中加入语句：Timer1.Interval =HScroll1.Value。还需在计时器的Timer事件过程中加入语句：Image1.Visible = Not Image1.Visible，即完

成了图像框交替地显示和隐藏功能。

参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt3.vbp、sjt3.frm、sjt3.frx、sjt3.vbw

请把这些文件复制到c:\wexam\26990001中，然后打开sjt3.vbp文件并运行。

**********************************************************************

(2)在考生目录下有一个工程文件sjt4.vbp，包含了所有控件和部分程序，如图所示。

要求：

1)利用属性窗口设置适当的属性:

为List1列表框添加3个项目：宋体、黑体、楷体_GB2312;Text1文本框设置初始值为“计算机”;Hscroll1水平滚动条设置最小值和最大值分别为10和50。

2)去掉程序中的注释符，把程序中的 ?改为正确的内容， 完成以下功能：如果在列表框中选择一种字体，然后移动滚动条中的滚动框，则可使文本框中的文字按所选择的字体显示，并可随着滚动框的移动放大或缩小;如果不选择字体直接移动滚动框，则显示一个信息框，提示“请选择字体”。

注意：

去掉程序中的注释符，把程序中的 ?改为正确的内容， 使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。

解题思路：

启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt4.vbp，相应的窗体文件名为sjt4.frm。

由于所提供的窗体控件不完整，通过属性窗口向列表框中添加项目(List属性)，添加的项目分别为：宋体、黑体、楷体_GB2312，每个项目为一行。通过属性窗口将文本内容(Text属性)设为“计算机”。通过属性窗口将水平滚动条最小值(Min属性)设为10，最大值(Max属性)设为50。

由于所提供的窗体程序不完整，在水平滚动条的Private Sub HScroll1_Change()事件过程中，有二处地方

需要修改。

1) 将语句

'Text1.FontSize = ?

改为

Text1.FontSize = HScroll1.Value

2) 将语句

'Text1.FontName = ?

改为

Text1.FontName = List1.Text

参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt4.vbp、sjt4.frm、sjt4.frx、sjt4.vbw

请把这些文件复制到c:\wexam\26990001中，然后打开sjt4.vbp文件并运行。

3. 综合应用(1小题，计30分)

注意：下面出现的“考生文件夹”均为%USER%

在考生文件夹下有一个工程文件sjt5.vbp，已给出了部分控件和部分程序。程序运行时，请在窗体上画三个标签，其名称分别为Label1、Label2和Label3，标题分别为“姓名”、“电话号码”和“邮政编码”。 再画三个文本框，其名称分别为Text1、Text2和Text3，初始内容均为空白，如图所示。程序运行后，如果单击“显示第三个记录”命令按钮， 则读取考生文

件夹下in5.txt文件中的第三个记录，将该记录的三个字段分别显示在三个文本框中(该文件是一个用随机存取方式建立的文件，共有5个记录)。单击“保存”按钮， 则把该记录(三个字段)保存到考生文件夹下的顺序文件out5.txt中。

请编写“显示第三个记录”按钮的Click事件过程，以实现上述功能。

注意：

考生不得修改已经存在的程序，必须用“保存”按钮存储结果， 否则无成绩。最后，按原文件名把程序存盘。

解题思路：

启动Visual Basic系统，打开考生文件夹下需编辑的工程文件sjt5.vbp，相应的窗体文件名为sjt5.frm。

在该窗体上画三个标签控件，通过其属性窗口将名称分别设为Label1、Label2和Label3，标题(Caption属性)分别设为“姓名”、“电话号码”和“邮政编码”。画三个文本框控件，通过其属性窗口将名称分别设为Text1、Text2和Text3，文本内容(Text属性)均设为空。

单击“显示第三个记录”按钮(即运行Click事件过程)，在该Click事件过程中加入语句：

Private Sub Command1_Click()

Dim Pal As Paltype

Open App.Path & "\in5.txt" For Random As #1 Len = Len(Pal)

Get #1, 3, Pal

Text1.Text = Pal.Name

Text2.Text = Pal.Tel

Text3.Text = Str(Pal.Post)

Close 1

End Sub

参考文件：c:\wexam\26990001\hlpsys\参考答案\sjt5.vbp、sjt5.frm、sjt5.vbw、out5.txt

请把这些文件复制到c:\wexam\26990001中，然后打开sjt5.vbp文件并运行。