vb计算机二级考试试题2016

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

vb计算机二级考试试题2016

　　(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

　　End Sub

　　Sub WriteData(Filename As String, Num As Integer)