二级VISUAL+BASIC机试真题2010年09月

2010年9月全国计算机等级考试二级VisualBasic上机真题1．基本操作请根据以下各个小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Form1的窗体上画一个列表框，其名称为List1，通过属性窗口向列表框中输入9个项目，分别为10、20、30、40、50、60、70、80、90；画一个文本框，其名称为Hscrol1，Min属性和Max属性分别为0和100，如图所示，编写适当的事件过程。程序运行后，如果单击列表框中的某个项目内容，并把滚动条的滚动框移动到相应的位置，如图所示。要求：不得使用任何变量。(2)在名称为Form1的窗体中画一个图像框，名称为Image1，其高、宽分别为1800、4500，通过属性窗口把考生文件夹下的图像文件smile.bmp装入图像框；再画一个命令按钮，名称为Cmd1，标题为“放大”。请编写适当事件过程，程序运行后，单击“放大”按钮，则把图像框的高度、宽度均增加100，同时图像也随之自动放大。注意：程序中不得使用任何变量。程序运行时的界面如下图所示。2．简单应用(1)在考生文件夹下有一个工程文件sjt3.vbp，及其窗体文件sjt3.frm，程序运行时，如果用鼠标左键按住窗体，并在其上移动，则窗体上显示“您按下了鼠标的左键”；如果用鼠标的右键按住窗体，并在其上移动，则显示“您按下了鼠标的右键”。程序运行时的窗体界面如图所示。要求：题目中所给的程序不完整，请读懂程序后将其补充完整，以原文件名保存。试题源程序：1PrivateSubForm_MouseMove(ButtonAsInteger,ShiftAsInteger，XAsSingle，YAsSingle)2'IfButton=?ThenPrint您按下了鼠标的左键3'IfButton=?ThenPrint您按下了鼠标的右键4EndSub(2)在考生文件夹下有一个工程文件sjt4.vbp，及其窗体文件sjt4.frm，窗体上有一个标签和一个文本框，控件及其属性均已设置完毕。现使用KeyPress事件编写一个口令程序，程序运行后，在文本框中输入口令．如果正确，则显示相应的信息，单击“确定”按钮后，将显示一行信息；如果口令不正确，则要求重新输入。3次输入的口令都不正确，则停止输入，并结束程序。程序运行的画面如下图所示。要求：题目中所给的程序不完整，请读懂程序后将其补充完整，以原文件名保存。试题源程序如下：1PrivateSubFormLoad()2Text1.Text=3Text1.FontSize=104Label1.FontSize=125Label1.FontBold=True6Label1.Font0=隶书7Label1.Caption=请输入口令...8EndSub9PrivateSubText1_KeyPress(KeyAsciiAsInteger)10StaticPWordAsString11StaticCounterAsInteger12StaticNumberftriesAsInteger13Numberftries=Numberftries+114'If?ThenEnd15Counter=Counter+116'PWord=PWord+?17KeyAscii=018Text1.Text=String$(Counter，*)19IfLCase$(PWord)=abcdThen20Text1.Text=21PWord=022MsgBox口令正确．继续...23Counter=024Printcontinue...25'ElseIf?Then26Counter=027PWord=28Text1.Text=29MsgBox口令不对，请重新输入30EndIf31EndSub3．综合应用在考生文件夹下有工程文件djks043.vbp及窗体文件djks043.frm，该程序是不完整的，请在有?的地方填入正确内容，然后删除?及所有注释符(')，但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有两个标签、两个文本框、一个框架、三个单选框以及两个控制按钮。标签的名称分别为Labell与Label2，标题分别为“原文本”、“加密文本”；文本框的名称分别为Text1与Text2，Text属性均为空；两个控制按钮的名称分别为Command1与Command2，标题分别为“加密”与“读入”；单选框的名称统一为Option1，标题分别为2、4、6；框架名称为Frame1，标题为“加密类型”。单击“读入”按钮，程序将读入考生文件夹下的文本文件in043.txt，单击“加密”按钮，加密过的文本显示在Text2中。根据单选框中不同的数字，加密的方法不同。例如选择Option1，则逐一把Text1中的字符串改为它后面的第2个字母。程序运行时的窗体界面如下图所示。[试题源程序]1PrivateSubCommand1_Click()2Text2.Text=3DimnAsInteger4DimiAsInteger5DimmAsInteger6DimStrAsString7DimStrTextAsString8Fori=0To29IfOption1(i).ValueThen10n=Val(?.Caption)11EndIf12Nexti13m=Len(Text1.Text)14Fori=1Tom15Str=MidS(Text1.Text,?,1)16Str=?(1，Asc(Str)+n)17IfStr＞zOrStr＞ZAndStr＜aThen18Str=String(1，Asc(Str)-26)19EndIf20StrText=StrText+Str21Nexti22Text2.Text=StrText23EndSub2425PrivateSubCommand2_Click()26DimsAsString27OpenApp.Path&\in043.txtForInputAs#128Input#1，s29Text1.Text=s30Close#131EndSub2010年9月全国计算机等级考试二级VisualBasic上机真题答案解析1．基础操作题(1)[解析]本题主要考查的是文本框的Change事件的用法。当用户向文木框中输入新信息，或程序把Text属性设置为新值从而改变文本框的Text属性时，将触发Change事件。程序运行后，在文本框中每键入一个字符，就会引发一次Change事件。在本题中要求当在一个文本框中输入字符时在另一个文本框中立即显示该字符，那么可以通过在文本框1即T1的Change事件中将T1的Text属性赋值给T2的Text属性，就可以实现两个文本框中内容的同步变化。[答案]第一步：启动VisualBasic，新建工程文件。第二步：设计窗体。根据题意，该用户界面包括三个对象，即窗体和两个文本框。单击工具箱中的文本框图标，在窗体的适当位置画一个文本框。画完后，文本框内自动标有Text1。重复以上步骤，再添加一个文本框为Text2。第三步：设置属性。根据题意，窗体的名称(Name)和标题(Caption)属性都为默认的Form1，因此无须再为其重新设置属性。单击Text1，将其激活，在属性窗口中将其Name属性改为T1。然后单击Text2，使其变为活动控件，在属性窗口中将其Name属性改为T2。根据题意，在初始情况下，两个文本框中都没有内容，这可以通过在属性窗口中将其Caption属性设置为空值或在代码窗口中的“Form1Load”事件中通过代码来实现。本题采用编写代码来实现。设置完属性之后就可以通过双击窗口进入代码编辑窗口编写代码如下：1PriVateSubForm_Load()2T1.Text=3T2.Text=4EndSub5PriVateSubT1Change()6T2Text=T1.Text7EndSub第四步：保存。程序设计完成经调试无误后进行存盘。执行“文件”菜单中的“保存工程”命令，打开“文件另存为”对话框，窗体文件名为“sjt1.form”，单击“保存”按钮。然后在紧接着出现的“工程另存为”划话框中选择工程文件名为“sjt1.vbp”，单击“保存”按钮。(2)[解析]本题主要考查对象的Left属性的概念。Left属性是用来设置对象的左边的坐标值，坐标值的默认单位为twip。当用程序代码设计时其格式为：对象.Left[=x]。这里的对象可以是窗体和绝大多数控件。当“对象”为窗体时，Left指的是窗体的左边界与屏幕左边界的相对距离；而当“对象”为控件时，Left指控件的左边界与窗体的左边的相对距离。和Lert属性相同的还有top属性，它是用来设置对象的顶边的坐标值，其对象的概念和Left属性中相同。本题要求单击按钮后文本框水平移动到窗体的最左端。对象为文本框，它的Left值是相对于窗体的左边界来说的，因此当它移动到窗体最左端时其Left值为0。[答案]第一步：启动VisualBasic，新建工程文件。第二步：设计窗体。根据题意，该用户界面包括三个对象，即窗体、一个文本框和一个命令按钮。因此在窗体上添加一个文本框和一个命令按钮并放置在窗体的适当位置。第三步：设置属性。根据题意，窗体的名称(Name)和标题(Caption)属性都为默认的Form1，因此无须再为其重新设置属性。将文本框的名称(Name)和标题(Caption)属性分别设置为“Text1”和空值。将命令按钮的名称(Name)和标题(Caption)属性分别设置为“C1”和“移动”。设置完属性之后就可以通过双击命令按钮进入代码编辑窗口编写代码如下：1PrivateSubC1_Click()2Text1.Left=03EndSub第四步：保存。程序设计完成经调试无误后进行存盘。以sjt2.vbp，和sjy2.frm进行保存。2．简单应用题(1)[解析]本题主要考查列表框的AddItem和RemoveItem方法的使用和ListIndex属性的概念。AddItem方法用于在程序代码中向列表框中添加一个选项。具体格式为：列表框名.AddItem选项内容字符串[,索引值]。此方法可将某个字符串作为选项内容插入到列表框数组中的指定位置，由索引值说明该字符串插入到数组中的下标值。如果省略“索引值”则文本被放入列表框的尾部。此方法只能每次向列表框中加入一个选项。RemoveItem方法用来删除列表框中指定的项目，其格式为：列表框.RemoveItem索引值。使用RemoveItem方法后从列表框中删除以“索引值”为地址的项目，该方法每次只能删除一个项目。ListIndex属性的设置值是已选中的表项的位置。表项位置由索引值指定，第1项的索引值为0，第2项为1，依次类推。如果没有选中任何项，ListIndex的值为-1。在程序中设置ListIndex后，被选中的条目反相显示。在本题中要求单击按钮后，将文本框中的内容添加到列表框中，因此要使用列表框的AddItem方法。当单击列表框中的某一项时立即将该项删除，就要使用列表框的RemoveItem方法，索引值是选中项的索引值，因此用ListIndex表示。[答案]第一步：启动VisualBasic，打开考生文件夹下的工程文件sjt3.vbp。第二步：双击窗体中的任何位置，进入代码编辑窗口，填写代码如下：第一个?处填入AddItem。第二个?处填入L1.ListIndex。第三步：填写完毕，调试成功后，以原文件名保存。(2)[解析]本题主要考查对单选按钮的操作和选择结构程序的运用。单选按钮的一个重要属性是Value属性，该属性用来决定是否选中了该选项。若此属性值为True，代表该选项被选中，否则，代表该选项没有被选中。一般系统默认值为False。条件语句也称为If语句，它有两种格式，一种是单行结构，一种是块结构。单行条件语句比较简单，其格式为：If条件Thenthen部分[Elseelse部分]。块结构条件语句以If开头，以EndIf结束，中间有多个elseif分支．可以用于对多个不同条件进行