vb计算机二级考试试题2016

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

(1) 在名称为Form1的窗体上画一标签(名称为Label1，标题为空白，BorderStyle属性为1，Visible属性为False)、一个文本框(名称为Text1，Text属性为空白)和一个命令按钮(名称为Command1,标题为“显示”)，如图1所示。然后编写命令按钮的Click事件过程。程序运行后，在文本框中输入“计算机等级考试”，然后单击命令按钮，则文本框消失，并在标签内显示文本框中的内容，运行后的窗体如图2所示。要求程序中不得使用任何变量。

Private Sub Command1_Click()

Label1.Visible = True

Text1.Visible = False

Label1.Caption = Text1.Text

End Sub

(2)在名称为Form1的窗体上画一个文本框(名称为Text1)和一个水平滚动条(名称为HScroll1)，如图1所示。在属性窗口中对滚动条设置如下属性：

Min 500

Max 2000

Largechange 50

Smallchange 20

编写适当的事件过程。程序运行后，如果移动滚动条上的滚动框，则可扩大或缩小文本框的高度，并使得文本框的`宽度始终是其高度的1.2倍。运行后的窗体如图2所示。要求程序中不得使用任何变量。

Private Sub HScroll1_Change()

Text1.Height = HScroll1.Value

Text1.Width = Text1.Height * 1.2

End Sub

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

(1)在考生文件夹下有一个工程文件sjt21.vbp，请在窗体上画两个单选按钮(名称分别为Option1Option2，标题分别为“添加项目”和“删除项目”)，一个列表框(名称为List1)和一个文本框(名称为Text1)，如图1所示。编写窗体的Click事件过程。程序运行后，如果选择“添加项目”单击按钮，然后单击窗体，则从键盘上输入要添加的项目(内容任意，不少于三个)，并添加到列表框中;如果选择“删除项目”单选按钮，然后单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如图2所示。

在考生文件夹下有一个工程文件sjt21.vbp(相应的窗体文件名为sjt21.frm)，可以实现上述功能。但这个程序不完整，请把它补充完整。

Private Sub Form_Click()

If Option1.Value = True Then

Text1.Text = InputBox("请输入要添加的项目")

List1.AddItem Text1.Text

End If

If Option2.Value = True Then

Text1.Text = InputBox("请输入要删除的项目")

For i = 0 To List1.ListCount - 1

If List1.List(i) = Text1.Text Then

List1.RemoveItem i

End If

Next i

End If

End Sub

(2)在考生文件夹下有一个工程文件sjt22.vbp(相应的窗体文件名为sjt22.frm)，其功能是通过调用过程Sort将数组按降序排序，请装入该文件。程序运行后，在四个文本框中各输入一个整数(如图1所示)，然后单击命令按钮，即可使数组按降序排序，并在文本框中显示出来(如图2所示)。这个程序不完整，请把它补充完整，并能正确运行。

Option Base 1

Private Sub Sort(a() As Integer)

Dim Start As Integer, Finish As Integer

Dim i As Integer, j As Integer, t As Integer

Start = LBound(a)

Finish = UBound(a)

For i = Finish To 2 Step -1

For j = 1 To i - Start

If a(j) < a(j + 1) Then

t = a(j + 1)

a(j + 1) = a(j)

a(j) = t

End If

Next j

Next i

End Sub

Private Sub Command1_Click()

Dim arr1

Dim arr2(4) As Integer

arr1 = Array(Val(Text1.Text), Val(Text2.Text), Val(Text3.Text), Val(Text4.Text))

For i = 1 To 4

arr2(i) = CInt(arr1(i))

Next i

Sort arr2()

Text1.Text = arr2(1)

Text2.Text = arr2(2)

Text3.Text = arr2(3)

Text4.Text = arr2(4)

End Sub

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

在窗体上建立三个菜单(名称分别为Read、Calc和Save,分别为“读入数据”、“计算并输出”、和“存盘”)，然后画一个文本框(名称为Text1,MultiLine属性设置为True,ScrollBars属性设置为2)(如图所示)。程序运行后，如果执行“读入数据”命令，则读入datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1;如果单击“计算并输出”按钮，则把该数组中小于50的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来;如果单击“存盘”按钮，则把所求得的和存入考生文件夹下的dataout.txt文件中。

在考生文件夹下有一个工程文件sjt31.vbp，考生可以装入该文件。窗体文件中的ReadData过程可以把datain1.txt文件中的100个整数读入Arr数组中;而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout.txt)。

Option Base 1

Dim Arr(100) As Integer

Dim Sum As Integer '存储累加和

Sub ReadData()

Open App.Path & "\" & "datain1.txt" For Input As #1

For i = 1 To 100

Input #1, Arr(i)

Next i

Close #1