二级VISUAL+BASIC机试真题2011年03月.docVIP

2011年3月全国计算机等级考试二级Visual BaSic 上机真题 1．基本操作 请根据以下各个小题的要求设计Visual Basic应用程序(包括界面和代码)。 (1)在名称为Form1的窗体上画两个标签(名称分别为Label1和Label2，标题分别为“书名”和“作者”)、两个文本框(名称分别为Text1和Text2，Text属性均为空白)和一个命令按钮(名称为Command1，标题为“显示”)，如图1所示。然后编写命令按钮的Click事件过程。程序运行后，在两个文本框中分别输入书名和作者，然后单击命令按钮，则在窗体的标题栏上先后显示两个文本框中的内容，如图2所示。要求程序中不得使用任何变量。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt1.vbp，窗体文件名为sjt1.frm。 (2)在名称为Form1的窗体上画一个标签，其名称为Label1，标题为“计算机等级考试”，Left属性为0；再画一个水平滚动条，其名称为Hscroll1，在属性窗口中设置其属性如下： Min 0 Max 3000 SmallChange 10 LargeChange 100 编写适当的事件过程。程序运行后，如果移动滚动条上的滚动框，则可使标签向相应的方向移动，标签距窗体左边框的距离等于滚动框的位置，程序的运行情况如图3所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为sjt2.frm。 2．简单应用 (1)在考生目录下有一个工程文件sjt3.vbp，窗体上有一个组合框Combo1，其中已经预设了内容；还有一个文本框Text1和三个命令按钮，名称分别为Command1、Command2、Command3，标题分别为“修改”、“确定”、“添加”。程序运行时，“确定”按钮不可用，如下图所示。 程序的功能是：在运行时，如果选中组合框中的一个列表项，单击“修改”按钮，则把该项复制到Text1中(可在Text1中修改)，并使“确定”按钮可用；若单击“确定”按钮，则把修改后的Text1中的内容替换组合框中该列表项的原有内容，同时使“确定”按钮不可用；若单击“添加”按钮，则把在Text1中的内容添加到组合框中。 所提供的窗体文件已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。 试题源程序： 1 Private Sub Command1_Click( ) 2 Text1=Combo1.Text 3 Command2.?=True 4 End Sub 5 6 Private Sub Command2_Click( ) 7 Combo1.List(?)=Text1 8 Text1= 9 Command2.Enabled=False 10 End Sub 11 12 Private Sub Command3_Click( ) 13 ? Text1 14 End Sub (2)在考生文件夹下有一个工程文件sjt4.vbp(相应的窗体文件名为sjt4.frm)，其功能是通过调用过程Average求数组的平均值，请装入该文件。程序运行后，在4个文本框中各输入一个整数，然后单击命令按钮，即可求出数组的平均值，并在窗体上显示出来(如下图所示)。这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。 最后把修改后的文件按原文件名存盘。 [试题源程序] 1 Option Base 1 2 Private Function Average(a( )As Integer)As Single 3 Dim Start As Integer，Finish As Integer 4 Dim i As Integer 5 Dim Sum As Integer 6 Start=?(a) 7 Finish=?(a) 8 Sum=? 9 For i=Start To Finish 10 Sum=Sum+? 11 Next i 12 Average=? 13 End Function 14 15 Private Sub Command1_Click( ) 16 Dim arr1 17 Dim arr2(4)As Integer 18 arr1=Array(Val(Text1.Text)，Val(Text2Text)，Val(Text3.Text)，Val(Text4.Text)) 19 20 For i=1 To 4 21 arr2(i)=CInt(arrl(i)) 22