全国计算机等级考试二级VB上机试题及答案(三).doc

全国计算机等级考试二级VB上机试题及答案(三)基本操作（2小题，每题15分，共30分）*请根据以下各小题的要求设计VB应用程序（包括界面和代码）。请根据以下各个小题的要求设计Visual Basic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上画两个文本框，名称分别为T1、T2，初始情况下都没有内容。请编写适当的事件过程，使得在运行时，在T1中输入的任何字符，立即显示在T2中（如图所示）。程序中不得使用任何变量。*注意：存盘时必须存放在考生文件下，工程文件名为sjt1.vbp，窗体文件名为stj1.frm。（2）在名称为Form1的窗体上画一个文本框，名称为Text1，内容为VB程序设计；再画两个命令按钮，其名称分别为Command1和Command2，标题分别为扩大和缩小，如图所示，编写适当的事件过程。程序运行后，每单击Command1命令按钮一次，文本框中的文本的字体扩大1.2倍；每单击Command2按钮一次，文本框中文本的字体缩小1.2倍。程序运行的界面如图所示。*参考答案与分析（1）【解析】本题主要考查的是文本框的Change事件的用法。当用户向文本框中输入新信息，或程序把Text属性设置为新值从而改变文本框的Text属性时，将触发Change事件。程序运行后，在文本框中每键入一个字符，就会引发一次Change事件。在本题中要求当在一个文本框中输入字符时在另一个文本框中立即显示该字符，就可以通过在文本框1即T1的Change事件中将T1的Text属性赋值给T2的Text属性，就可以实现两个文本框中的内容的同步变化。【答案】步骤1：启动VB，新建工程文件。步骤2：设计窗体。根据题意，该用户界面包括三个对象，即窗体和两个文本框。单击工具箱中的文本框图标，在窗体的适当位置画一个文本框。画完后，文本框内自动标有Text1。重复以上步骤，再添加一个文本框为Text2。步骤3：设置属性。根据题意，窗体的名称（Name）和标题(Caption)属性都为默认的Form1，因此无需再为其重新设置属性。单击Text1，将其激活，在属性窗口中将其Name属性改为T1。然后单击Text2，使其变为活动控件，在属性窗口中将其Name属性改为T2。根据题意，在初始情况下，两个文本框中都没有内容，这可以通过在属性窗口中将其Caption属性设置为空值或在代码窗口中的Form1_Load事件中通过代码来实现。本题采用编写代码来实现。设置完属性之后就可以通过双击窗口进入代码编辑窗口编写代码如下：1 Private Sub Form_Load()2 T1.Text = 3 T2.Text = 4 End Sub5 Private Sub T1_Change()6 T2.Text = T1.Text7 End Sub步骤4：保存。程序设计完成经调试无误后进行存盘。执行文件菜单中的保存工程命令，打开文件另存为对话框，窗体文件名为Stj1.form，单击保存按钮。然后在紧接着出现的工程另存为对话框中选择工程文件名为Stj1.vbp，单击保存按钮。（2）【解析】本题主要考查对象的Left属性的概念。Left属性使用来设置对象的左边的坐标值，坐标值的默认单位为twip。当用程序代码设计时其格式为：对象. Leftx。这里的对象可以是窗体和绝大多数控件。当对象为窗体时，Left指的是窗体得左边界于屏幕左边界的相对距离；而当对象为控件时，Left指控件的左边界与窗体的左边的相对距离。和Left属性相同的还有top属性，它是用来设置对象的顶边的坐标值，其对象的概念和Left属性中相同。本题要求单击按钮后文本框水平移动到窗体的最左端。对象为文本框，它的Left值是相对于窗体的左边界来说的，因此当它移动到窗体最左端时其Left值为0。【答案】步骤1：启动VB，新建一个工程文件。步骤2：画一个文本框，Name属性设为Text1，Text属性设为空。再画两个命令按钮，Name属性设为Command1和Command2，Caption 分设为扩大和缩小。步骤3：编写程序源代码：1 Private Sub Command1_Click()2 Text1.FontSize = Text1.FontSize * 1.23 End Sub4 Private Sub Command2_Click()5 Text1.FontSize = Text1.FontSize / 1.26 End Sub步骤4：保存。程序设计完成经调试无误后进行存盘。以Stj2.vbp和sjt2.frm进行保存。 简单操作（2小题，每题20分，共40分）*请根据以下各小题的要求设计VB应用程序（包括界面和代码）。（1）在窗体中建立一个图片框，名为Picture1。再建立一个控制按钮，名称为Cmd1，标题为画点。要求程序运行时，单击画点按钮，则在图片框的中心画出一个点。程序运行时的界面如图所示。（2）在名称为Form1的窗体上，画一个形状控件和一个命令按钮。形状控件为直径为1000的圆形，名称为Shp1。命令按钮为Cmd1，标题为隐藏。编写适当的事件过程，使得程序运行时，单击命令按钮，圆形将隐藏起来。程序运行时的界面如图所示。*参考答案与分析（1）【解析】关于图片框控件的加载，与以上的例题一样，本题中要求在Cmd1的Click事件过程中在图片框中画点，这就要求考生掌握Pset方法，Pset方法的格式为：对象名.Pset（x，y），其中x，y为点的坐标。同时，题目要求是在图片框的中心画点，故我们令xMe.Picture1.Width / 2，yMe.Picture1.Height / 2，这里，我们可以看出，因为是在图片框中画点，所以坐标是相对于图片框的，需要引起注意。【答案】第一步：启动VB，新建一个工程文件。第二步：单击工具箱中的图片框控件，在窗体上画一个图片框，设置其Name属性为Picture1，再画一个命令按钮，设置其Name属性为Cmd1，Caption属性为画点。第三步：编辑源程序代码：1 Private Sub Command1_Click()2 Me.Picture1.PSet (Me.Picture1.Width / 2, Me.Picture1.Height / 2)3 End Sub第四步：调试并运行程序，运行正确后按要求保存。（2）【解析】题目要求画一个圆，可采用图形控件Shape。Shape属性有6个设置或返回值。0-矩形（默认），1-正方形，2-椭圆形，3-圆形，4-四角圆化的矩形，5-四角圆化的正方形。同时圆形的直径通过Height属性实现。另外，要求在Command事件过程中使其不可见，那只要令其的Visible属性为False即可。【答案】第一步：启动VB，新建一个工程文件。第二步：单击工具箱中的Shape控件，在窗体上画一个形状控件，Name为Shp1，Shape属性设为3，Height为1000。再画一个命令按钮，Name为Cmd1，Caption为隐藏。第三步：编写程序源代码：1 Private Sub Cmd1_Click()2 Shp1.Visible = False3 End Sub第四步：调试并运行程序，运行正确后按要求保存。 综合应用（1小题，共30分）*请根据以下各小题的要求设计VB应用程序（包括界面和代码）。在考生文件夹下有一个工程文件stj5.vbp，已经给出了所有的控件（如图所示）和部分程序。程序运行时，请按以下顺序操作：（1）单击读入文件按钮，把考生目录下的inzhyy11.txt文件中的内容读入内存并显示在上面的文本框Text1中；（2）单击加密按钮，则可对Text1中的内容进行加密并显示在下面的文本框Text2中；（3）单击存结果按钮则把Text2中的内容存到outzhyy11.txt文件中，加密规则：对于第奇数个字符，若是字母，则把它变为它后面的字符（若为Z则变为A），不是字母则不变；对于第偶数个字符，若是字母，则把它变为它前面的字符（若为A则变为Z），不是字母则不变。大小写字母都遵循此规则。已经给出存结果按钮的Click事件过程和函数isletter，函数isletter（a As String）判断变量a中是否为一个字母，是则返回True，否则返回False，可以直接调用。请编写读入文件按钮和加密按钮的Click事件过程，以实现上述功能。注意：不得修改已经有的程序，最后必须用存结果按钮保存加密结果，否则无成绩，而且所有文件必须以原文件名保存。*参考答案与分析【解析】判断一个字符是否为字母的程序已经给出，我们只需调用即可，题目要求我们自己完成文件读取和文件加密的代码编写。Command1事件过程是完成文件的读取，并显示在文本框中。Command2的事件过程是完成文件的加密，题目要求的加密规则为：若为第奇数个字符，则转换为该字符的后一个字符（Z或z变为A或a），若为第偶数个字符，则转换为该字符的前一个字符（A或a变为Z或z）。故这个加密程序中要经过三层判断才能做出最终的加密：首先判断是否为字母（调用isletter（）函数即可），其次判断是第奇数还是偶数个字符，最后还要判断是否已经到达首字符或尾字符，经过三层判断之后，便可对当前的字符按照规则进行加密。【答案】1、启动VB，打开考生文件夹下的工程文件stj5.vbp。2、双击窗体中的任何位置，进入程序编辑窗口，填写代码如下：1 Command1（读入文件）的事件过程代码如下：2 Open App.Path & inzhyy11.txt For Input As #13 Input #1, s4 Close #15 Me.Text1.Text = s6 Command2（加密）的事件过程代码如下：7 Dim l As Integer8 Dim s0 As String9 s = Me.Text1.Text10 l = Len(s)11 For i = 1 To l12 s0 = Mid(s, i, 1)13 If isletter(s0) = True Then14 If i Mod 2 = 0 Then15 If s0 = A Then16 s0 = Z17 ElseIf s0 = a Then18 s0 = z19 Else20 s0 = Chr(Asc(