2012全国计算机二级VB机试模拟题-(12).doc

1第1小题【知识点播】文本框控件的MultiLine属性设置文本框是否能以多行显示文本，值为True表示允许，值为False表示不允许；ScrollBars属性设置文本框是否有水平或垂直滚动条，它的值为：0表示没有滚动条（默认值），1表示只有水平滚动条、2表示只有垂直滚动条，3表示有水平和垂直滚动条，设置0以外的值时MultiLine属性值必须为True。 【审题分析】本题只需按要求画出控件并设置其相应属性即可。【操作步骤】步骤1：新建一个标准EXE工程，在窗体Form1中画两个文本框，并分别设置它们的相关属性，其属性及值如表97-1所示。表97-1步骤2：按要求将文件保存至考生文件夹中。第2小题【审题分析】要在程序运行时，移动滚动条上的滑块就能改变文本框的高度，只需在滚动条的Change事件过程中编写利用滚动条的Value属性值来决定文本框Height属性值的语句即可，同时将文本框Width属性值设置为其Height属性值的1.5倍。【操作步骤】步骤1：新建一个标准EXE工程，在窗体Form1中画一个文本框和一个水平滚动条，在属性设置窗口中设置其相关属性，其属性及值如表97-2所示。表97-2步骤2：双击窗体Form1上的水平滚动条，打开代码编辑窗口，在其Change事件过程中输入以下代码：参考代码：Private Sub Hsb1_Change() Txt1.Height = Hsb1.Value Txt1.Width = Txt1.Height * 1.5End Sub步骤3：按要求将文件保存至考生文件夹中。【主要考点】水平滚动条控件、Change事件过程。2第1小题【审题分析】在本题源码“修改”按钮的单击事件过程中，通过语句“txtData = Cbo1.Text”将组合框中当前选择内容显示到文本框中，同时通过设置“确定”按钮的Enabled属性值为True使其可用；在“确定”按钮的单击事件过程中，通过语句“Cbo1.List(ListIndex) = txtData”把修改后的文本框内容替换组合框中该列表项的原有内容，并清空文本框，使“确定”按钮不可用；在“添加”按钮的单击事件过程中，用组合框的AddItem方法将文本框中的内容添加为组合框的一个项目。为使“确定”按钮初始状态时不可用，需在设计时将其Enabled属性值设置为False。【操作步骤】步骤1：打开考生文件中的本题工程文件vbsj3.vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“？”改为正确的内容。参考代码：cmdConfirm.Enabled = TruecboData.List(ListIndex) = txtDatacboData.AddItem Txt1步骤2：按要求将文件保存至考生文件夹中。【主要考点】组合框控件。第2小题【审题分析】本题利用计时器来控制红、黄、绿灯间的循环切换。在“开始”按钮的单击事件过程中，将根据两个水平滚动条的Value属性值，来分别设定红灯和绿灯亮的时间数（用变量red和green记录）。在每次触发的计时器Timer事件时，首先判断当前红灯是否亮（即PicR是否显示），若红灯亮则将设定的红灯时间red减1，并再次判断red的值是否为0，若为0则红灯灭黄灯亮（即PicR不显示，PicY显示）；如果当前是黄灯亮（即PicY显示），则黄灯灭（即PicY不显示），此时若red为0，则绿灯亮（即PicG显示）且重新设定red，否则红灯亮（即PicR显示）且重新设定green；如果当前是绿灯亮（即PicG显示），则将设定的绿灯时间green减1，并再次判断green的值是否为0，若为0则绿灯灭黄灯亮（即PicG不显示，PicY显示）。【操作步骤】步骤1：打开考生文件中的本题工程文件vbsj4.vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“？”改为正确的内容。参考代码：red = Hsb1.ValueTmr1.Enabled = TruePicR.Visible = Falsegreen = green-1步骤2：按要求将文件保存至考生文件夹中。【主要考点】阅读理解程序能力。3【审题分析】本题可利用一个嵌套的For循环来完成计算工作：在外循环（循环变量的取值为120）体中，先初始设置记录每行数据之和的变量Sum的初值为0，接着通过内循环（循环变量的取值为15）体完成对每行数据的累加工作。内循环结束后，用表达式Avg = Sum / 5计算出该行的平均值。如果是第一次执行外循环的循环体，则将当前Avg的值记录在变量Max中，否则仅在其他行Avg值大于Max的值时，才将其记录在变量Max中。嵌套For循环结束时，变量Max的值即为每行平均数中的最大值，将其显示在文本框txtMax中。【操作步骤】步骤1：打开考生文件中的本题工程文件vbsj5.vbp，在窗体Form1中画一个标签和一个文本框，其属性及值如表97-3所示。表97-3步骤2：打开代码编辑窗口，在指定位置编写以下代码：参考代码：For i = 1 To 20 Sum = 0 For j = 1 To 5 Sum = Sum + a(i, j) Next Avg = Sum / 5 If i = 1 Then Max = Avg ElseIf M