国家二级VB机试（上机操作）模拟试卷284
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1、标题为“鼠标光标形状示例”的窗体上画1个名称为Text1的文本框。请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头(Arrow)形状，如图3—56所示；在窗体中其他位置处，鼠标光标为十字(Cross)形状，如图3—57所示。
第1小题
步骤1：新建“标准EXE”工程，在窗体Form1中画一个文本框，按表4—34设置文本框及窗体属性。
[*]
步骤2：按要求将文件保存至考生文件夹中。
第2小题
步骤1：新建一个“标准EXE”工程，按表4—35在窗体中画出控件并设置其相关属性。
[*]
步骤2：在代码编辑窗口，编写命令按钮的单击事件过程。
参考代码：
Private Sub cmdDisplay_Click()
txtBegin．Text=txtInput．SelStart+1
txtNum．Text=txtInput．SelLength
End Sub
步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：根据题目要求，要使鼠标指针位十文本框中时，鼠标指针的形状为箭头，需将文本框的MousePointer属性值设置为1。为使鼠标指针位于窗体中其他位置时，鼠标指针的形状为十字，需将窗体的MousePointer属性值设置为2。
当窗体中控件的MousePointer属性值为0时，鼠标经过该控件时光标的形状类型由窗体的MousePointer属性值决定。
第2小题：由于SelStart属性返回的所选文本的起始点位于起始文本的左侧，故所选文本的第一个字符的顺序号应为SelStart属性值加1。选中字符数即为SelLength属性返同值。
简单应用题
2.(1)在名称为Form1的窗体上画一个名称为lblPwd的标签，标题为“密令”；画两个文本框，名称分别为txtPwd、txtObi，都没有初始内容；再画三个命令按钮，名称分别为cmdShow、cmdHide、cmdCopy，标题分别为“显示”、“隐藏”、“复制”，在开始运行时，向txtPwd中输入的所有字符都显示“*”，单击“显示”按钮后，在txtPwd中显示所有字符，再单击“隐藏”后，txtPwd中的字符不变，但显示的都是“?”，单击“复制”后，把txtPwd中的实际内容复制到txtObi中，如图3—59所示。
要求：
①在属性窗口中，把窗体的标题改为“密令窗口”。
②建立适当的事件过程，完成上述功能。每个过程中只允许写一条语句，且不能使用变量。存盘时，工程文件名为vbsj3．vbp，窗体文件名为vbsj3．frm。
(2)在考生文件夹下有一个工程文件vbsj4．vbp，运行情况如图3—60所示。程序的功能是计算如下表达式的值：Z=(X+2)^2+(X+3)^3+(x+4)^4+…+(X+N)^N。其中，N和X值通过键盘分别输入到文本框txtN、txtX中。之后如果单击名称为cmdCal、标题为“计算”的命令按钮，则计算表达式的值Z，并将计算结果显示在名称为lblResult的标签中。在给出的窗体文件中已经添加了全部控件和程序，但程序不完整。要求去掉程序中的注释符，把程序中的“?”改为正确的内容。
注意：考生不得修改窗体文件中已经存在的程序。程序中不得使用^运算符，而应使用函数xn进行幂运算。程序至少运行一次，按照下图输入数据，使N=5，X=10，单击“计算”按钮，计算Z的值，并将结果显示在标签lblResult中，否则没有成绩。最后，程序按原文件名存盘。
第1小题
步骤1：新建一个“标准EXE”工程，按表4—36在窗体中画出控件并设置其相关属性。
[*]
步骤2：在代码编辑窗口，分别编写3个按钮的单击事件过程。
参考代码：
Private Sub cmdShow_Click()
txtPwd．PaSSWOrdChar=\\
解析：第1小题：PasswordChar属性用于设置屏蔽文本框中内容的字符，要去掉对文本框中输入内容的屏蔽，需将其PasswordChar属性值清空。
第2小题：本题源程序中，白定义函数xn的功能是进行a^m幂运算，它通过For循环连续m次将a乘以累积变量tmp(初值为1)来实现。故自定义函数xn中第一个?处应改为：tmp*a，作为函数返回值第二个?处应改为：map。
在“计算”按钮的单击事件过程中，根据程序所要计算表达式的特点，源程序利用一个For循环依次计算表达式中各项的值((x+i)＾i)，并将其累加入变量z。计算表达式中各项的值通过调用自定义函数xn(t，i)来实现的，其中t=x+j。故cmdCal_Click事件过程中第一个?处应改为：xn(t，i)。计算结果显示在标签中，故第二个?处应改为：z。
综合应用题
3.在考生文件夹下有一个工程文件vbsj5．vbp，请先装入该工程文件，然后完成以下操作：在名称为Form1的窗体上画两个命令按钮，其名称分别为cmdRead和cmdCal，标题分别为“读入数据”和“计算保存”(如图3—61所示)。程序运行后，如果单击“读入数据”按钮，则调用题目所提供的ReadDatal和ReadData2过程读入in51．txt和in52．txt文件中的各20个整数，分别放入Arr1和Arr2两个数组中；如果单击“计算保存”按钮，则把两个数组中对应下标的元素相减，其结果放入第三个数组中(即：第一个数组的第n个元素减去第二个数组的第n个元素，结果作为第三个数组的第n个元素。这里的n为1、2、…、20)，最后计算第三个数组各元素之和，把所求得的和在窗体上显示出来；并调用题目中给出的WriteData过程将所求得的和存入考生文件夹下的out5．dat文件中。
步骤1：打开考生文件夹中的本题工程文件vbsj5．vbp，按表4—37在窗体中画出控件并设置其相关属性。
[*]
步骤2：在代码编辑窗口，分别编写“读入数据”
按钮和“计算保存”按钮的单击事件过程。
参考代码：
Private Sub cmdRead_Click()
ReadData1：ReadData2
End Sub
Private Sub cmdCa1_Click()
Dim Arr3(20)As Integer
Dim Sum As Integer
Sum=0
For i=1To20
Arr3(i)=Arr1(i)-Arr2(i)
Sum=Sum+Arr3(i)
Next
Print Sum
WriteData\\
解析：本题源程序已提供用于读数的ReadData1、ReadData2和用于写盘的WriteData几个自定义过程，只需编写“读数”、“计算”和“保存”命令按钮的单击事件过程，并在事件过程中调用ReadData1、ReadDam2和WriteData自定义过程。程序设计思路：在“读数”按钮的Click事件过程中，通过分别调用ReadD
本文档预览：3600字符，共3933字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
