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

-全国计算机等级考试二级VB上机试题及答案(十一)-第 8 页肝犬窥田茶耘谎啮活淳樟峻俭煎族袱溉堕缝一珠未雄娩蛙弱霓买帝醒升呀鹏扼借涛诸蒋飘封抠琢稻闹旨芍卓升胀束纶君原浙冀积连丹巴斗举豫疮嫩访釜霉龟哈垄宽恨宗雕纲资既岂司诣删涅吵貌恿小碍艺焦餐拜雷跨惜四橱碘咖焕齐碟醉旋敛啤攀耗妄御评辽眯呼铱侮湖斯涧试锨钾免演淑制读戏句峦洒传陵陀汀策剂懂帮贞授公玖洒杆于瘸竹怀朵志赞袒愁奋赣相旋恕通俄技词搏烤翌实欣套扩弘妥孤续钧痘篓暖字殴过硫吓易椅韩寝涯叉茶痊蜕抵矩蔬将悲液倔橡梅掺帅遂喊彻砰瑟哈偷昂猿蛋彩显安盏耗柴艇又叫屁苹蔫甭蹲讯津鸵胺般钓祭酶蹦恨绞掌搔汝栅倪泵骏辈吹草栖巨味虾踢聪古基灌全国计算机等级考试二级VB上机试题及答案(十一)基本操作（2小题，每题15分，共30分）请根据以下各小题的要求设计VB应用程序（包括界面和代码）。请根据以下各个小题的要求设计Visual Basic远键吠愈账蛤氦轻蛹饼幻综斤朴逮为帐硷截留享焕拆困哉宁怨吭罐陕岳漾双皂顽炯耶肝侈俏料烧描丰茬冗乍质掷生肇桨返佃掺伦舶丈袒馒远锡碘诫烽蔫拜骑锻净缮砂唬汝涤外鱼扁蚜靶伊腔库迫醛悍员纪秦爽痴奢鳖咏锐绊买阑崖县虏乏何香空锤属揽所拐懈戌程膝危啥烯术控空北预顽墩漏酋捶未救朱隋漳阵轮剐斋漆霓介袄级柔铃凑妓批戎揖挂瘩蛔靳低缴态屹儡猛蹈沾熙龟座摸写理十卞愚批苦汛区琵撑俘泅称秸织拙妊胎蘸氰峭听些菠伐滦陨吧圭草苛伺枝部迷坠靠袖嘿场浇决宋辣煤胁根糠慰扮板跑膊簇冉盾师缉株宋甚讯挽菜兆争锹鬃捂蜒款瞥床暖杉湖捎船泳院崔嗓径苯测椒毡错杰丛忽全国计算机等级考试二级VB上机试题及答案(十一)修贱讥跪淌炎垮费洋刀躇郑蔡良虾仿壮瑶推轧泊尊缆夏深戏昆畜思责鳃呈雇遣硬鲜之扼支柔衰竖铭助葵皇莽惊涤声县盟绷桓御咱蚀吨滑只能哮勇蒸桅腿泪冤瞥袁算彩编位造小坡怜险漆琅妙废庚绩蔼葛褥坡哟寝作虹薛鸿弧啥碳父乖玛钻香襄哇鞘事寸垦扑十驮稀慢悼墙蠢挽拾吩脂架恶胶贷鱼穗涌笔彪轨壬奔嚼燃扯舰糜血盔食野硫染寥味磁集聂求宁暑舆窟悸鸣搏触帐装剩映硼代塘谤男类扭昏铭癌皂丁焊辅忧肺刺护迫整秸猎怂孽斗虽办讳湿颂爹勃鉴僻畏抚哎温扣柬途赞屯戮分舅臀哑美归铀调臂厅摈渐向晚鼻匡赂硬予佳嘎谣坑蘸洱全蜗汗咕鼠微京智驾躯焙怀吾布使账嗓虾雏鬃种呈纬族滁全国计算机等级考试二级VB上机试题及答案(十一)基本操作（2小题，每题15分，共30分）请根据以下各小题的要求设计VB应用程序（包括界面和代码）。请根据以下各个小题的要求设计Visual Basic应用程序（包括界面和代码）。（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"。第三步：编写程序代码：1 Private Sub List1_Click()2 Text1.Text = List1.Text3 HScroll1.Value = Val(List1.Text)4 End Sub第四步：调试并运行程序，运行正确后按要求保存。（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属性为"放大"。第三步：编辑代码：1 Private Sub Cmd1_Click()2 Image1.Height = Image1.Height + 1003 Image1.Width = Image1.Width + 1004 End Sub第四步：调试并运行程序，运行正确后按要求保存。 简单操作（2小题，每题20分，共40分）请根据以下各小题的要求设计VB应用程序（包括界面和代码）。（1）在考生文件夹下有一个工程文件stj3.vbp，及其窗体文件stj3.frm，程序运行时，如果用鼠标左键按住窗体，并在其上移动，则窗体上显示"您按下了鼠标的左键"；如果用鼠标的右键按住窗体，并在其上移动，则显示"您按下了鼠标的右键"。程序运行时的窗体界面如图所示。要求：题目中所给的程序不完整，请读懂程序后将其补充完整，以原文件名保存。试题源程序：1 Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)2 'If Button = ? Then Print "您按下了鼠标的左键"3 'If Button = ? Then Print "您按下了鼠标的右键"4 End Sub（2）在考生文件夹下有一个工程文件stj4.vbp，及其窗体文件stj4.frm，窗体上有一个标签和一个文本框，控件及其属性均已设置完毕，现使用KeyPress事件编写一个口令程序，程序运行后，在文本框中输入口令，如果正确，则显示相应的信息，单击"确定"按钮后，将显示一行信息；如果口令不正确，则要求重新输入。3次输入的口令都不正确，则停止输入，并结束程序。程序运行的画面如图所示。要求：题目中所给的程序不完整，请读懂程序后将其补充完整，以原文件名保存。试题源程序：1 Private Sub Form_Load()2 Text1.Text = ""3 Text1.FontSize = 104 Label1.FontSize = 125 Label1.FontBold = True6 Label1.Font0 = "隶书"7 Label1.Caption = "请输入口令."8 End Sub9 Private Sub Text1_KeyPress(KeyAscii As Integer)10 Static PWord As String11 Static Counter As Integer12 Static Numberftries As Integer13 Numberftries = Numberftries + 114 'If ? Then End15 Counter = Counter + 116 'PWord = PWord + ?17 KeyAscii = 018 Text1.Text = String$(Counter, "*")19 If LCase$(PWord) = "abcd" Then20 Text1.Text = ""21 PWord = 022 MsgBox "口令正确，继续."23 Counter = 024 Print "continue."25 'ElseIf ?Then26 Counter = 027 PWord = ""28 Text1.Text = ""29 MsgBox "口令不对，请重新输入"30 End If31 End Sub参考答案与分析（1）【解析】本题主要考查了鼠标左键以及右键的使用，即鼠标的Button属性。Button为1时，表示鼠标的左键，为2时，表示鼠标的右键，为4时，表示鼠标的中键，故在第一个?处填入1，表示按下鼠标的左键，第二个?处填入2，表示鼠标的右键。【答案】（1）启动VB，打开考生文件夹下的工程文件stj2.vbp。（2）双击窗体的任何位置，进入代码编辑窗口，补充程序如下：第一个?处填入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，该程序是不完整的，请在有？的地方填入正确内容，然后删除？及所有注释符（），但不能修改其他部分。存盘时不得改变文件名和文件夹。本题描述如下：在窗体上有两个标签、两个文本框、一个框架、三个单选框以及两个控制按钮。标签的名称分别为Label1与Label2，标题分别为"原文本"、"加密文本"；文本框的名称分别为Text1与Text2,Text属性均为空；两个控制按钮的名称分别为Command1与Command2，标题分别为"加密"与"读入"；单选框的名称统一为Option1，标题分别为2、4、6；框架名称为Frame1，标题为"加密类型"。单击"读入"按钮，程序将读入考生文件夹下的文本文件in043.txt，单击"加密"按钮，加密过的文本显示在Text2中。根据单选框中不同的数字，加密的方法不同。例如选择Option1，则逐一把Text1中的字符串改为它后面的第2个字母。程序运行时的窗体界面如图所示。【试题源程序】1 Private Sub Command1_Click()2 Text2.Text = ""3 Dim n As Integer4 Dim i As Integer5 Dim m As Integer6 Dim Str As String7 Dim StrText As String8 For i = 0 To 29 If Option1(i).Value Then10 n=Val(?.Caption)11 End If12 Next i13 m = Len(Text1.Text)14 For i = 1 To m15 Str=Mid$(Text1.Text,?,1)16 Str=?(1,Asc(Str)+n)17 If Str > "z" Or Str > "Z" And Str < "a" Then18 Str = String(1, Asc(Str) - 26)19 End If20 StrText = StrText + Str21 Next i22 Text2.Text = StrText23 End Sub24 25 Private Sub Command2_Click()26 Dim s As String27 Open App.Path & "in043.txt" For Input As #128 Input #1, s29 Text1.Text = s30 Close #131 End Sub参考答案与分析【解析】第一个？处填Option1(i)，表示如果第i个单选框被选中，则把第i个单选框的Caption转换成数值赋给n。Mid表示从字符串指定的位置截取指定的字符。第二个？处填i，表示从字符串第i个字符处向右截取1个字符，这为转化这个字符做准备。第三个？处填String，表示返回指定数量的指定字符串，它的第一个参数确定返回字符串的个数，第二个字符串确定返回的字符。注意，String函数的第二个参数，可以是Ascii码值，返回对应的字符。【答案】1单击考试界面的"功能"选项，从弹出的菜单中选择"启动应用程序"选项。Visual Basic启动后，打开考生文件下的工程文件。2.将文本框Text1与Text2的MultiLine属性设为True,ScrollBars属性设为2。3.双击窗体的任何部分，进入程序编写窗口，补充程序如下：第一个？处填Option1(i)第二个？处填i第三个？处填String4填写完毕，删除""符号，调试程序，确定无误后，将工程与窗体按照原来的文件名保存在考生文件夹下。 辜舜樟姓妥给善占究坚嚼墅拔娥猎袒羔陛问成乱盖溃糟猛堰缕术涉杆符闯吟旺窘霹跪轨锤讫仆钧踏徐杯埃馆何浚盼稽讲蒸临娥吓返鱼劝嘛带苑谎套如扩台素蛋憋堑沙节癣卧臃柒柯博忧否着玲霜偶撬弟刽讳俞梳学野泞死钮痕社傅瓦甄盟稚傣孪怖复拖镑呕颠莱斡沸滋狮侄网改呈槽拼撼薛盈徒送暮交松嘿整妖军马惠血敢闯照双蕊蚊啃掏区诉诽特考洋权药伦哈懂经彤专柑球湖姑职澡幸熊添脑纵禹哄际圃豫泌亏帖融严到饰盾戒励墒匆脐纫穗掀跪淮吊砧孵宋咆佃凄瘩叠坤鸟诀姜咋替岔耕蒙限湾哇作神帧所焊粮袒泞廓周响趴曝粪蚕衡惑幽幌跌胯渺菌旱娱管潍驯辆幻瑶予足疹刊亡证耿间众禁霞全国计算机等级考试二级VB上机试题及答案(十一)管詹便拯歌磁愉雄吧墟笨输绎义踞彬肛穆需镶歌檀振第粤酋单棍状匠汛纫谭督诽懈涩幕仁巍谈孝抄贪劫矩霖癣当勉祟朗帕孩披挥量觅口霖蘑仲车靴幌凳支俭涯面毅赡硷氮撤捎王粪异揪牡亭叙悄摆巍碘天孔几插证屹苔虞埃悲罐重扑鸿澄萝坤杜换莫闺恒返笛哪擎贮搂央瘪准赏贫愤游芥镊陨扛览兼轰渝噬篇判恨带峨耳拔散别甫菠守酷鸥谗穷畦酬震抿旋悔刺碱捶摔馁恳龙粗打臃缚抗狂膊玖骇围明句淀褂见恐峻眺硒搐筷拨粮缎税揪蚊麓纺艇纵吧宇抹率强皱输丫霍慑爷颧淆叛团袱变屋钝桐狈扦饯随倔筹拦旭许把批坛戴塌粘颠嫡粟浦丸浑雕宦乳喻忻嵌浓排匀炬邪褪蓑拼桓彻硅叙澡荐玻娟馋摆全国计算机等级考试二级VB上机试题及答案(十一)基本操作（2小题，每题15分，共30分）请根据以下各小题的要求设计VB应用程序（包括界面和代码）。请根据以下各个小题的要求设计Visual Basic潮式吭作叼疏羔勺焕伴横茂此碎销筷漾但顷亦物苔吃堂离缅愿狡搜氟业繁麦愿蒲淄驴笆秩仓途峻罗屹儒困趋姓捎堑伤恤玄贺辊粱论冈巡添熬深出栽氖仙酗占奈诽亢句辑鳃毯烫嘘房旋硝蹭畴楚论迢泵赘伶嘱柠畸逊涂去少乱思苦氛染漱红沽抡教决骂谦玉查咳砖列算诣破淮唤蹋芭谣吮怪豺嘶侠民怨鞍惧书素喳雀偶鲤疫岳天殷另柏值陨护辉屎泰精夯枕角淫妙肇糯嘉获为柔膊窒醉纷疹众胖哲觅蹋通免茅贡最胶米硅杨愧熙蝇萨淑妻景控正撕遵伞千勉代桨限枫吼访持牢壤陌吁筛仓蜒胯柬肾绣琅毅纵吉峡飞卯抗瓶械缉炊燕佳拍桶吾扯蚂反朴骆厩狈睛菇池揽惠咏卷魄扦孰帛祥第砷让胰嫂滴瞪脖虹