2012全国计算机二级vb机试模拟题18.docVIP

1 第1小题 【审题分析】要实现在程序运行时，单击命令按钮，使标签和文本框消失，在窗体上显示文本框中的内容，其实就是在命令按钮的单击事件过程中，设置标签和文本框的Visible属性值为False，用窗体的print方法将文本框的内容输出到窗体上。 【操作步骤】 步骤1：新建一个标准EXE工程，在窗体上画一个标签、一个文本框和一个命令按钮，其属性及其值如表91-1所示。 表91-1 步骤2：在代码编辑窗口，编写显示按钮的Click事件过程。 参考代码： Private Sub cmdDisplay_Click() Print txtInput.Text lblInput.Visible = False txtInput.Visible = False End Sub 步骤3：按要求将文件保存至考生文件夹中。 【主要考点】控件画法、简单事件编程。 第2小题 【知识点播】①Date函数用于获取当前系统日期，Time函数用于获取当前系统时间。②AutoSize属性用来确定是否根据Caption属性指定的标题自动调整标签的大小，可以设置为True或False。 【审题分析】本题只需在日期按钮的单击事件过程中，通过调用Date函数在标签中显示当前系统日期；在时间按钮的单击事件过程中，通过调用Time函数在标签中显示当前系统时间。 【操作步骤】 步骤1：新建一个标准EXE工程，按表91-2在窗体中画出控件并设置其相关属性。 表91-2 步骤2：在代码编辑窗口编写以下事件过程。 参考代码： Private Sub cmdDate_Click() Label1.Caption = Date End Sub Private Sub cmdTime_Click() Label1.Caption = Time End Sub 步骤3：按要求将文件保存至考生文件夹中。 【主要考点】Date函数、Time函数。 2 第1小题 【审题分析】判断整数A能被整数B整除的条件表达式为：A Mod B=0。本题源程序在计算数据的单击事件过程中，通过For循环逐一判断单选按钮数组中的每个元素是否选中，用变量y记录选中单选按钮所标识的数字，并调用过程calc计算满足条件的正整数。 在过程calc中，通过Do循环依次判断大于文本框中数的正整数是否能被变量y整除，将能被整除的前5个数添加到列表框Lst1中。 【操作步骤】 步骤1：打开考生文件下的本题工程文件vbsj3.vbp，在代码编辑窗口，去掉程序中的注释符，将问号？改为正确的内容。 参考代码： If Opt1(i).Value = True Then y = Val(Opt1(i).Caption) Do While i =5 Lst1.AddItem x 步骤2：按要求将文件保存至考生文件夹中。 第2小题 【审题分析】本题源程序在统计得分按钮的单击事件过程中，先检查是否在文本框中输入了编号及各评委的打分，若没输入则给出提示信息，并等待用户输入。接着用变量Max、Min和Sum分别记录选手的最高得分、最低得分及总得分，他们的初值均设置为第一位评委的打分（即txtScore(0).Text）。然后通过For循环逐一与其他评委的打分相比（循环变量n的初值应为1），若Max的值小于某评委的打分（即Case Is Max），则将该评委的打分赋值给Max；若Min的值大于某评委的打分（即Case Is Min），则将该评委的打分赋值给Min。计算总分的表达式应为：Sum = Sum + Val(txtScore(n))（或Sum = Val(txtScore(0)) + Val(txtScore(n))）。最后将选手编号和计算出的得分用Print方法显示在图片框Pic1中，并将所有文本框的内容置空。 【操作步骤】 步骤1： 打开考生文件下的本题工程文件vbsj4.vbp，按表91-3在窗体中画出控件并设置其相关属性。 表91-3 步骤2：在代码编辑窗口，去掉程序中的注释符，将问号？改为正确的内容。 参考代码： For n = 1 To 9 Case Is Max Case Is Min Sum = Sum + Val(txtScore(n)) 步骤3：按要求将文件保存至考生文件夹中。 3 【知识点播】“冒泡法”是一种重要的数据排序算法，它的核心思路是按顺序让一个数列中的每一个数都与它之后的所有的数逐一进行比较，如果该数大于其后面的数，则把这两个位置的数进行交换。通过这样的循环，最终按照从小到大的顺序排列出该数列。 【审题分析】单击“添加”按钮时先检查当前已输入学生信息数n是否已达到10条，若没达到10条，则标记变量tag_in=0表示允许添加信息（且学生信息数n增1），否则t