VB答案(黄色那本)

1.3.4程序设计题【习题1-49】编写一个华氏温度F与摄氏温度C之间转换的应用程序，界面如图1-4所示。其中F与C之间的关系为：。参考程序如下：

\o"QQ截图20121026153729.jpg下载次数:69"PrivateSubCommand1_Click()DimfAsSingle,cAsSinglef=Val(Text1.Text)c=(f-32)*5/9Text2.Text=Str(C)EndSubPrivateSubCommand2_Click()DimfAsSingle,cAsSinglec=Val(Text2.Text)f=9/5*c+32Text1.Text=Str(f)EndSub【习题1-50】编程将弧度值转换为角度值（度、分、秒）的形式，然后在窗体上显示出来。程序运行界面如图1-5所示。【提示】利用InputBox()输入弧度值，首先把弧度值转换为原始角度值，然后取整得到角度值，再把原始角度值减去度值，将结果转化为分值，采用类似思维即可求出结果。参考程序如下：

\o"QQ截图21.jpg下载次数:17"PrivateSubForm_Click()DimsAsSingle,aAsInteger,bAsInteger,cAsIntegerConstpiAsSingle=3.14159s=Val(InputBox("请输入弧度值:"))s1=ss=s*180/pia=Int(s)s=s-as=s*60b=Int(s)s=s-bc=s*60Print"输入的弧度值"&s1;"对应的角度值为:"Printa&"度"&b&"分"&c&"秒。"EndSubk=k+1Printn;EndIfLoopWhilek<10EndSub【习题2-68】编写程序，计算。PrivateSubForm_click()DimsAsSingle,nAsIntegern=Val(InputBox("请输入计算项数n:"))Fori=1Tons=s+(-1)^(i-1)*1/(2*i-1)NextiPrint"s=";4*sEndSub【习题2-69】编写程序，计算1×2×3×…×n，找出能使计算结果大于106的n的值。PrivateSubForm_Click()DimsAsDouble,nAsIntegern=0s=1Don=n+1s=s*nPrintsLoopWhiles<=1E+20Print"满足要求的n=";nEndSub【习题2-70】凡是满足x2+y2=z2的正整数数组(x,y,z)就称为勾股数组(如3,4,5)。请找出任意一个正整数n(通过InputBox函数输入)以内的所有勾股数组。PrivateSubForm_Click()DimnAsIntegerClsn=Val(InputBox("请输入正整数n："))Forx=1TonFory=1+xTon'避免重复数对出现Forz=1TonIfx*x+y*y=z*zThenPrintx;y;zNextzNextyNextxEndSub【习题2-71】某正整数与3的和是5的倍数，与3的差是6的倍数。设计程序，求出符合此条件的最小正整数。PrivateSubForm_Click()DimnAsIntegern=0Don=n+1LoopUntil(n+3)Mod5=0AndAbs(n-3)Mod6=0Print"满足条件的最小正整数是=";nEndSub【习题2-72】设计程序输出如图2-26所示的“乘法九九表”

\o"4.jpg下载次数:28"PrivateSubForm_Activate()Me.Width=7000:Me.Height=2500EndSubPrivateSubForm_Click()Fori=1To9Forj=1ToiIfi*j<10Andj>1ThenPrinti;"*";j;"=";i*j;ElsePrinti;"*";j;"=";i*j;EndIfNextjPrintNextiEndSub3.3.6程序设计题【习题3-37】有5个小孩坐在一起，问第5个小孩多少岁？他说比第4个小孩大2岁；问第4个小孩岁数，他说比第3个小孩大2岁；问第3个小孩，又说比第2个小孩大2岁；问第2个小孩，说比第1个小孩大2岁；最后问第1个小孩，他说是10岁。用递归算法求出第5个小孩的年龄。参考程序如下：PrivateSubForm_Click()Print"第5个小孩的年龄为：";age(5)EndSubFunctionage(nAsInteger)AsIntegerDimcAsIntegerIfn=1Thenc=10Elsec=age(n-1)+2EndIfage=cEndFunction【习题3-38】编写程序求S＝A！＋B！＋C！的值。阶乘的计算分别用Sub过程和Function过程两种方法来实现。参考程序如下：PrivateSubForm_Click()DimaAsInteger,bAsInteger,cAsInteger,sAsIntegera=InputBox("Inputa:")b=InputBox("Inputb:")c=InputBox("Inputc:")CallfacProc(a)'调用过程CallfacProc(b)CallfacProc(c)s=a+b+c's=facFunc(a)+facFunc(b)+facFunc(c)'函数实现Print"三个数的阶乘之和为:";sEndSubPublicSubfacProc(nAsInteger)'求阶乘的过程DimtAsInteger,iAsIntegert=1Fori=1Tont=t*iNextin=tEndSubPrivateFunctionfacFunc(nAsInteger)AsInteger'递归求阶乘的函数Ifn<=0ThenMsgBox"正整数才有阶乘!"ElseIfn=1ThenfacFunc=1ElsefacFunc=n*facFunc(n-1)EndIfEndIfEndFunction【习题3-39】编写过程，使用辗转相减法求两个数的最大公约数。参考程序如下：PublicFunctiongcd(mAsInteger,nAsInteger)AsIntegerDoWhilem<>nDoWhilem>nm=m-nLoopDoWhilen>mn=n-mLoopLoopgcd=mEndFunctionPrivateSubForm_Click()DimaAsInteger,bAsIntegera=InputBox("请输入第1个数:")b=InputBox("请输入第2个数:")Print"最大公约数为:"&gcd(a,b)EndSub【习题3-40】编写一个过程，以整型数作为形参。当该参数为奇数时。输出False；当该参数为偶数时，输出True。参考程序如下：PrivateSubOddEven(nAsInteger)IfnMod2ThenPrint"False"ElsePrint"True"EndIfEndSubPrivateSubForm_Click()DimaAsIntegera=InputBox("请输入一个数:")OddEven(a)EndSub4.3.4程序设计题【4-29】PrivateSubHScroll1_Change()Timer1.Interval=HScroll1.ValueEndSubPrivateSubTimer1_Timer()Image1.Visible=NotImage1.VisibleEndSub【4-30】PrivateSubForm_Load()Dialog1.Flags=3'包含屏幕字体和打印机字体EndSubPrivateSubmenuFormatColor_Click()Dialog1.ShowColorText1.ForeColor=Dialog1.ColorEndSubPrivateSubmenuFormatFont_Click()Dialog1.ShowFont'显示"字体"对话框Text1.FontName=Dialog1.FontNameText1.FontSize=Dialog1.FontSizeEndSub5.3.6程序设计题【5-23】程序代码PrivateSubForm_Click()ClsRandomizeForm1.Scale(-2,2)-(2,-2)'定义坐标系Form1.DrawWidth=3Fori=1To150x=Rnd*4-2'随机产生直线终点坐标y=Rnd*4-2Form1.Line(0,0)-(x,y),QBColor(Int(Rnd*15)+1)NextiEndSub说明:①由于所有直线的起点都在中心位置，所以对窗体定义合适的坐标系，决定了程序实现的难易度。②虽然是随机直线，但所有的直线都没有超出窗体范围，用随机函数生成直线终点坐标时要设定范围。【5-24】程序代码PrivateSubPicture1_Click()Dimr,x,y,w,hw=Picture1.ScaleWidthh=Picture1.ScaleHeightIfw>=hThenr=w\30x=r:y=h/2Picture1.Circle(x,y),r,vbRedFori=2To15Picture1.CircleStep(2*r,0),rNextiElser=h\30x=w\2:y=rPicture1.Circle(x,y),r,vbRedFori=2To15Picture1.CircleStep(0,2*r),rNextiEndIfEndSub【5-25】程序代码PrivateSubForm_Load()Timer1.Interval=50EndSubPrivateSubTimer1_Timer()ClsScale(-2,4)-(2,-1)Line(-2,0)-(2,0)Line(0,4)-(0,-1)Fork=-1.8To1.8Step0.01y=k^2PSet(k,y)NextkStaticxFillColor=vbBlueFillStyle=0Ifx>1.8Thenx=-1.8x=x+0.05y=x^2Circle(x,y),0.2'画圆EndSub思考①去掉Cls，运行结果如何？②语句Staticx的作用是什么？去掉Staticx语句，在何处添加什么语句可达到相同的效果？【5-26】程序代码PrivateSubForm_Load()ScaleMode=3EndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)RandomizeIfButton=2Thenr=Int(Rnd*90+10)c=RGB(Rnd*256,Rnd*256,Rnd*256)FillStyle=Int(Rnd*8)FillColor=RGB(Rnd*256,Rnd*256,Rnd*256)IfX>rAndY>rAndX+r<ScaleWidthAndY+r<ScaleHeightThenCircle(X,Y),r,cEndIfEndIfEndSub【说明】①表达式Button=2，表示按下鼠标右键。②由于半径的单位为像素，故在Form_Load()中，将ScaleMode设置为3。③函数RGB(Rnd*256,Rnd*256,Rnd*256)用于随椭机产生任意颜色。④函数Int(Rnd*8)，其取值范围为0到7的整数，用于随机产生填充方式。⑤表达式X>rAndY>rAndX+r<ScaleWidthAndY+r<ScaleHeight用于判断画完整的圆。【5-27】程序代码PrivateSubForm_Click()RandomizeClsDimx(1To5)Fork=1To5'产生随机数x(k)=Int(Rnd*9000+1000)NextkScale(-0.5,10100)-(6,-2000)'自定义坐标系Line(0,10000)-(0,-0)'画纵轴Line(0,0)-(5.5,0)'画横轴Fork=1To5'画直方图Line(k-0.5,x(k))-(k,0),,BFNextkCurrentY=-200Fork=1To5'标横轴的数字CurrentX=(k-0.5)Printx(k);NextkEndSub【说明】①随机产生的5个数必须放入数组中，以后画矩形块和标注数字要用到。②自定义坐标的设置语句Scale(-0.5,10100)-(6,-2000)：要画5个直方图，横坐标1到5，每个直方图的宽度为0.5，为了美观，所以将横坐标设置为-0.5到6；画直方图高度为1000-10000，纵坐标最大为1000，为了美观，将纵坐标最大值设置为10100，为了标注横坐标数字，所以将纵坐标设置为-2000到10100。③由于标注横坐标数字要标注在直方图下方，所以将CurrentY设置为-200。【5-28】方法一：程序代码（用默认坐标）PrivateSubForm_Click()ConstD=3.14159/180'角度转换成弧度的转换常数ConstA=500'正弦波的振幅Fork=0To900Step0.01'画出两个半周期(900°)PSet(k*3,700)'画出基准轴PSet(k*3,700-A*Sin(k*D)),vbRed'画出红色的正弦曲线NextkEndSub方法二：程序代码（用自定义坐标）PrivateSubForm_Click()ClsConstD=3.14159/180'角度转换成弧度的转换常数Scale(0,1.5)-(920,-1.5)'自定义坐标系Fork=0To900Step0.1'画出两个半周期(900°)PSet(k,0)'画出基准轴PSet(k,Sin(k*D)),vbRed'画出红色的正弦曲线NextkEndSub7.5.1程序设计题【习题7-1】程序代码PrivateSubOption1_Click()Text3.Text=Val(Text1.Text)+Val(Text2.Text)EndSubPrivateSubOption2_Click()Text3.Text=Val(Text1.Text)-Val(Text2.Text)EndSubPrivateSubOption3_Click()Text3.Text=Val(Text1.Text)*Val(Text2.Text)EndSubPrivateSubOption4_Click()IfVal(Text2.Text)<>0ThenText3.Text=Val(Text1.Text)/Val(Text2.Text)ElseText3.Text="除数为0，计算无效"EndIfEndSub【习题7-2】程序代码PrivateSubOption1_Click()Text2.Alignment=0EndSubPrivateSubOption2_Click()Text2.Alignment=1EndSubPrivateSubOption3_Click()Text2.Alignment=2EndSubPrivateSubText1_Click()Text1.FontSize=HScroll1.ValueIfOption1.ValueThenText1.Alignment=0IfOption2.ValueThenText1.Alignment=1IfOption3.ValueThenText1.Alignment=2EndSubPrivateSubHScroll1_Change()Text2.FontSize=HScroll1.ValueEndSub【习题7-3】程序代码PrivateSubForm_Click()x=Val(InputBox("请输入一个接近于1的小数","输入"))s=1n=0s1=1DoWhiles1>0.000001n=n+1s1=s1*x/ns=s+s1LoopPrint"计算结果=";sEndSub【习题7-4】程序代码PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)ClsIfX<Me.ScaleWidth-XThenr1=XElser1=Me.ScaleWidth-XEndIfIfY<Me.ScaleHeight-YThenr2=YElser2=Me.ScaleHeight-YEndIfIfr1<r2Thenr=r1Elser=r2Circle(X,Y),rEndSub7.5.2程序改错题【习题7-5】“*”号标记的错误语句更正如下：①a(1To50)AsString②Chr(Int(Rnd*26+97))③iMod10=0④a(i)="a"【习题7-6】“*”号标记的错误语句更正如下：①DimXAsInteger②Fork=2ToX–1（或Fork=2ToX/2或Fork=2ToSqr(X)+1）③IfXModk=0Thenf=False:ExitFor④IffThen（或Iff=TrueThen）六、程序设计题（每小题10分，共20分）1.PrivateSubCommand1_Click()Dima(0To9)AsIntegers=Text1.TextFori=1ToLen(s)c=Val(Mid(s,i,1))a(c)=a(c)+1NextiForj=0To9Label1.Caption=Label1.Caption&j&"出现的次数="&a(j)&Chr(13)&Chr(10)NextjEndSub2.PrivateSubForm_Click()DimhouseAsSingle,mAsSingle,wAsSingle,yAsIntegerhouse=70*3.0479m=0w=0.5y=0DoWhilem<housem=m+w*12w=w*1.05house=house*1.03y=y+1LoopPrintyEndSub8.1.2实战套题一上机试卷11.PrivateSubForm_Click()RandomizeClsDimx(1To5)Fork=1To5'产生随机数x(k)=Int(Rnd*9000+1000)NextkScale(-0.5,10100)-(6,-2000)'自定义坐标系Line(0,10000)-(0,-0)'画纵轴Line(0,0)-(5.5,0)'画横轴Fork=1To5'画直方图Line(k-0.5,x(k))-(k,0),,BFNextkCurrentY=-200Fork=1To5'标横轴的数字CurrentX=(k-0.5)Printx(k);NextkEndSub2.PrivateSubCommand1_Click()Taxi=Val(Text1.Text)IfTaxi<=3ThenFee=7ElseIfTaxi<=15ThenFee=7+1.2*(Taxi-3)ElseFee=7+1.2*12+1.8*(Taxi-15)EndIfLabel2.Caption="应付出租车费："&Fee&"元"EndSub3.PrivateSubForm_Click()DimaAsVariant,bAsVarianta=Array(85,77,92,66,44)b=Array("黄玉梅","朱明霞","孙家宝","赵天明","杨百万")Max=a(0)student=b(0)Fori=1To4Ifa(i)>MaxThenMax=a(i)student=b(i)EndIfNextiPrint"成绩最好的学生是：";student;"考试成绩为：";Max;"分"EndSub

8.1.3实战套题一上机试卷21.Dimx1AsSingle,y1AsSingle,x2AsSingle,y2AsSinglePrivateSubForm_Load()ScaleMode=6EndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)Clsx1=Xy1=YEndSubPrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)x2=Xy2=YLine(x1,y1)-(x2,y2),,Bs=Abs(x1-x2)*Abs(y1-y2)PrintPrint"矩形的宽度*高度="&Round(x2-x1,2)&"*"&Round(y2-y1,2)&"(毫米)"Print"矩形的面积为="&Round(s,2)&"(平方毫米)"EndSub2.PrivateSubCommand1_Click()chip=Val(Text1.Text)price=8Ifchip<=100ThenFee=chip*priceElseIfchip>100Andchip<=300ThenFee=100*price+(chip-100)*price*0.9ElseFee=100*price+200*price*0.9+(chip-300)*price*0.8EndIfLabel2.Caption="采购"&chip&"片芯片总共应付"&Fee&"元"EndSub3.PrivateSubForm_Click()DimscoreAsVariantscore=Array(93.88,91.77,92.66,94.55,90.99,96.11,97.22)Max=score(0)Min=score(0)Sum=score(0)Fori=1To6Ifscore(i)>MaxThenMax=score(i)Ifscore(i)<MinThenMin=score(i)Sum=Sum+score(i)Nextiaverage=(Sum-Max-Min)/5Print"参赛选手的实际得分：";averageEndSub六、程序设计题（每小题10分，共20分）1.PrivateSubForm_Click()Fori=1To25score=i*4-(25-i)*1Ifscore=60ThenExitForNextiPrint"何平阳同学共答对了"&i&"道题"EndSub2.PrivateSubForm_Click()Fori=1To32black=iwhite=32-iIfblack*5=white*3ThenExitForNextiPrint"黑色皮块=";black,"白色皮块=";whiteEndSub8.2.2实战套题二上机试卷11.PrivateSubForm_Click()Dima(20)AsIntegerPrint"数字序列：";Fori=1To20a(i)=Int(Rnd*90+10)Printa(i);NextiPrintPrint"峰值位置：";Forj=2To19Ifa(j)>a(j-1)Anda(j)>a(j+1)ThenPrintTab(4*j+8);"↑";EndIfNextjEndSub2.PrivateSubCommand1_Click()s1=Text1.Texta=Split(s1,"")Max=Len(a(0))s2=a(0)Fori=1ToUBound(a)IfLen(a(i))>MaxThenMax=Len(a(i))s2=a(i)EndIfNextiLabel1.Caption="最长的单词是："+s2EndSubPrivateSubCommand2_Click()EndEndSub3.OptionExplicitPrivateSubForm_Click()DimsAsLongDimxAsSingleDimaAsVariantDimiAsIntegers=0a=Array(37,92,58,63,21,73,77,84,55,49)Fori=LBound(a)ToUBound(a)s=s+a(i)Nextix=s/(UBound(a)-LBound(a)+1)x=Round(x,2)Print"平均值=";xEndSub8.2.3实战套题二上机试卷21.PrivateSubCommand1_Click()n=Val(Text1.Text)a1=Val(Text2.Text)a2=Val(Text3.Text)price=Val(Text4.Text)area=a1+a2-n*60Ifarea>0Thentax=area*price*0.7*0.004Elsetax=0EndIfLabel5.Caption=Label5.Caption&taxEndSub2.PrivateSubCommand1_Click()s=Text1.TextFori=1ToLen(s)c=Mid(s,i,1)Ifc>="a"Andc<="z"Thenm=m+1Ifc>="A"Andc<="Z"Thenn=n+1NextiText2.Text="大写字母有"&n&"个小写字母有"&m&"个"EndSub3.PrivateSubForm_Click()ClsDimc(1To10)AsIntegeri=1DoWhilei<=10c(i)=Int(Rnd*90)+10r=TrueForj=1Toi-1Ifc(j)=c(i)Thenr=FalseNextIfr=TrueThenPrintc(i);i=i+1EndIfLoopEndSub六、程序设计题（每小题10分，共20分）1.PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=2Ton/2IfPrime(i)AndPrime(n-i)ThenLabel2.Caption=n&"="&i&"+"&n-iExitForEndIfNextiEndSubPrivateFunctionPrime(ByValnumber)AsBooleanPrime=TrueFori=2ToSqr(number)IfnumberModi=0ThenPrime=FalseExitForEndIfNextiEndFunction2.PrivateSubForm_Click()Dima(20)AsIntegerFori=1To20a(i)=Int(Rnd*90+10)Printa(i);NextiPrintpeak=0Forj=2To19Ifa(j)>a(j-1)Anda(j)>a(j+1)Thenpeak=peak+1EndIfNextjPrint"序列中峰值有"&peak&"个"EndSub8.3.2实战套题三上机试卷11.DimsumAsIntegerPrivateSubCommand1_Click()Picture1.Print"总价=";sum;"元"EndSubPrivateSubList1_Click()s=List1.Textn=InStr(s,"")price=Val(Mid(s,n))Picture1.Printssum=sum+priceEndSub2.'设置Label1的AutoSize属性为True，Timer1的Interval属性为50DimXAsIntegerPrivateSubForm_Load()Label1.AutoSize=TrueLabel1.Caption="学无止境"Timer1.Interval=50Label1.Left=(Form1.ScaleWidth-Label1.Width)/2X=1EndSubPrivateSubTimer1_Timer()IfLabel1.Width>Form1.ScaleWidthThenX=-XIfLabel1.FontSize<6ThenX=-XLabel1.FontSize=Label1.FontSize+XLabel1.Left=(Form1.ScaleWidth-Label1.Width)/2EndSubPrivateSubForm_KeyPress(KeyAsciiAsInteger)EndEndSubPrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)IfButton=2ThenEndEndSub3.PrivateSubForm_Click()n=Val(InputBox("请输入一个大于2的正整数："))Fori=-nTonPrintTab(n+Abs(i));number1=2*(n-Abs(i))+1string1=Trim(Str(Abs(i)))PrintString(number1,string1)NextiEndSub8.3.3实战套题三上机试卷21.PrivateSubCommand1_Click()Picture1.Clss=Text1.TextNumber=0Fori=0ToList1.ListCount-1IfInStr(List1.List(i),s)>0ThenPicture1.PrintList1.List(i)Number=Number+1EndIfNextiPicture1.Print"满足检索条件的有：";Number;"本"EndSub2.DimdirectionAsIntegerPrivateSubForm_KeyPress(KeyAsciiAsInteger)Timer1.Enabled=NotTimer1.EnabledEndSubPrivateSubForm_Load()Picture1.Width=1000Picture1.Height=600Timer1.Interval=10direction=20Me.KeyPreview=TrueEndSubPrivateSubTimer1_Timer()Picture1.Left=Picture1.Left+directionIfPicture1.Left>=Me.ScaleWidth-Picture1.WidthThendirection=-directionIfPicture1.Left<=0Thendirection=-directionEndSub3.Dims1AsStringPrivateSubForm_Load()Label1.AutoSize=TrueLabel1.Caption="重庆市高等院校计算机等级考试"Timer1.Interval=50s1=50EndSubPrivateSubTimer1_Timer()Label1.Left=Label1.Left-s1IfLabel1.Left<-Label1.WidthThenLabel1.Left=Me.WidthEndIfEndSub六、程序设计题（每小题10分，共20分）1.PrivateSubForm_Click()Print"定价","收入"guest=80income=guest*(160-40)Forprice=180To2000Step20guest=guest-3temp=guest*(price-40)Iftemp>incomeThenincome=tempPrintprice,tempIftemp<incomeThenExitForNextpricePrint"客房定价为"&price-20&"元时，达到收入最大化"EndSub2.Dima(10)AsIntegerPrivateSubForm_Activate()RandomizePrint"随机序列：";Fori=1To10a(i)=Int(Rnd*90+10)Printa(i);NextiPrintEndSubPrivateSubForm_Click()Print"单击窗体：";temp=a(1)Fori=1To9a(i)=a(i+1)Printa(i);Nextia(10)=tempPrinta(10)EndSub8.4.2实战套题四上机试卷11.PrivateSubCommand1_Click()r=Val(Text1.Text)v=(4/3)*3.14159*r^3s=4*3.14159*r^2IfCheck1.Value=1ThenText2.Text=vElseText2.Text=""EndIfIfCheck2.Value=1ThenText3.Text=sElseText3.Text=""EndIfEndSubPrivateSubCommand2_Click()EndEndSub2.PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)ClsX1=IIf(X<Me.ScaleWidth-X,X,Me.ScaleWidth-X)-Me.TextHeight("*")Y1=IIf(Y<Me.ScaleHeight-Y,Y,Me.ScaleHeight-Y)-Me.TextHeight("*")r=IIf(X1<Y1,X1,Y1)pi=3.14156Fori=0To360Step15CurrentX=X+r*Cos(i*pi/180)CurrentY=Y-r*Sin(i*pi/180)Print"*"NextiEndSub3.PrivateSubCommand1_Click()x=Val(Text1.Text)i=1q=0DoWhilei<=Len(x)p=Val(Mid(x,i,1))q=q*2+pi=i+1LoopLabel2.Caption="转换成的十进制数："&qEndSub8.4.3实战套题四上机试卷21.PrivateSubCommand1_Click()r=Val(Text1.Text)v=3.14159*r^2s=2*3.14159*rIfCheck1.Value=1ThenText2.Text=vElseText2.Text=""EndIfIfCheck2.Value=1ThenText3.Text=sElseText3.Text=""EndIfEndSubPrivateSubCommand2_Click()EndEndSub2.PrivateSubForm_Click()Constd=3.14159/180s="VisualBasicProgramming"n=Len(s)+1p=360/nx=Me.ScaleWidth\2y=Me.ScaleHeight\2Fori=0Ton-1CurrentX=x+1000*Cos((i*p+180)*d)CurrentY=y-1000*Sin((i*p+180)*d)PrintMid(s,n-i,1)NextiEndSub3.PrivateSubForm_Click()Dima(10)AsIntegerFori=1To10a(i)=Int(Val(InputBox("请输入第"&i&"个整数","输入")))NextiIfa(1)>a(2)Thend=1Elsed=0Fori=2To9Ifd=0Anda(i)>a(i+1)ThenExitForIfd=1Anda(i)<a(i+1)ThenExitForNextiIfi<10ThenPrint"输入数据序列不是有序序列！"ElseIfd=1ThenPrint"输入数据序列是从大到小的有序序列！"ElsePrint"输入数据序列是从小到大的有序序列！"EndIfEndIfEndSub六、程序设计题（每小题10分，共20分）1.PrivateSubCommand1_Click()m=Val(Text1.Text)n=Val(Text2.Text)Ifm>nThentemp=mm=nn=tempEndIfSum=0Fori=mTonSum=Sum+iNextiLabel3.Caption="从"&Text1.Text&"到"&Text2.Text&"的累加和="&SumEnd