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

精心整理

全国计算机等级考试二级VB上机试题及答案(十一)基本操作（2小题，每题15分，共30分）

****************************************************************

请根据以下各小题的要求设计VB应用程序（包括界面和代码）。

请根据以下各个小题的要求设计VisualBasic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上画一个列表框，其名称为List1，通过属性窗口

；画

（2）在名称为Form1的窗体中画一个图像框，名称为Image1，其高、宽分别为1800、4500，通过属性窗口把考生文件夹下的图像文件smile.bmp装入图像框；

再画一个命令按钮，名称为Cmd1，标题为"放大"。

请编写适当事件过程，程序运行后，单击"放大"按钮，则把图像框的高度、宽度均增加100，同时图像也随之自动放大。

注意：程序中不得使用任何变量。

程序运行时的界面如图所示。

（1

属性对

水平滚动条Max为100，Min为0，Name为HScroll1，再画一个列表框List1，在List属性中输入"10、20、30、40、50、60、70、80、90"。

第三步：编写程序代码：

1PrivateSubList1_Click()

2Text1.Text=List1.Text

3HScroll1.Value=Val(List1.Text)

4EndSub

第四步：调试并运行程序，运行正确后按要求保存。

（2）【解析】

本题主要考查了图像框的Stretch属性以及控制其大小的Height、Width属性。Height、Width属性与其它控件类似，设置相应的值即可动态的改变图像框的大小，例如题目要求单击"放大"按钮要使得图像框的宽度和高度均增加100，故在Cmd1的Click事件中改变Image的Height和Width，在原先的基础上加上100。

另外，题目中要求固定图片框的大小，即不能由于图片的大小而改变图片框的大小，而且改变图像框的大小后，其中加载的图片也要自动改变大小，所以必须将Image的Stretch属性设置为True。【答案】

第一步：启动VB，新建一个工程文件。

第二步：在窗体中画一个图像框，名称为Image1，设置Height属性1800，Width属性1500，Stretch 属性为True，在Picture属性中装入文件夹下的图像文件smile.bmp，再画一个命令按钮，Name 属性为Cmd1，Caption属性为"放大"。

，程

要求：题目中所给的程序不完整，请读懂程序后将其补充完整，以原文件名保存。

试题源程序：

1PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,Y AsSingle)

2'IfButton=?ThenPrint"您按下了鼠标的左键"

3'IfButton=?ThenPrint"您按下了鼠标的右键"

4EndSub

（2）在考生文件夹下有一个工程文件stj4.vbp，及其窗体文件stj4.frm，窗体上有一个标签和一个文本框，控件及其属性均已设置完毕，现使用KeyPress 事件编写一个口令程序，程序运行后，在文本框中输入口令，如果正确，则显示相应的信息，单击"确定"按钮后，将显示一行信息；如果口令不正确，则要

6Label1.Font0="隶书"

7Label1.Caption="请输入口令..."

8EndSub

9PrivateSubText1_KeyPress(KeyAsciiAsInteger)

10StaticPWordAsString

11StaticCounterAsInteger

12StaticNumberftriesAsInteger

13Numberftries=Numberftries+1

14'If?ThenEnd

15Counter=Counter+1

16'PWord=PWord+?

17KeyAscii=0

18Text1.Text=String$(Counter,"*")

19IfLCase$(PWord)="abcd"Then

20Text1.Text=""

21PWord=0

22MsgBox"口令正确，继续..."

（1

（1

（2

（3

（2）【解析】

本题主要考查了文本框的KeyPress事件。每按下键盘的一个键就触发一次KeyPress事件。在本题中用文本框的KeyPress事件来测试输入口令是否正确。在该过程中，定义了3个静态变量，其中Numberftries变量用来对输入的口令字符计数。每按一次键，就触发一次KeyPress事件，Numberftries变量加1，当该值达到12时结束程序，因此第一个问号处应填入Numberftries=12。口令由四个字符组成，既由每次输入的字符连接起来组成，因此第二个问号处应填入

Chr$(KeyAscii)，用Counter来表示输入口令长度，每输入四个为一个完整的口令，因此第三个问号处应填入Counter=4。

【答案】

（1）启动VB，打开考生文件夹下的工程文件stj4.vbp。

（2）双击窗体的任何位置，进入代码编辑窗口，填写代码：

第一个?处填入：Numberftries=12

第二个?处填入：Chr$(KeyAscii)

第三个?处填入：Counter=4

（3）填写完毕，调试并运行，运行无误后以原文件名保存。

综合应用（1小题，共30分）

****************************************************************

请根据以下各小题的要求设计VB应用程序（包括界面和代码）。

在考生文件夹下有工程文件djks043.vbp及窗体文件djks043.frm，该程序是不

"、

"加

，

【试题源程序】

1PrivateSubCommand1_Click()

2Text2.Text=""

3DimnAsInteger

4DimiAsInteger

5DimmAsInteger