全国计算机等级考试二级VB上机试题及答案

1、全国计算机等级考试二级 机试题及答案（十一）VB上全国计算机等级考试二级 VB上机试题及答案（十一）基本操作（2小题，每题15分，共30 分）* *请根据以下各小题的要求设计VB应用程序 （包括界面和代码）。请根据以下各个小题的要求设计VisualBasic应用程序（包括界面和代码）。（1）在名称为Forml的窗体上画一个列表 框，其名称为Listl，通过属性窗口向列表 框中输入9个项目，分别为10、20、30、 40、50、60、70、80、90；画一个文本框， 其名称为Hscroll，Min属性和Max分别为 0和100，如图所示，编写适当的事件过程。 程序运行后，如果单击列表框中的某个项

2、目 内容，并把滚动条的滚动框移动到相应的位 置，如图所示。要求：不得使用任何变量。(2)在名称为Forml的窗体中画一个图像 框，名称为Imagel,其高、宽分别为1800、 4500,通过属性窗口把考生文件夹下的图像 文件smile.bmp装入图像框；再画一个命令 按钮，名称为Cmd1标题为"放大"。 请编写适当事件过程，程序运行后，单击 " 放大"按钮，则把图像框的高度、宽度均增 加100，同时图像也随之自动放大。 注意：程序中不得使用任何变量。程序运行时的界面如图所示*参考答案与分析(1)【解析】滚动条的属性设置：认值为0; Value-属性之间的

3、值，包括这两个值。Min-最大值属性。默认值为32767； Max-最小值属性，默返回或设置滚动条的当前位置的值，返回直介于Max和Man要实现滚动条的返回值与List的设置值同步变化，在两者之间建立等式关系即 可。而Text属性对应的变量类型为字符串， 来实现。Val(S)函数将字符串转化为数值。函数 Str(N)。【答案】第一步：启动VB新建一个工程文件。 第二步：在窗体上画一个文本框，文本框的所以这里用了一个转化函数Val()与之对应的将数值转化为字符串的Name属性为Textl , Text属性空,再在窗体上画一个水平滚动条 Max为100, Min为0，Name为HScrolll，再

4、画一 个列表框 List1，在 List 属性中输入"10、20、30、40、50、60、70、80、90"。 第三步：编写程序代码：1 Private Sub List1_Click()2 Text1.Text = List1.Text3 HScroll1.Value = Val(List1.Text)4 End Sub第四步：调试并运行程序，运行正确后按要求保存。(2)【解析】本题主要考查了图像框的 Stretch属性以及控制其大小的 Height > Width属性。Height、Width属性与其它控件类似，设置相应的值即可动态的改变图像框的大 小，例如题目要

5、求单击"放大"按钮要使得图像框的宽度和高度均增加100，故在Cmdl的Click事件中改变Image的Height和 Width，在原先的基础上加上 100。 另外，题目中要求固定图片框的大小，即不能由于图片的大小而改变图片框的 大小，而且改变图像框的大小后，其中加载的图片也要自动改变大小，所以必 须将Image的Stretch 属性设置为True。【答案】第一步：启动VB新建一个工程文件。第二步：在窗体中画一个图像框，名称为Image1,设置Height属性1800, Width 属性1500，Stretch 属性为True，在Picture 属性中装入文件夹下的图像文件

6、 smile.bmp，再画一个命令按钮， Name属性为Cmd1 Caption属性为"放大"。第三步：编辑代码：1 Private Sub Cmd1_Click（）2 Image1.Height = Image1.Height + 1003 lmage1.Width = lmage1.Width + 1004 End Sub第四步：调试并运行程序，运行正确后按要求保存。简单操作（2小题，每题20分，共40分）* * 请根据以下各小题的要求设计VB应用程序（包括界面和代码）。（1）在考生文件夹下有一个工程文件 stj3.vbp，及其窗体文件 stj3.frm ，程序 运行时

7、，如果用鼠标左键按住窗体，并在其 上移动，则窗体上显示"您按下了鼠标的左 键"；如果用鼠标的右键按住窗体，并在其 上移动，则显示"您按下了鼠标的右键"。 程序运行时的窗体界面如图所示。要求：题目中所给的程序不完整，请读懂程 序后将其补充完整，以原文件名保存。试题源程序：1 Private Sub Form_MouseMove(Button As In teger, Shift As In teger, X As Si ngle, Y As Si ngle)2 'If Button = ? The n Print "您按下了鼠标的左键&q

8、uot;3 'If Button = ? The n Print "您按下了鼠标的右键"4 End Sub(2)在考生文件夹下有一个工程文件 stj4.vbp，及其窗体文件 stj4.frm ，窗体 上有一个标签和一个文本框，控件及其属性 均已设置完毕，现使用 KeyPress事件编写 一个口令程序，程序运行后，在文本框中输 入口令，如果正确，则显示相应的信息，单 击"确定"按钮后，将显示一行信息；如果口令不正确，则要求重新输入。3次输入的口 令都不正确，则停止输入，并结束程序。程 序运行的画面如图所示。要求：题目中所给的程序不完整，请读懂程 序

9、后将其补充完整，以原文件名保存。试题源程序：1 Private Sub Form_Load()2 Textl.Text =""3 Textl.Fo ntSize = 104 Label1.F on tSize = 125 Label1.F on tBold = True6 Label1.F on t0 =" 隶书"7 Label1.Caption ="请输入口令 "8 End Sub9 Private Sub Text1_KeyPress(KeyAsciiAs In teger)10 Static PWord As Stri ng11

10、 Static Cou nter As In teger12 Static Numberftries As In teger13 Numberftries = Numberftries + 114 'If ? Then End15 Coun ter = Coun ter + 116 卩 Word = PWord + ?17 KeyAscii = 018 Text1.Text = String$(Counter, "*")19 If LCase$(PWord) = "abcd" The n20 Text1.Text =""21

11、PWord = 022 MsgBox " 口令正确，继续."23 Cou nter = 024 Prin t "co nti nu e"25 'Elself ?The n26 Cou nter = 027 PWord =""28 Text1.Text =""29 MsgBox " 口令不对，请重新输入"30 End If31 End Sub*参考答案与分析（1）【解析】本题主要考查了鼠标左键以及右键的使用，即鼠标的Butt on属性。Button为1时，表示鼠标的左键，为2时，表示鼠标的

12、右键，为4时，表示鼠标的中键， 故在第一个？处填入1表示按下鼠标的左键，第二个？处填入2,表示鼠标的右 键。【答案】（1）启动VB,打开考生文件夹下的工程文件 stj2.vbp 。（2）双击窗体的任何位置，进入代码编辑窗口，补充程序如下：第一个？处填入1第二个？处填入2（3）运行程序，确定无误后以原文件名保存。（2）【解析】本题主要考查了文本框的 KeyPress事件。每按下键盘的一个键就触发一次 KeyPress事件。在本题中用文本框的 KeyPress事件来测试输入口令是否正确。 在该过程中，定义了 3个静态变量，其中Numberftries变量用来对输入的口令 字符计数。每按一次键，就触

13、发一次KeyPress事件，Numberftries 变量加1，当该值达到12时结束程序，因此第一个问号处应填入Numberftries = 12 。口令由四个字符组成，既由每次输入的字符连接起来组成，因此第二个问号处应 填入Chr$（KeyAscii），用Counter来表示输入口令长度，每输入四个为一个完 整的口令，因此第三个问号处应填入Counter = 4 。【答案】（1）启动VB,打开考生文件夹下的工程文件 stj4.vbp。（2）双击窗体的任何位置，进入代码编辑窗口，填写代码：第一个？处填入：Numberftries = 12第二个？处填入：Chr$（KeyAscii）第三个？处填

14、入：Counter = 4（3）填写完毕，调试并运行，运行无误后以原文件名保存。综合应用（1小题，共30分）* *请根据以下各小题的要求设计VB应用程序 （包括界面和代码）。在考生文件夹下有工程文件djks043.vbp及窗体文件djks043.frm，该程序是不完整 的，请在有？的地方填入正确内容， 然后删 除？及所有注释符（），但不能修改其他 部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有两个标签、两个 文本框、一个框架、三个单选框以及两个控 制按钮。标签的名称分别为Labell与 Label2，标题分别为"原文本"、"加密文本"； 文

15、本框的名称分别为 Textl与Text2,Text 属性均为空；两个控制按钮的名称分别为Comma nd与Comma nd，标题分别为"加密" 与"读入"单选框的名称统一为 Option1 ， 标题分别为2、4、6;框架名称为Framed 标题为"加密类型"。单击"读入"按钮，程序 将读入考生文件夹下的文本文件 in043.txt ，单击"加密"按钮，加密过的文 本显示在Text2中。根据单选框中不同的数 字，加密的方法不同。例如选择 Optio n1， 则逐一把Text1中的字符串改为它后面的

16、 第2个字母。程序运行时的窗体界面如图所示。【试题源程序】1 Private Sub Comma nd1_Click()2 Text2.Text =""3 Dim n As In teger4 Dim i As In teger5 Dim m As In teger6 Dim Str As Stri ng7 Dim StrText As Stri ng8 Fori = 0 To 29 If Option1(i).Value Then10 ' n=Val(?.Caption)11 End If12 Next i13 m = Le n(Text1.Text)14 For

17、 i = 1 To m15 ' Str=Mid$(Text1.Text,?,1)16 ' Str=?(1,Asc(Str)+n)17 If Str > "z" Or Str > "Z" A nd Str < "a" The n18 Str = Stri ng(1, Asc(Str) - 26)19 End If20 StrText = StrText + Str21 Next i22 Text2.Text = StrText23 End Sub2424 Private Sub Comma nd2_Cl

18、ick()25 Dim s As Stri ng26 Open App.Path & "in043.txt"ForIn put As #127 Input #1, s28 Text1.Text = s29 Close #130 End Sub*参考答案与分析【解析】第一个？处填Option 1(i)，表示如果第i个单选框被选中，则把第i个单选框 的Caption转换成数值赋给n。Mid表示从字符串指定的位置截取指定的字符。第二个？处填i ,表示从字符串第i个字符处向右截取1个字符，这为转化这个 字符做准备。第三个？处填 String，表示返回指定数量的指定字符串，它的第 一个参数确定返回字符串的个数， 第二个字符串确定返回的字符。 注意，String 函数的第二个参数，可