单考单招VB模拟试题及答案.docx

1、单考单招VB模拟试题及答案20年V操作题第一套试题一:(30分）用VB编制一个程序,初始界面如图1,文本框显示程序运行输入的文本（文本框有垂直滚动条,文本为红色)。程序运行时可通过复选框对文本字形进行设置，效果如图2，只有当文本框内容非空时“结束”按钮才有效,单击“结束”按钮结束程序运行。图图2 操作要求：1.(分）创建一个标准XE工程,将其窗体文件和工程文件分别以test1.frm、tt1p为文件名保存到考生文件夹下。.(12分)参照图1和图完成界面设计:按表添加相关对象并设置相关的属性：表1 （每个属性1分,共2分)对象名属性属性值对象名属性属性值Fm1cation字体效果abel1mel

2、ab1Label1aption请您留下宝贵意见Tt1nametxt1Tet1mulilintruTe1scrollbrs2Ttrecolr&H00000FF&Chck1capion加粗Comd1namecdChekcption斜体Comm1capton结束ommd1enabels3.（1)（4分)编写适当的事件（2分):只有当文本框内容非空时“结束”按钮才有效。（不用能V函数）（代码2分)(2）（分)单击“加粗”复选框时,文本框中的文字显示加粗效果;否则取消；（要求不能用I语句来实现)（事件2分,一条代码2分）(3）(）单击“斜体”复选框时，文本框中的文字显示斜体效果，否则取消。（要求不能用I

3、F语句来实现)(事件2分，一条代码2分)4. (2分）保存窗体文件和工程文件,生成可执行文件te.xe保存到试题目录下的“试题一”文件夹。Prvate ub Cec_lck() txt.Fnl = Nottxt.nBoldEnd uPria Sb ChcCick（) txt1.FntItalc = ot tx1.FnttalEn SubPite u Commndlc()EndEnd Sub答案两种: 方法一:PvateSbx1_Change()If Tt1Tet = Thnmd1Enbled = FaseElecmd1.Enabled=TreEn IfEd Sub方法二PrateSu x1_h

4、ng()If tx1.Txt Then c.Eabled = TrueEse cd1.bled=lseEdIfnd SbPrae Su c_Cick()EdEn Sub试题二（25分）1.（13分)有一个V程序,其功能是:根据身高和体重判断胖瘦，程序运行界面如图3和图4所示。胖瘦条件:如果身高与体重之差大于等于10，则表示“你太瘦了！”；如果身高与体重之差小于等于0,则表示“你太胖了！”;如果身高与体重之差在10010之间,则表示“你的身材真好!”图1图2打开某路径下的工程文件test21.vb,完成下列操作：（）（3分）当用户在文本框1输入身高时，命令按钮can有效，添加适当的事件和代码实现

5、此功能。(事件1分，一句代码2分)(）(分)完成相应注释1和注释处的修改,实现根据身高和体重判断胖瘦的功能并显示“退出”按钮注释处添加一条代码（2分），同时“计算”按钮无效注释4处添加一条代码(2分)。（每格2分,共4分)(3)（2分)保存窗体文件和工程文件,生成可执行文件es-1ex保存到试题目录下的“试题一”文件夹。rivae Sub Comm1_Click()Dim As Singl,w As Sigle, x Sleh = Va(Text1.Tet)w= Vl(exText)= -wfx = 110Then Label4.Cpon 你太瘦了!ElsIf x 100 Tn Lael.Cp

6、in 你的身材真好!Else abel4.apion =你太胖了！End fCommndViiblTreCommad1Enabled FlsendSubPrivaeu Comand2_Click()EndEnd SubPriat Su xt1han（）Cmnd1.Enabld= TrEnd Sub.(12分）填空完成B程序，其功能是求某一天是这一年的第几天,界面设计和程序运行效果如图5所示。图5打开某路径下的工程文件est2-.bp，完成下列操作:(）10分）输入某一天(年、月、日)，单击“开始”按钮，计算这一天在本年中的天数(第几天)完成注释()(2）(3)(4)（5）填空实施此功能。（每空

7、2分,共10分）（2）(分）保存窗体文件和工程文件，生成可执行文件tt2-2.xe保存到试题目录下的“试题二”文件夹。OpioBase 1ivate Sb Commnd1_lic() Dim , T, y% a = Array(3， 2,31,30,31, 30, 31， 1， 30， 31, 0,31) y = Val(ext.Txt) Mod400 = 0 Or ( Mo 0And y Mod 100 0)Ten a(2) = 9 Ed If n=Vl(Cmbo1Tet) For i = 1To n- 1 T + (i) xti Txt2.Tt T+ Vl（Lit1.Text)En Sub

8、Prvate Su Cmand_Clck()EndEd ubPrivteSub rm_Loa() ori = T Lit1AItem i ext i or i =1 To 12 Combo1.AddIte NexiEd Sub试题三、（2分)修改考生文件夹下的VB程序使其具有下列功能:在明文文本框中输入一串字串，在密文文本框中输出密文,加密规则:若字符为字母，将每个字母向后移1、3、5,结果仍是字母，其它字符保持不变。界面设计和运行效果如图4和图5所示。 打开“试题三”文件夹中的工程文件test3.p,并完成下列操作:1.（3分)单击单选按钮的控件数组中任一个单选按钮，决定移动位数N，添加适当

9、的事件和代码实现此功能（注:变量N设置通用变量）2. (15分)将txt文件复制到“加密”按钮的事件中，完成相应的（1)、（)（3)填空及在注释所在行添加一条代码，并修改“注释2”所在行的代码,让程序正确执行，删除所有注释。. (2分）保存窗体文件和工程文件,生成可执行文件tet3.保存到试题目录下的“试题三”文件夹im n%PrivteSub Cmand1_Clic（）Dim mDims$, x$m = e(Text1.Tet)For i = 1 Tom = Md$(Tt1Txt, i,1) f x =A Ad x = a An x z r x Z nd a Ten x = hr（Asc(x

10、) - 6) Endf n I s = s + xN Text2.Txt= sEd Sbrvte SubOption1_Clc(Index AsItger）= Optn1(ndex).CpionEndSb215年VB操作题第二套试题一（30分）设计一个模拟中奖号码的B程序。界面设计和运行效果如图1和图2所示图1图1(4分)创建一个标准EXE工程,将其窗体文件和工程文件分别以test1.m、test1vbp为文件名保存到试题一的文件夹下。2.（1分）参照图和图2完成界面设计:按表添加相关对象并设置相关的属性：(每个属性设置分)表1对象名属性属性值对象名属性属性值Form1capion随机抽数La

11、bel1caion福利彩票抽奖程序Labe1fontnae幼圆Labelfotsze29abl1foreolo000FF&Fmecpion中奖号码ext1（0)-ex1（7)fosiz24(修改)Frm1nameFr1Commandcpion开始STxt（)-txt1（7)bakcolor&H000C0FF&imer1Enablfaleommand2cpton停止XTeierval10Comad2Ebefalse3.操作要求：（1) (2分）将1.txt文件复制到适当的事件（2分）中。(2）（4分)完成“开始”按钮的代码,功能具有定时器开始工作,命令按钮comman1无效，命令按钮commnd

12、2有效。() (分)完成“停止”按钮的代码，功能具有定时器停止工作,命令按钮comman有效,命令按钮commd2无效。（2分)保存窗体文件和工程文件，生成可执行文件test1exe保存到试题目录下的“试题一”文件夹。Privat Sub Commn_ck（）Tie1.Enabe = Treomn1.naled = leComand2.Eabl = TreEnd SubPrivate Sb Coma2_Cick(）ime1bld FlseCmman.Enabed= TComand2.abd lseEd SubvateuTme1Timr（）RanmizeFor i = 0 To 7 Text1(i)Tex=Int( * Rd) 答案也可以是et1().xt