《VB程序设计》期末考试编程题复习

#第2章.新建工程，在窗体上创建两个命令按钮Commandl、Command2,一个标签Labell,界面如图2-5所示，程序运行要求如下：1）单击“改变颜色”按钮，标签上的文字内容改为“颜色已经改变”，文字颜色改为红色。“改变颜色”按钮代码：Label1.ForeColor=vbRedLabel1.Caption="颜色已经改变"2）单击“改变字体”按钮，标签上的字体改为“黑体”。“改变字体”按钮代码：Label1.FontName="黑体"最后将工程文件、窗体文件分别以lx2-2.vbp、lx2-2.frm为文件名保存在D:\EX文件夹下。.设计一个留言薄。新建一个工程，在窗体上创建2个标签，2个文本框，1个命令按钮，属性设置如图2-6所示，。要求单击“提交”按钮后，上面的文本框内容复制到下面的文本框中，且下面文本框中的内容不能修改。单击“清除”按钮则清除两个文本框中的内容。“提交”按钮代码：Text2.Text=Text1.Text“清除”按钮代码：Text1.Text=""Text2.Text=""FoemI请你留言:VisualBasic代明不区分字符的大小写你的留言是:提交清除FoemI请你留言:VisualBasic代明不区分字符的大小写你的留言是:提交清除口回区］最后将工程文件、最后将工程文件、窗体文件分别以lx2-5.vbp最后将工程文件、最后将工程文件、窗体文件分别以lx2-5.vbp、lx2-5.frm为文件名保存在D:\EX文件夹图2-6窗体文件分别以lx24.vbp、lx24flm为文件名保存在D:\EX文件夹下。.设计一个程序，程序界面如图2-7所示。当单击“显示”按钮时，在文本框中显示“欢迎使用VB!”；当单击“清除”按钮时，清除文本框内的文本；当单击“退出”按钮时，结束程序运行。“显示”按钮代码：Textl.Text="欢迎使用VB!"“清除”按钮代码：Text1.Text=""“退出”按钮代码：End下。第3章.设计一个程序，在文本框中输入一个3位整数，单击按钮后，在标签上输出该数的百位数、十位数和个位数，运行界面如图3-3所示。最后将工程文件、窗体文件分别以SL3-3.vbp、SL3-3.frm为文件名保存在D:\EX文件夹下。

Frivate2，u口l-ommaiuii_l-±ickl.jDimn%,a%,b%,c%n=V：dl(Textl.Text)a二n1ULIb=(n-a*100：：l 10匚二nMud10Label2,Caption="百位数："他a他二十位数：“他b他二个位数：“他匚EndSub5设.计一个程序，实现简单计算的功能，运行界面如图3-7所示。最后将工程文件、窗体文件分别以lx3-3.vbp、lx3-3.frm为文件名保存在D:\EX文件夹下。图3-7程序运行界面PriuateSubCommand3_Click()~~…*”按钮的代用Labell.Caption=Text3.Text=Ual(Text1,Text)*Ual(Text2.Text)EndSubPriuateSubCommand5clic)'"elm"按钮的代用Textl-Text=一Text2,Text=""Text3,Text=""EndSub提示：按钮的代码： 是双引号空字符串的意思设计一个程序（程序运行界面自定），使用inputbox函数输入某品牌电脑的单价和购买的数量，计算并用msgbox函数输出需付款金额。最后将工程文件、窗体文件分别以lx3-4.vbp、lx3-4.frm为文件名保存在D:\EX文件夹下。PriuateSubForm_Click（）Dimdj&,shl^,je&dj=UalflnputB口 输入某品牌电脑的单价:“））shl=Ual（InputB口工「输入某品牌电脑的购买的数量「））je=dj*shlMsgBox”需付款金颔二"&jeEndSub|rnd函数产生一个［0,1）的单精度随机数。设计一个程序（程序运行界面自定），用此函数产生一个两位的随机整数并用msgbox函数输出该整数值。最后将工程文件、窗体文件分别以lx3-5.vbp、lx3-5.frm为文件名保存在D:\EX文件夹下。PriuateSubForm_Click（）Dimzh%Randomizezh=Int（90*Rnd）+10MsgBox1两位的随机整数是:，，&zhEndSub第4章一、顺序结构8.例：输入数据•输入时间（小时，分，杪），然后输出总计多少秒.•解：法一：使用文本框输入数据运行时界面如下：最后将工程文件和窗体文件分别以3和存，并保存在 文件夹下。3文-件1名.保从输入框中输入圆的半径，计算圆的周长和面积(1)创建应用程序的用户界面和设置对象属性(2)编写程序代码PrivateSubCommandlCfickQDimrAsSingle,kAsSingle,sAsSingle『=Giw由期"请输入圆的半径”「旬算圆的周长和面积"))k=2*314159*rs=3.14159。*rTextl.Text=kText2.Text=s•强解，甘算已完成TJ甘算圆的周长和面积"EndS*bTOC\o"1-5"\h\zPrivateSubCommand2click0 wEnd -EndSwb ¥最后将工程文件和窗体文件分别以 和并保存在 文件夹下。最后将工程文件和窗体文件分别以 和并保存在 文件夹下。文件名保存,给定一个两位数曲36),交换个位数和十位数的位置，把处理后的数显示在窗体上编写的窗体单击事件过程代码如下，PrivateS>bEoTMJGlkfcODimxAsIst&ger^aAsIntegerDimbAsInteger^cAsIntegerx=363=藏疝，10) ，求十位致b=xMod10 ，求个位数c=b*10+a ，生成卦的甄PriEt”处理后的数二二cEndSib .运行程序后单击窗体，输出结果是，处理后的数：63 ¥★最后将工程文件和窗体文件分别以-和5文件名保存,并保存在D E文件夹下。11编.制程序，在一个文本框中输入一串字符（长度大于2），单击“处理”按钮时，则取出该字符串的头、尾部各一个字符，合并后显示在第二个文本框中。如输入“ABCDEF”，则输出“A”。PrivateSubCommandlClickf)DimxAsString,yAsStringx=Teitl.Teity= 1)+Rjgfclfc1)y=Text2.TextEndSuby=Text2.TextEndSubText2.Text=文件名保存，最后将工程文件和窗体文件分别以 和文件名保存，并保存在D EX件夹下。二、选择结构12．请参考如图4-所8示程序的运行结果，新建一个工程，完成“健康称”程序的设计。具体要求如下：（1）窗体的标题为“健康称”，固定边框。（）窗体的左边有两个标签， 的标题为“身高”、 的标题为“体重”它们的旁边分别有两个文本框， 用于输入身高、 用于输入体重；在文本框的右边有两个标签， 的标题为“m 的标题为“”。（3）将两个文本框文字对齐方式均设置为右对齐，最多接受3个字符。（4）两个文本框均不接受非数字键。（）单击“健康状况”按钮Ca根据计算公式将相应的提示信息显示在标签中。计算公式为：标准体重=身高-10；5体重高于标准体重*1.为1偏胖，提示“偏胖，注意节食”；体重低于标准体重*0.为9偏瘦，提示“偏瘦，增加营养”；其他为正常，提示“正常，继续保持”。FrivateSuhCumm：±iLdl_C1ickUDimEhengauAsIriteger.,tizhungAsIritegerDimbi：±uzhixn%,shuuhujEhenggao=V：dl(Textl.Text)tizhong=Vai(Text2.Text)biaoiIlijil=Ehenggau-105IftizhunK》bi：±oeIliixl*1.1ThenShuchu="偏胖」注意节食"ElselftizhorLE<hiaozKiitl:*:0.9Thenshuchu="偏瘦』均加营养"E1Jhuchu="正常J继箜保持〃EndIfLabel5.Caption=shuchuEndSubFrivathSuhTE*tl_ChangEQIfIeNuitieric(Tex11)-Fai”ThenTextlEndSubFrivathSuhTE*t2_ChangEQIfIeNuitieric(Text2)-Fai”ThenText2EndSub最后将工程文件、窗体文件分别以lx4-1.vbp、lx4-1.frm为文件名保存在D:\EX文件夹下。■健康称13.编写模拟袖珍计算器的程序，运行界面如图4-9所示。要求如下⑴输入两个操作数和一个四则运算操作符，根据操作符决定所做的运算。⑵输入的数据进行合法检验，当输入出错时，调用MsgBox()提示。口口tiimExplicitFrivateSubCommandl_C1ick(..)Dimx!,v!x=Vai(Textl)y=V：il(Text2：：lSelectCaseTrim(Text3')CaseText4=x+yiTiT -L-ase-Text4=x-yCaseText4=x*yCaseIfy=0Then正磔口乂“除数不能为0!TextZ.SetFuiZUEText4=ElseText4=x/7EndI£EndSeleiztEndSubFrivateSubCommandS」二工iukUEnd -EndSub最后将工程文件、窗体文件分别以lx4-2.vbp、lx4-2.frm为文件名保存在D:\EX文件夹下。三、循环结构下。三、循环结构输入任意一个整数，求到之间所有偶数和；可参考课本 页利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-1.vbp、XH4-1.frm为文件名保存在D:\EX文件夹下。输入任意一个整数，计算阶乘；！ 可参考课本 页利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-2.vbp、XH4-2.frm为文件名保存在D:\EX文件夹下。输入任意一个整数，输出 … 的计算结果；可参考课本页利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-3.vbp、XH4-3.frm为文件名保存在D:\EX文件夹下。输入任意一个整数，输出以内的倍数之和（即……）；可参考课本页利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-4.vbp、XH4-4.frm为文件名保存在D:\EX文件夹下。输入任意一个整数，输出XXX^X的计算结果；可参考课本页利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-5.vbp、XH4-5.frm为文件名保存在D:\EX文件夹下。输入任意一个整数，输出以内的所有的倍数的积；可参考课本页利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-6.vbp、XH4-6.frm为文件名保存在D:\EX文件夹下。输入任意一个整数，输出C.’…C.’…Ln-的计算结果；可参考课本页3）利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-7.vbp、XH4-7.frm为文件名保存在D:\EX文件夹下。输入任意一个整数，输出 •「…的累加和；可参考课本 页和课本 页利用文本框来实现数据的输入和输出。最后将工程文件、窗体文件分别以XH4-8.vbp、

XH4-8.frm为文件名保存在D:\EX文件夹下。FrivateSubCommandl_C1ick0Dimi瑞e%,p%,n%-E=0p二1n=Vai(Textl.Text)Fori=1Tonp=p*ie=e+pNextText2.Text=wEndSub编程求出 之内的全部素数；可参考课本 页）最后将工程文件、窗体文件分别以XH4-9.vbp、XH4-9.frm为文件名保存在D:\EX文件夹下。编写程序打印如下九九乘法表（使用双重循环实现）。可参考课本页最后将工程文件、窗体文件分别以XH4-10.vbp、XH4-10.frm为文件名保存在D:\EX文件夹下。XXXXX X24编.一程序，显示所有的水仙花数，如下图。所谓水仙花数，是指一个3位数，其各位数字立方和等于该数字本身。例如，1533+=351+33。最后将工程文件、窗体文件分别以XH4-11.vbp、XH4-11.frm为文件名保存在D:\EX文件夹下。

□•pti口itEx.liuitFrivateSubC口mmandl_C1ick()Dima瑞b&c%Fori=100To999a=工nt(i/100)b= -a*100)/10)c=i-a*100-b*10工fi=a"3+b"3+c"3ThenPrinti,NextEndSub25.我国古代数学家张丘建在“算经”里提出一个世界数学史上有名的百鸡百元问题：鸡翁一，值钱五；鸡母一，值钱三;鸡雏三，值钱一。百元买百鸡，问鸡翁、鸡母、鸡雏各几何?意思是：用10元0钱买10只0鸡，公鸡5元一只，母鸡3元一只，小鸡1元3只；10只鸡中必须包括鸡翁、鸡母和鸡雏。自行设计界面并在图形框中输出百鸡百元的几种解。最后将工程文件、窗体文件分别以XH4-12.vbp、XH4-12.frm为文件名保存在D:\EX文件夹下。提示：按题意列出方程组，并己知鸡翁不能超过19只，鸡母不能超过32只。123PSIS481218114123PSIS481218114788184求解BSSi退出口Dti口nFrivateSiibC口mmari.d.1_C1ickI.)Dimi%,i%,k%,n%Ficturel.PrintTab®);"公鸡";Tab(13);"母鸡";Tab(18);"小鸡"Fori=1ToI'dFori=1To32k=1LILI-i-iIfi+5+j*3+k/3=lULiThen口二n+iFicturel.PrintTab(1);“解"也nSt"：";Tab(8);i;Tab(13);i;Tab(18);kEndIf -NextjNextiEnd.MubPrivateSubCtmm：”Ld2_C1ic!kOEnd "EndSub第5章.编写程序，将随机产生的两位数的一维数组A(10)中的元素向后移动一个位置，最后一个元素移到第一个元素的位置上。最后将工程文件、窗体文件分别以lx6-2.vbp、lx6-2.frm为文件名保存在D:\EX文件夹下。

a jBB'a jBB''原数组为:25-5-44IT~24~-69-94蔗—8171现数祖为：712539443324699486SIPrivateSubPrivateSubForm_ClickDima(.10.)AsInteger,temp%F-mireFori=1To10a(i：l二工nt。口口*Md)Ifi=1ThenFrint"原数蛆为Printa(i)：*】NextiPrinttemp=a(10)Fori=9To1Step-1a(i+1')=a(i')Nextia(.1J-tempFori=1To10Ifi=1ThenPrint"现数组为Printa(i；l;"\NextiEndSub.输入某小组5个同学的成绩，计算总分和平均分（取小数后一位）。本例利用InputBox函数来输入成绩，输入完毕后经过计算，再采用Print直接在窗体上输出结果。最后将工程文件、窗体文件分别以SZ5-1.vbp、SZ5-1.frm为文件名保存在D:\EX文件夹下。FrivateSubForm_ClickFrivateSubForm_ClickI。Dimd(.5.)AsIritegHrDimiAsInteser,t口taiAsSiri^le.averaEeAsSinticFori二1To5 输入成豉 - .d(i)=YalClnputEw】请输入第"曲i青"个学生的成绩:"输入成绩"))Nexti=0Fori二1To5 '计算总苛tut：±l二tut：±l+d(i)Nextiaverage=t口tai./5Print"总分:";totalPrint"平均分：";Format(average^"##.0")EndSub28.输入10名学生的成绩，求出最高分和最低分FofmILabell刃日匕家刁工：烟也array也不干刖，、;”「刀‘奴；中E"五伙F^5^^Wflmand2）后，开始查找最高分和最低分，找到后显示在标签Labell上。最后将工程文件、窗体文件分别以SZ5-2.vbp、

SZ5-2.frm为文件名保存在D:\EX文件夹下。OptioilBase1工limm।二口r2他VariantPrivateSubFurmLoad(..JLabell.Caption="单击"查找”按钮开蛤查找最高分和量低分1Tscore=Array(89,96,81,67,79,90,63,85,95,83)End.Sub FrivateSubcummandl_click(..'IDimmaxAsIriteger.,minAsIntegerm32i-ecore(1) .谩定初值min=ecore[1)Fori=2To10Ifm：ax(ecore(i')Then '我;最高二分,max=ECure(.i.)EndIfItmin),scure(i')Theri .找星低二分miil=ei：ore(.i.)EndIfNexti,Chr(⑶起换行作用Latiell.Captiun二"最高二分："+Str[max)+_Chr(13)+"最便缶："+Strain)EndSub.建立一个文本框控件数组Textl和一个文本框Text2,在控件数组Textl中输入一组数后，把累加值存放在Text2。最后将工程文件、窗体文件分别以SZ5-4.vbp、SZ5-4.frm为文件名保存在D:\EX文件夹下。FrivateSubCummandl_C1ick(..)E二UFori=0To3名二s+Vdll'Tex11(.i.).Text'INextiTextS.Text二eEndSub.按下图设计窗体，其中一组（共3个）单选按钮构成控件数组，要求当单击某个单选按钮时，能够改变文本框中文字的大小。最后将工程文件、窗体文件分别以SZ5-5.vbp、SZ5-5.frm为文件名保存在D:\EX文件夹下。

「控件〕「控件〕数组FrivateSubFurm_Luad(..JOptionl(0),Value=True '选定第一个单选按钮Textl.FontSize=12 ，设定交本框中的字号End.Sub FrivateSubOptionl_C1ickI'lridex^AsIriteger.'ISelectCaseIndex 1墓透充自劫良回工ndexl直Case0Textl.FontSire=12Case1Textl.FuntSile=20Case£Textl.FuntSire=28EndSeleiitEndSub第7章31.在窗体上放置三个复选框，标题依次为“旅游”、“体育”、“音乐”，另有一个命令按钮，标题为“兴趣”。程序运行后，选中复选框，再点击命令按钮，则在窗体上显示相应的的信息。运行界面如图1-012所示。最后将窗体文件、工程文件分别以LX10-1、为文件名保存在文件夹下。图10-12复选框运行界面图10-12复选框运行界面UptionExplicit[Iim温FrivateSubCummandl_C1ickUI£Checkl.V：dlue=1Thena=a&“旅游"EndIfI£Check2.Value=1Thena=aft"体育“EndIfI£Checkl.Value=1Thena=aft"音乐"EndIfFrint"我的兴趣是"&aEndSub32.设置如图10-13所示界面所示的程序，要求程序运行时选中组合框中的某一项，将弹出如下对话框加以说明。最后将窗体文件、工程文件分别以LX10-2.frm、LX10-2.vbp为文件名保存在D:\EX文件夹下。图10-13组合框运行界面PrivateSubCumboljZlick0Me磔0*“我的兴趣爱好是“电匚皿b口1.Tex",“兴趣爱好”EndEhlb*£:日铲砂FrivateSubF口rm_L。ad(..)Combu1.Add!tem"eCombul.AddItem"fCombul.Adilltem"生Combol.Additem“方匚口mb口1.Add!tem，V*£:日铲砂EndSub33.在窗体上画一个名称为HS1的水平滚动条(min=0,max=100)和三个名称分别为C1,C2,C3,标题分别为“左端”，“居中”，“右端”的命令按钮。编程是的程序运行后，单击C1,则滚动框位于滚动条的最左端；单击C2,则滚动框位于滚动条的中间处；单击C3,则滚动框位于滚动条的最右端，运行界面如图10-14所示。最后将窗体文件、工程文件分别以LX10-3.frm、LX10-3.vbp为文件名保存在D:\EX文件夹下。

VIVI图10-14滚动条运行界面PrivateSubC1_C1ick()HS1.Value="0EndMubPrivateSubC2_C1ick()HS.1.V：dlue="50EndSubPrivateSubC3_C1ickHS.1.V：dlue="100EndSub34.列表框举例。窗体上添加二个列表框、二个命令按钮，设置完属性后的界面如图10-16所示。要求:（1）选中列表框中的某一条目，单击命令按钮，将其移动到另一列表框中。（2）双击列表框中的某一条目，直接将其移动到另一列表框中。完成运行界面所达到的要求，最后将窗体文件、工程文件分别以LX10-6.frm、LX10-6.vbp为文件名保存在D:\EX文件夹下。二河九五四弘江毛壬李As-Ft图10-16题目6二河九五四弘江毛壬李As-Ft图10-16题目6的设计界面（其中右图为题目6的运行结果）口三四五六七河九ad张李王越孙江毛口三四五六七河九ad张李王越孙江毛DM""":::="LEndPrivateSubCommandl_Click(..) '"按钮的单击事件ListE.AdiiltemListl.TextListl.RemuveltemListl.List工ndE*EndSubFrivateSub匚口mmand2_l二］.iuk。 ’'C按钮的单击事件Listl.AdiJItHmList2.TextList2.RemuTeltemList2.