VB操作题答案

第一次作业PrivateSubCommand1_Click()Text1.Text=欢迎你学习VB程序设计Text1.ForeColor=vbGreenText1.Font=宋体Text1.FontSize=25Text1.FontItalic=TrueText1.FontBold=TrueEndSubPrivateSubCommand2_Click()EndEndSubPrivateSubForm_Click()Text1.ForeColor=vbRedText1.Font=隶书Text1.Text=佛山大学理学院EndSub第二次作业(服务员密码)1、请建立一个工程（zy02.vbp),含有1个窗体（zy02.frm),该窗体有两个标签，两个命令按钮（设置成不同的背景色），一个文本框。要求如下：1）当程序启动运行时，命令按钮不可用（变灰色），当在文本框中输入正确密码时，显示出来的是星号，（2）…3）点击结帐按钮后，窗体所有控件消失，仅显示出标签“谢谢你，再见！”这样的服务用语。PrivateSubCommand1_Click()Text1.Visible=FalseLabel2.Visible=TrueLabel2.Caption=你好，你需要什么Command2.Enabled=TrueEndSubPrivateSubCommand2_Click()Command1.Visible=FalseCommand2.Visible=FalseLabel1.Visible=FalseLabel2.Caption=谢谢你，再见！EndSubPrivateSubForm_Load()Label2.Visible=FalseCommand1.Enabled=FalseCommand2.Enabled=FalseEndSubPrivateSubText1_Change()IfText1.Text=12345ThenCommand1.Enabled=TrueText1.PasswordChar=*EndSub第三次建立一个工程(zy03.vbp),含有一个窗体（zy03.frm）。请在该窗体上设计两个文本框，三个命令按钮，标题分别是减运算和除运算，退出，如图。请编写适当的程序，根据两个文本框中输入的数据（整型数据）分别进行减运算和除运算，并将运算结果（注意：除运算结果采用浮点数）用标签控件显示出来。特别要求：总是用两个文本框中输入的大数据做被减数或被除数。工程文件和窗体文件上传到你的操作题子目录下。PrivateSubCd1_Click()DimX%,Y%,Z%DimP$X=Int(Tt1.Text)Y=Int(Tt2.Text)IfXYThenZ=X-YElseZ=Y-XP=Str(Z)Ll2.Caption=PEndSubPrivateSubCd2_Click()DimX%,Y%,Z#DimP$X=Int(Tt1.Text)Y=Int(Tt2.Text)IfXYThenZ=X/YElseZ=Y/XP=Str(Z)Ll2.Caption=PEndSubPrivateSubCd3_Click()Visible=FalseEndSub第四次1、建立一个工程(zy041.vbp),含有一个窗体（zy041.frm）。请在该窗体上设计三个文本框，两个命令按钮，标题分别是计算和与清除，如图。请编写两个命令按钮适当的程序，点击命令按钮计算，利用inputbox函数输入任意两个正整数，将这两个数显示在前两个文本框中，然后根据两个数的和进行判断，如果是奇数，将其放在第3个文本框中，如果是偶数，将其打印在窗体上，点击清除按钮后，清除文本框中的数和窗体上的数据。PrivateSubC1_Click()DimxAsInteger,yAsInteger,zAsInteger,mAsIntegerx=InputBox(请输入第一个正整数：,数据输入)y=InputBox(请输入第二个正整数：,数据输入)Ifx0Andy0ThenT1.Text=xT2.Text=yz=x+ym=zMod2Ifm=0ThenPrintzElseT3.Text=zEndIfElsePrint输入的数据无效！请再次输入~EndIfEndSubPrivateSubC2_Click()T1.Text=T2.Text=T3.Text=ClsEndSubPrivateSubForm_Load()T1.Enabled=FalseT2.Enabled=FalseT3.Enabled=FalseEndSub2建立一个工程(zy042.vbp),含有一个窗体（zy042.frm）。请在该窗体上设计两个文本框，。编写窗体的单击事件过程，使得在文本框中输入任意两个正整数后点击窗体，弹出一个消息框，如图。如果选择“是”，则求出两个数的商，选择“否”，则求出两个数的余数，然后将结果（商或余数）用标签方式显示在文本框下面，形式为您求得的结果是：（数字）PrivateSubForm_Click()DimxAsInteger,yAsInteger,zAsIntegerx=Val(T1.Text)y=Val(T2.Text)msg1=你选择做除法吗？message=MsgBox(msg1,16+4,请选择)Ifx0Andy0ThenIfmessage=6Thenz=x\yL2.Caption=求得的结果是：&zElsez=xModyL2.Caption=求得的结果是：&zEndIfElsePrint您输入的数据有误，请再输入！EndIfEndSub第五次1、建立一个工程(zy051.vbp),含有一个窗体（zy051.frm）。请在该窗体上设计两个标签，两个文本框，一个命令按钮，如左下图。请编一帐号和密码检验程序，要求：帐号不超过6位数字,有错,清除原内容再输入。密码输入时（假如是ww199）在屏幕上以“*”代替;若密码输入错，显示一个消息框，如右下图。选择“重试”按钮，清除原内容再输入，选择“取消”按钮，停止运行。特别提示:标签的borderstyle属性设置成1；帐号6位,只要将文本框的MaxLength设为6;在文本框的LostFocus事件中，利用数字IsNumeric函数判断是否输入的是数字；如果密码输入不对，用MsgBox函数设置密码错对话框，根据返回值处理；清除原内容再输入的处理技巧是：文本框内容清空，并用setfocus方法使光标回到文本框里。文本框的密码PassWordChar设为“*”PrivateSubCommand1_Click()DimI%IfText2.TextsfxiaThenI=MsgBox(密码错误,53,输入密码)IfI4ThenEndElseText2.Text=Text2.SetFocusEndIfEndIfPrint谢谢！EndSubPrivateSubForm_Load()Text2.PasswordChar=*Text2.Text=Text1=EndSubPrivateSubText1_Change()IfNotIsNumeric(Text1)ThenMsgBox帐号有非数字字符错误Text1.Text=Text1.SetFocusEndIfEndSub2、建立一个工程(zy051.vbp),含有一个窗体（zy052.frm）。请在该窗体上设计三个横排的文本框，编写窗体的单击事件过程，使得在每个文本框中输入任意1个整数后点击窗体时，最大数在左边的文本框里。最小数在右边的文本框里，另一数在中间的文本框中。PrivateSubForm_Click()Dima,b,c,tAsSinglea=Val(T1.Text)b=Val(T2.Text)c=Val(T3.Text)IfabThent=aa=bb=tEndIfIfacThent=cc=bb=aa=tElseIfbcThent=cc=bb=tEndIfT1.Text=aT2.Text=bT3.Text=cEndSub3、在窗体上设置一个文本框，编写一个窗体单击事件过程，根据文本框中输入的学生成绩利用Print函数在窗体上打印一个文字评价，规则是：90~100分，优秀，80~90分，良好，70~80分，中等；60~70分，及格；20~60分，及格；其他情况，异常。文件名分别保存为zy053.vbp,和zy053.frmPrivateSubC1_Click()T1.Text=ClsEndSubPrivateSubForm_Click()Dims,iAsIntegers=T1.TextSelectCasesCase90To100Print优秀Case80To90Print良好Case70To80Print中等Case60To70Print合格Case20To60Print不合格CaseElsePrint异常EndSelectEndSub第六次1、建立一个工程(zy061.vbp),含有一个窗体（zy061.frm）。请在该窗体上设计一个图片框（其中放置一个小的图片），一个文本框。请编写程序来实现：当在文本框中输入任意字符（数字，字母或其他符号）后点击窗体，图片框中将显示输入字符的性质，如下图（要求：用case语句）。PrivateSubForm_Click()DimawAsStringP1.Clsaw=T1.TextSelectCaseawCase0To9P1.Printaw+是数字字符CaseaToz,AToZP1.Printaw+是字母字符CaseElseP1.Printaw+是其它字符EndSelectEndSub100到999之间的水仙花数PrivateSubC1_Click()Dimi,i2,i3,j,aAsIntegerPrint100到999之间的水仙花数Fori=100To999j=i\100a=i\10i2=a-j*10i3=i-a*10Ifi=j^3+i2^3+i3^3ThenPrintiNextiEndSubPrivateSubC2_Click()Dimi,j,aAsIntegerPrint100到999之间的水仙花数Fori=1To9Forj=0To9Fora=0To9s=i*100+j*10+aIfs=i^3+j^3+a^3ThenPrintsNextaNextjNextiEndSub最大公约数和最小公倍数PrivateSubForm_Click()Dimx,y,a,sAsIntegerx=InputBox(请输入一个整数)y=InputBox(请输入第二个整数)a=xDoIfxModa=0Thens=aIfyMods=0ThenPrintx和y的最大公约数是;sPrintx和y的最大公倍数是;x*y/sExitDoEndIfa=a-1LoopWhilea0EndSub求出2!+3!+4!+5!的和PrivateSubCommand1_Click()Sum=0Fori=2To5s=1Forj=1Tois=s*jNextjSum=Sum+sNextiPrintSumEndSubPrivateSubForm_Click()Dimi%,s%,a%Prints=1a=0Fori=2To5s=s*ia=a+sNextiPrint2!+3!+4!+5!=;aEndSub九九乘法口决表PrivateSubForm_Click()Dimi%,j%,d%Fori=1To9d=-10Forj=1To9d=d+10PrintTab(d);i&×&j&=&i*j;NextjNextiEndSub求解出100以内的所有素数PrivateSubForm_Click()Dimi%,j%,a%,pAsBooleanPrint100以内的所有素数:Fori=2To100p=Truea=Int(Sqr(i))Forj=2ToaIfiModj=0Thenp=FalseExitForEndIfNextjIfp=TrueThenPrintiNextiEndSub第七次1、定义一个一维数组X，将下面的10