vb计算机二级考试试题
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
