全国计算机等级考试二级VB上机试题及答案(十一)VIP免费

全国计算机等级考试二级VB上机试题及答案(十一)基本操作（2小题，每题15分，共30分）****************************************************************请根据以下各小题的要求设计VB应用程序（包括界面和代码）。请根据以下各个小题的要求设计VisualBasic应用程序（包括界面和代码）。（1）在名称为Form1的窗体上画一个列表框，其名称为List1，通过属性窗口向列表框中输入9个项目，分别为10、20、30、40、50、60、70、80、90；画一个文本框，其名称为Hscroll，Min属性和Max分别为0和100，如图所示，编写适当的事件过程。程序运行后，如果单击列表框中的某个项目内容，并把滚动条的滚动框移动到相应的位置，如图所示。要求：不得使用任何变量。（2）在名称为Form1的窗体中画一个图像框，名称为Image1，其高、宽分别为1800、4500，通过属性窗口把考生文件夹下的图像文件smile.bmp装入图像框；再画一个命令按钮，名称为Cmd1，标题为"放大"。请编写适当事件过程，程序运行后，单击"放大"按钮，则把图像框的高度、宽度均增加100，同时图像也随之自动放大。注意：程序中不得使用任何变量。程序运行时的界面如图所示。****************************************************************参考答案与分析（1）【解析】滚动条的属性设置：Min--最大值属性。默认值为32767；Max--最小值属性，默认值为0；Value--返回或设置滚动条的当前位置的值，返回直介于Max和Man属性之间的值，包括这两个值。要实现滚动条的返回值与List的设置值同步变化，在两者之间建立等式关系即可。而Text属性对应的变量类型为字符串，所以这里用了一个转化函数Val（）来实现。Val(S)函数将字符串转化为数值。与之对应的将数值转化为字符串的函数Str(N)。【答案】第一步：启动VB，新建一个工程文件。第二步：在窗体上画一个文本框，文本框的Name属性为Text1，Text属性空，再在窗体上画一个水平滚动条Max为100，Min为0，Name为HScroll1，再画一个列表框List1，在List属性中输入"10、20、30、40、50、60、70、80、90"。第三步：编写程序代码：1PrivateSubList1_Click()2Text1.Text=List1.Text3HScroll1.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属性为"放大"。第三步：编辑代码：1PrivateSubCmd1_Click()2Image1.Height=Image1.Height+1003Image1.Width=Image1.Width+1004EndSub第四步：调试并运行程序，运行正确后按要求保存。简单操作（2小题，每题20分，共40分）****************************************************************请根据以下各小题的要求设计VB应用程序（包括界面和代码）。（1）在考生文件夹下有一个工程文件stj3.vbp，及其窗体文件stj3.frm，程序运行时，如果用鼠标左键按住窗体，并在其上移动，则窗体上显示"您按下了鼠标的左键"；如果用鼠标的右键按住窗体，并在其上移动，则显示"您按下了鼠标的右键"。程序运行时的窗体界面如图所示。要求：题目中所给的程序不完整，请读懂程序后将其补充完整，以原文件名保存。试题源程序：1PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)2'IfButton=?ThenPrint"您按下了鼠标的左键"3'IfButton=?ThenPrint"您按下了鼠标的右键"4EndSub（2）在考生文件...