国家二级VB机试（上机操作）模拟试卷382
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1、标题为“鼠标光标形状示例”的窗体上画1个名称为Text1的文本框。请通过属性窗口设置适当属性，使得程序运行时，鼠标在文本框中时，鼠标光标为箭头(Arrow)形状，如图3—56所示；在窗体中其他位置处，鼠标光标为十字(Cross)形状，如图3—57所示。
注意：存盘时必须存放在考生文件夹下，工程文件名为vbsj1．vbp，窗体文件名为vbsj1．frm。
(2)在名称为Form1的窗体上画两个名称分别为Labe11、Labe12，标题分别为“开始位置”、“选中字符数”的标签；画三个文本框，名称分别为txtInput、txtBegin、txtNum；再画一个名称为cmdDisplay，标题为“显示选中文本”的命令按钮。程序运行时，在txtlnput中输入若干字符，并用鼠标选中一些字符后，单击“显示选中文本”按钮，则把选中的第一个字符的顺序号显示在txtBegin中，选中的字符个数显示在txtNum中，如图3—58所示。
(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：按要求将文件保存至考生文件夹中。
解析：
简单应用题
2.(1)在名称为Form1的窗体上画一个名称为IblPwd的标签，标题为“密令”；·画两个文本框，名称分别为txtPwd、txtObj，都没有初始内容；再画三个命令按钮，名称分别为cmdShow、cmdHide、cmdCopy，标题分别为“显示”、“隐藏”、“复制”，在开始运行时，向txtPwd中输入的所有字符都显示“*”，单击“显示”按钮后，在txtPwd中显示所有字符，再单击“隐藏”后，txtPwd中的字符不变，但显示的都是“?”，单击“复制”后，把txtPwd中的实际内容复制到txtObj中，如图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的标签中。在给出的窗体文件中已经添加了全部控件和程序，但程序不完整。要求去掉程序中的注释符，把程序中的“?”改为正确的内容。
(1)【操作步骤】
步骤1：新建一个“标准EXE”工程，按表4—36存窗体中画出控件并设置其相关属性。
[*]
步骤2：在代码编辑窗口，分别编写3个按钮的单击事件过程。参考代码：
Private Sub cmdShow_Click()
txtPwd．PasswordChar＝\\
解析：
综合应用题
3.在考生文件夹下有一个工程文件vbsi5．vbp，请先装入该工程文件，然后完成以下操作：在名称为Form1的窗体上画两个命令按钮，其名称分别为cmdRead和cmdCal，标题分别为“读入数据”和“计算保存”(如图3—61所示)。程序运行后，如果单击“读入数据”按钮，则调用题目所提供的ReadData1和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 S‘ub cmdRead_Click()
ReadData1 ：ReadData2
End Sub
Private Sub cmdCal_Click()
Dim Arr3(20) As Integer
Dim Sum As Inteqer
Sum＝0
For i＝1 To 20
Arr3(i)＝Arr1(i)－Arr2(i)
Sum＝Sum＋Arr3(i)
Next
Print Sum
WriteData\\
解析：
本文档预览：3600字符，共3247字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
