全国计算机二级VB上机题库（题+答案）

End Sub

Private Sub Form_Load() Text1.Text = \End Sub

Private Sub Timer1_Timer() '? s As Integer

Static s1 As Integer Static s2 As Integer Static s3 As Integer s = s + 1 'If ? Then s = 0 Select Case s Case 1 s1 = s1 + 1 Case 2, 3 s2 = s2 + 1 Case 4, 5, 6 s3 = s3 + 1 End Select Text1.Text = s1 Text2.Text = s2 Text3.Text = s3 End Sub

（2）研读Cmd1_Click(Index As Integer)事件处理程序，可知命令按钮为数组。从它们的属性窗口中可以得知“开始计数”按钮的Index=0，第1个“?”处应填Index。而且本题与简单应用题的第2题很相似，可以得知第2个和第3个“？”处均应为Enabled。

（3）研读Timer1_Timer()事件处理程序，s也应该使用Static声明，If语句判断s是否大于6。通过该参数，可以得知Timer的Interval属性值应设置为1000。 （4）完整的程序如下：

Private Sub Cmd1_Click(Index As Integer) Select Case Index Case 1

Timer1.Enabled = False Case 0

Timer1.Enabled = True End Select End Sub

Private Sub Form_Load() Text1.Text = \End Sub

Private Sub Timer1_Timer() Static s As Integer Static s1 As Integer Static s2 As Integer

Static s3 As Integer s = s + 1

If s > 6 Then s = 0 Select Case s Case 1

s1 = s1 + 1 Case 2, 3 s2 = s2 + 1 Case 4, 5, 6 s3 = s3 + 1 End Select

Text1.Text = s1 Text2.Text = s2 Text3.Text = s3 End Sub

（5）运行程序，验证结果是否正确。 （6）保存工程及窗体文件。

注意：一定要正确地设置时钟控件的属性。 一、基础操作题 1．在名为Form1的窗体上画一个文本框，名称为Text1，其初始内容为0；画一个命令按钮，名称为Cmd1，标题为“开始计数”；再画一个名称为Timer1的计时器。要求程序开始运行时不计数，单击“开始计数”按钮后，则使文本框中的数每秒加1。注意，程序代码中不得使用任何变量。

注意：保存时必须存放在考生文件夹下，窗体文件名为kt1.frm，工程文件名为kt1.vbp。 2．在名称为Form1的窗体上画一个图片框，名称为Picture1；一个垂直滚动条，名称为VScroll1；一个命令按钮，名称为Command1，标题为“设置属性”。通过“属性”窗口在图片框中装入一个图形（文件名为pic1.jpg，位于考生文件夹下），图片框的宽度与图形的宽度相同，图片框的高度任意。编写适当的事件过程，要求程序运行后，如果单击命令按钮，则设置垂直滚动条的属性如表3-1所示。 表3-1 Min 100 Max 2400

LargeChang 200 SmallChange 20

之后就可以通过移动滚动条上的滚动块来放大或缩小图片框的高度。要求程序中不得使用任何变量。

注意：保存时必须存放在考生文件夹下，工程文件名为kt2.vbp，窗体文件名为kt2.frm。 一、基本操作题答案 1．【解析步骤】

（1）建立界面并设置控件属性，见表4-30。 表4-30 控件类型 名 称 属性值 文本框 Name Text1

Text 空值

定时器 Name Timer1 Interval 1000 Enabled False 命令按钮 Name Cmd1 Caption 开始计数

（2）Timer1.Enabled初始化为False，单击命令按钮将它的值改为True。 Private Sub Cmd1_Click() Timer1.Enabled = True End Sub

（3）编写Timer1_Timer（）处理程序时，需要单独处理刚开始计数的情况。 Private Sub Timer1_Timer()

If Text1.Text = \ '第1次计数将其值设为1 Text1.Text = 1

Else '非第1次计数则每次加1 Text1.Text = Text1.Text + 1 End If End Sub

（4）调试运行程序，正确则按要求保存工程和窗体文件。 2．【解题步骤】

（1）建立界面并设置控件属性。程序中用到的控件及其属性见表4-31。 表4-31

控 件 属 性 设置值 命令按钮 Name Command1 Caption 设置属性 图片框 Name Picture1 Picture Pic1.jpg

HScrollbar Name VScroll1

（2）编写代码。 参考代码： Option Explicit

Private Sub Command1_Click() VScroll1.Max = 2400 VScroll1.Min = 100 VScroll1.LargeChange = 200 VScroll1.SmallChange = 20 End Sub

Private Sub VScroll1_Change() Picturel.Height = VScroll1.Value End Sub

（3）调试并运行程序。 （4）按题目要求存盘。

二、简单应用题

在名为Form1的窗体上绘制一个名称为Lab1的标签，标题为“口令窗口”；绘制个文本框，名称分别为Text1和Text2，都没有初始内容；再绘制3个命令按钮，名称分别为Cmd1、Cmd2和Cmd3，标题分别为“显示”、“隐藏”和“复制”，在开始运行时，向Text1中输入的所有字符都显示“*”，单击“显示”按钮后，在Text1中显示所有字符，再单击“隐藏”后，Text1中的字符不变，但显示的都是“？”，单击“复制”后，把Text1中的实际内容复制到Text2中。要求如下：

（1）在属性窗口中，把窗体的标题改为“口令窗口”。

（2）建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。

（3）保存时，工程文件名为kt3.vbp，窗体文件名为kt3.frm。

2．在考生文件夹下有工程文件kt4.vbp及其窗体文件kt4.frm，该程序是不完整的，请在有“？”号的地方填入正确内容，然后删除“？”及所有注释符（即“'”号），但不能修改其他部分，保存时不得改变文件名和文件夹。 本题描述如下：

在窗体上有一个名为Text1的文本框，有两个命令按钮，名称分别是C1和C2，标题分别是“读入”和“计算并保存”。要求程序运行后，单击C1按钮，将文本文件in6.txt中的所有数字读到数组arr中，并在文本框中显示出来，随后C1按钮变为无效；然后单击C2按钮，求出数组arr中各元素的平方并返回相应的元素值，例如arr(2)=2，则令arr(2)=arr(2)*arr(2)=4，把计算后的数组值全部写入考生文件夹下的文本文件out6.txt中，并在文本框中显示出来，最后C2按钮也变为无效。 二、简单应用题答案 1．【解题步骤】

（1）新建一个名为Form1的窗体；

（2）在属性窗口中，把窗体的标题改为“口令窗口”；

（3）单击工具箱中的CommandButton控件图标，在窗体上拖拉出三个命令按钮，在属性窗口设置该命令按钮名称为Cmd1、Cmd2和Cmd3，Cation分别为“显示”、“隐藏”和“复制”； （4）单击工具箱中的TextBox控制图标，在窗体上拖拉出一个文本框，在属性窗口设置该文本框名称为Text1，Text属性为空； （5）打开代码窗口输入如下代码： Private Sub Cmd1 Click() Text1.PasswordChar=\End Sub

Private Sub Cmd2 Click() Text1.PasswordChar=\End Sub

Private Sub Cmd3 Click() Text2.Text=Text1.Text End Sub

Private Sub Form Load()

Text1.PasswordChar=\End Sub

（6）按题目要求存盘。 2．【解题步骤】本题主要考查文本框和命令按钮的基本操作。

（1）建立界面并设置控件属性。程序中用到的控件及其属性见表4-32。 表4-32

控 件 属 性 设置值 Text Name Text1 Text 空

Commandbutton Name C1 Caption 读入

Commandbutton Name C2 Caption 计算并保存

（2）编写程序代码，程序提供的代码如下： Dim arr(1 To 9)As Integer Private Sub Cl_Click() Dim I As Integer ?? “in6.txt”For Input As 1 For I = 1 To 9 Input #1,arr(i) Text1.Text=Text1.Text + Str(arr(i)) Next Close #1 Cl.Enabled = False End Sub

Private Sub C2_Click() Dim I As Integer Text1.Text = “” Open “out6.txt”For Output As 1 For I = 1 To 9 arr(i)= arr(i)* arr(i) 'Print #1, ?, Text1.Text = Text1.Text + Str(arr(i)) Next Close #1 C2.Enabled = False End Sub 参考代码：

Dim arr(1 To 9)As Integer Private Sub Cl_Click() Dim I As Integer Open\ For I = 1 To 9 Input #1,arr(i) Text1.Text=Text1.Text + Str(arr(i)) Next Close #1