首页 VB程序设计例题12例

VB程序设计例题12例

VB程序设计例题12例索引―、在窗体上画一个文本框，其名称为Textl,Text属性为空白。再画一个命令按钮，其名称为C1,Visible属性为False。编写适当的事件过程。程序运行后，如果在文本框中输入字符，则命令按钮出现。二、计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和—图片框（Pictured。程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。（要求在未...

索引―、在窗体上画一个文本框，其名称为Textl,Text属性为空白。再画一个命令按钮，其名称为C1,Visible属性为False。编写适当的事件过程。程序运行后，如果在文本框中输入字符，则命令按钮出现。二、计算圆的周长和面积：在窗体中添加一个文本框（Text1）和一个对应的标签（Label1），再添加两个命令按钮（Command1和Command2）和—图片框（Pictured。程序运行时，当单击Command1按钮后，计算圆的周长；当单击Command2按钮后，计算圆的面积；计算结果输出在图片框中。（要求在未输入半径前两个按钮呈灰色不可用。）三、在窗体上添加三个文本框和对应的三个标签，标签的标题分别是“个位”、“十位”、“百位”。程序运行时，当单击窗体后，随机产生一个【100，999】区间内的整数，将它的个位、十位、百位数字分别显示在对应的文本框中。四、设计一个计算程序：在窗体上添加四个文本框和四个对应的标签，标签的标题分别是“语文”、“数学”、“外语”、“平均成绩”，三个命令按钮，标题分别为“清除”、“计算”、“退出”。程序运行后，用户按“清除”按钮，则清除文本框中显示的内容，按“计算”按钮，则计算三科平均成绩，将计算结果显示在第四个文本框中（计算结果保留小数点后一位）。单击退出按钮则程序退出。五、某税务部门征收所得税，规定如下：（1）收入200元以内，免征。（2）收入在200~400元，超过200元的部分纳税3%。（3）收入超过400元的部分，纳税4%。（4）当收入达5000元或超过时，将4%税金改为5%。编程序实现上述操作。六、给定三角形的三条边的边长，计算三角形的面积。编写程序，首选判断给出的三条边能否构成三角形，如可以构成，则计算并输出该三角形的面积，否则要求重新输入。当输入-1时结束程序。七、编程求100以内的全部素数。八、编程打印钻石图案。九、输出杨辉三角形。十、有一个数组，包含了10个不同的随机整数（20~90），要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。十一、在一个窗体上建有包含三个命令按钮的控件数组和一个文体框。编程实现当按下标题不同的命令按钮时，使文体框中文字的字体发生相应的变化。十二、编程求1000以内的完全数。所谓完全数是指这样的自然数：它的各个约数（不包括该数本身）。如28=1+2+4+7+14就是一个完全数。—、（P50-2）在窗体上画一个文本框，其名称为Text1,Text属性为空白。再画—个命令按钮，其名称为C1，Visible属性为False。编写适当的事件过程。程序运行后，如果在文本框中输入字符，则命令按钮出现。要求：存盘时必须存放在“上机题”文件夹下，工程文件名为，窗体文件名为。程序中不得使用任何变量。程序清单如下：PrivateSubText1_Change()IfTextl<>""ThenCl.Visible=TrueEndSub运行效果如下:KClBCC>JIIE®wA>11饰恥IfiliWKf!丽密叩Qj工闫心■耳朗血⑷・=1世他如a4rffa口.PwiikTJ,□'C3「Af方鼻«谢越■:工•-叭“疋目迎卄牡一；吃■・-罠5C*£-!rt-1114E6T'Iffi'Ll転室血血3Rr*It-liBO®--II■站育L"bKC>JIel[""ThenCommandl.Enabled=TrueCommand2.Enabled=TrueEndIfEndSub.1L-.i■iQ茸-归(K・i悄■9t-Ri-j-xisrCl皿QA4^務.ifa|*i»hI■.■!•+门卜'：■»U-ln.r：K">亠・、JIT”"i*1•yhalanlKrialrr：'Ariallric'vnlFmf*tillb:~JSt'1■■llil.¥iiU-爲ICLilcQr:H^n-irriii'irS:iniHhr'mlfripi'r=gr«-'FistmlTriKLHR--4r*Fi-ri.1■fi.L片音；TC*fM'HKHtf!3BHWKf聞矽■■V'X>3r(T»IH»H灯Bl理用⑹-七I■«・aB12153-ISERIW>(14!!Z日白!TaBPiiji-工i«>cla*z-wraia・・i.心・iJviTlfAMJ-■■:i・rT-iall>：>2-HIHtidlbMriihl_IJ'«fMLJf-«—I询低叮■・JbLHtIm-jIhrialFnfl：'■y竝•FPIWL+nilr+C>I.OhTd+ll[■'l^.ii0"4*L—.nJIdu』I”d：F-rtar^trtMl4<:grum文"□汕R目密IfiliWKf1範加鈕矽3>V'Ii3FH!Iflai*afiPFi±iua-f-|ri"耳|nh-ifc^7IB*1FqilMFA卄■-武Z-9l-lia--xipl3furn1b・IJ・ihI>.■!'+fRk■：■：«*tfrlnA・muii.i屮2■哀biBlu-jlFrialFr：'ikFuillricivnlrnpiHr:frrfXJiiLmiLU-CLii：ci>v=iidthrEii•i■S:iiiHhcivnlFrifiE"Jsg!Ti«'VHlrrii-L'ilP-ArZ咼—h-iviU.2ahruri_l：iiir-1OrB<=0AndB<>-1OrC<=0AndC<>-1ThenMsgBox"请重新输入！",5+16+0,"警告"Text1=""Text2=""Text3=""ElselfA=-1OrB=-1OrC=-1ThenUnloadMeElselfA+B<=COrA+C<=BOrB+C<=AThenMsgBox"请重新输入！",5+16+0,"警告"Textl=""Text2=""Text3=""ElseP=(A+B+C)/2S=(P*(P-A)*(P-B)*(P-C))人(1/2)Text4=SEndIfEndSub□回冈运行效果如下：氧计算三角庭面积三角形边崔计算三角形面积=七、(P112-6)编程求100以内的全部素数。程序清单如下：PrivateSubForm_Click()y$="2"Dimn%,j%,k%n=100Forj=3Tonk=Int(Sqr(j))Fori=2TokIfjModi=0ThenExitForNextiIfi>kTheny$=y$&""&jEndIfNextjMsgBoxy,，"显示素数"EndSub运行效果如下：八、(P112-8)编程打印钻石图案。程序清单如下：PrivateSubForm_Click()Fori=-3To3a=Abs(i)x=9+ay=Abs(i*2)z=7-yPrintTab(x);Forj=1TozPrint"*";NextjPrintNextiEndSub运行效果如下：九、(P147-1)输出杨辉三角形。程序清单如下：PrivateSubForm_Click()Print1Print1;1Print1;2;1Print1;3;3;1Print1;4;6;4;1Print1;5;10;10;5;1EndSub运行效果如下:口回区］nnH1十、(P147-4)有一个数组，包含了10个不同的随机整数(20〜90),要求计算出它们的平均值，并输出这个数组中最接近于平均值的数。程序清单如下：PrivateSubForm_Click()RandomizePrint"10个20~90的随机数如下："Dima(1To10)AsInteger,nAsIntegerForn=1To10a(n)=20+Int(Rnd*71)s=s+a(n)Printa(n);NextPrintp=s/10Print"平均值为：”&pDimb(1To10)AsInteger,mAsIntegerb(1)=Abs(a(1)-p)x=b(1)q=a(1)r=1Form=2To10b(m)=Abs(a(m)-p)Ifb(m) 表达式11\3+11mod3的运算结果值是（）。A、3B、4C、5D、63。语句段a=3:b=5:t=a:a=b:b=t执行后,（）A、a值为3,b值为3B、a值为3,b值为5C、a值为5,b值为5D、a值为5,b值为34。语句if3*4>=10thena=1elsea=2执行后，a的值为（）。A、12B、10C、1D、35。语句段执行后，i的值为（）。i=1:s=0dowhilei<=5s=s+ii=i+1loopiA、1B、5C、6D、156。使用VisualBasic编程，我们把工具箱上的工具称为（）。事件B.工具C.控件7。我们保存一个编写好的程序，窗体和代码是以（）作为扩展名保存的文件A、.frmB、.vbpC、.batD、.bas8。结束当前程序的语句是（）。A、quitB、exitC、endD、sub9。要改变窗体的标题时，应当在属性窗口中改变的属性是（）。A、CaptionB、NameC、TextD、Label10。双击窗体中的对象后，VB将显示的窗口是（）。A、工程窗口B、工具箱C、属性窗口D、代码窗口11。有程序代码：Label1.Caption二"VisualBasic"其中的Label1、Caption和"VisualBasic"分别代表。对象、值、属性B.对象、方法、属性C.对象、属性、值D.属性、对象、值12。语句Print5*20输出的结果是。5*20B.100C.”5*20”D.输出不正确13。在文本框Text1中输入数字12,Text2中输入数字34,执行一下语句，只有可使文本框Text3中显示46。Text3.Text=Val(Text1.Text)+Val(Text2.Text)D.Text3.Text=Val(Text1.Text)&Val(Text2.Text)TOC\o"1-5"\h\z描述X、Y都小于Z的逻辑表达式是。X 标准模块文件(.bas)分别保存工程文件、窗体文件和标准模块文件23•使用计算机解题的步骤，以下描述正确的是：_。正确理解题意一设计正确算法一寻找解题方法一编写程序一调试运行正确理解题意一寻找解题方法一设计正确算法一编写程序一调试运行正确理解题意一寻找解题方法一设计正确算法一调试运行一编写程序正确理解题意一设计正确算法并寻找解题方法一调试运行一编写程序24.计算机程序由以下两部分，即：—组成。执行部分和数据部分数据部分和程序部分程序部分和指令部分指令部分和数据部分25•算法的特征是：有穷性、_、能行性、有0个或多个输人和有一个或多个输出。A.稳定性确定性正常性快速性26o下面是使用信用卡在自动取款机上取款的过程。开始用户正确地插入信用卡用户输入个人密码若密码正确跳到，否则记录错误次数若错误次数小于3,返回，否则自动取款机将没收信用卡，并跳转到⑥进入相关服务项目退出系统结束以上过程中需要补充的内容是：A.①②B.⑤②C.⑤③D.⑥②27•人们在设计计算机程序时，_。只要考虑'做据的存贮'而不要考虑“计算的过程”不要考虑“数据的存贮”而只要考虑“计算的过程”必须同时考虑“数据的存贮”和“计算的过程”以上答案都错28。设计计算机程序时，要考虑“计算的过程”其含义是在对解决问题的方法进行步骤化时，—。必须同时指出“动作”和“动作的次序”不必指出“动作”而只要指出“动作的次序”只要指出'动作”而不必指出“动作的次序”以上说法都正确29。关于程序中指令的次序，以下说法正确的是：_。不必考虑次序任意一个程序，其任意位置的指令次序都不能改变对于一个程序，可能某些指令次序可以改变D•任何程序，其任意位置的指令次序都可以改变30o 流程图的功能是：“统计前1000个自然数中的奇数的个数”，以下关于“计数器”和“累加器”的描述正确的是：_。1000是计数器，B是累加器B是计数器，A是累加器A是计数器，B是累加器A是计数器，1000是累加器二、填空题（本大题共16空，每空1分，共16分）程序的三种基本结构是结构、结构和结构。以英文的符号开头的语句是注释语句。机器不执行，注释语句可以放在程序的任何位置。3.请将—b+'七2-4ac写成vb中的表达式形式。2a能够将任意的一个两位数X的个位数与十位数对换的表达式为根据右图写出InputBox函数中的参数R=InputBox(,,10)请输入半径确定|取消|根据学生成绩cj的值给出相应的评语：90分以上为“优秀”，［60-90)为“及格”,60分以下为“不及格”。试完成下列程序：x=Val(inputbox(“请输入成绩”))IfThenmsgbox(“不及格“)ElseIfx>=90ThenTOC\o"1-5"\h\zmsgbox(““)Elsemsgbox(““)EndIfEndIf以下程序将3个数从小到大进行排序，试填空完成程序。IfThend=a:a=b:b=dIfThend=a:a=c:c=dIfThend=b:b=c:c=d8、15\4+15mod4二9、(1>2)or(2>1)=三、阅读流程图或程序写结果(本大题共6空，每空3分，共18分)1、x=7:y=2:z=3ifx<>9ory<>3thenx=y-x:y=z-x:z=y+xendif2、3、printx+y+z运行后，输出结果是x=2dowhilex<=10a=a+xx=x+2loop该循环执行的次数是a=10：b=4：j=1Dowhilej<=10a=a+5b=b+4j=j+2loopprinta;b运行后，输出结果是见图3-4,若输入值为900，输出结果图3-4见图3-5,若输入的值是-6,输出结果6。NN图3-5流程图及程序填空：求分段函数的值Y=-X+1中填充①②一四、1。(本大题共7空，每空3分，共21分)(X<0)；Y=1(X=0)；Y=X+1(x>0),流程图见下左：其2。求：S=l+2+3+4+……N,加到第几项时S>300?流程图见上右，其中填充①②3。求20个数的平均值。请在右侧流程图的空白处填入下面程序的功能是统计输入的十个两位正整数中偶数和奇数的个数.i=1Dowhilei<=10x=val（inputbox（“请输入一个两位数："））IfThenk2=k2+1ElseEndIfi=i+1LoopPrint"奇数个数二";kl,"偶数个数二";k2五、看流程图写程序：1、根据右侧流程图，编写相应VB代码（5分）PrivateSubForm_LOAD（）EndSub2、已知存在一个三位数abc，其每个位置上的数字的立方之和正好等于该三位数本身，即a3+b3+c3=abc（例：13+53+33=153），现要求编写程序，找出满足条件的可能的数字！（10分）算法和程序设计基础单元测验答卷纸班级：学号：姓名：成绩：一、选择题（1X30）3、4、5、，6、，，7、，，8、9、三、阅读流程图或程序写结果（本大题共6空，每空3分，共18分）1、2、3、4、5、6、四、流程图及程序填空：（本大题共7空，每空3分，共21分）1、①②2、①②3、4、①②五、看流程图写程序：（第一小题5分，第二小题10分）算法和程序设计基础单元测验答案一、选择题（1X30）答案1234567891000DCDCCCACAD10CBBABDAACC20ADBDBBCACB二、填空题（本大题共16空,每空1分，共16分）注意运算优先级*/\mod2、'单引号4、(xmod10)*10+x\106、x<60,优秀，及格8、69、TRUE1、顺序结构，分支结构，循环结构3、（-b+sqr（b"2-4*a*c））/（2*a）5、”请输入半径”，“输入对话框”7、a>b,a>c,b>c三、阅读流程图或程序写结果（本大题共6空,每空3分,共18分）1、62、53、35,244、105、0,-66、34四、流程图及程序填空：（本大题共7空，每空3分，共21分）1、①X=o②Y=-X+12、①i=1（i=0）②输出i-13、s/20（s/（i-1））4、①（xmod2）=0②k1二k1+1五、看流程图写程序：（第一小题5分,第二小题10分）X=VAL(INPUTBOX(“请输入数字”))■x=100IFX>=5THEN1dowhilexv=999Y=SQR(2*X—4)1a=x\100ELSEb=(x\10)mod10Y=X+51c=xmod10ENDIF■ifaA3+bA3+cA3=xthenMSGBOXY1msgboxx1endif1x=x+11loop

                    本文档为【VB程序设计例题12例】，请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑，
                    图片更改请在作品中右键图片并更换，文字修改请直接点击文字进行修改，也可以新增和删除文档中的内容。 
 该文档来自用户分享，如有侵权行为请发邮件ishare@vip.sina.com联系网站客服，我们会及时删除。

                    [版权声明] 本站所有资料为用户分享产生，若发现您的权利被侵害，请联系客服邮件isharekefu@iask.cn，我们尽快处理。

                    本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权，请谨慎使用。

                    网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传，仅限个人学习分享使用，禁止用于任何广告和商用目的。
                

下载需要：免费已有0 人下载

立即下载

VB程序设计例题12例

你可能还喜欢