VB答案(黄色那本).docx

《VB答案(黄色那本).docx》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、1.3.4程序设计题【习题1-49】编写一个华氏温度F与摄氏温度C之间转换的应用程序，界面如图1-4所示。其中F与C之间的关系为：。参考程序如下：2012-10-2615:57上传下载附件(15.91KB)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+3

2、2Text1.Text=Str(f)EndSub【习题1-50】编程将弧度值转换为角度值（度、分、秒）的形式，然后在窗体上显示出来。程序运行界面如图1-5所示。【提示】利用InputBox()输入弧度值，首先把弧度值转换为原始角度值，然后取整得到角度值，再把原始角度值减去度值，将结果转化为分值，采用类似思维即可求出结果。参考程序如下：2012-10-2616:31上传下载附件(12.72KB)PrivateSubForm_Click()DimsAsSingle,aAsInteger,bAsInteger,cAsIntegerConstpiAsSin

3、gle=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&"秒。"EndSub2.3.6设计程序题源程序见文件夹“第二章习题66-75答案”【习题2-66】公用电话收费标准如下：通话时间在3分钟以内，收费0.5元；3分钟以上，则每超过1分钟加收0.15元。编写程序，计算某人通话S分钟时应缴的电话费。PrivateSubCommand1_Cl

4、ick()DimtAsSingle,fAsSinglet=Val(Text1.Text)Ift<=3Thenf=0.5Elsef=0.5+(-(Int(-(t-3))))*0.15EndIfText2.Text=f&"元"EndSub【习题2-67】写程序找出能被2,3,5除时余数均为1的最小的10个自然数。PrivateSubForm_Click()n=0:k=0Don=n+1IfnMod2=1AndnMod3=1AndnMod5=1Thenk=k+1Printn;EndIfLoopWhilek<10EndSub【习题2-68】编写程序，计算。P

5、rivateSubForm_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=";nEnd

6、Sub【习题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的倍数。设计程序，

7、求出符合此条件的最小正整数。PrivateSubForm_Click()DimnAsIntegern=0Don=n+1LoopUntil(n+3)Mod5=0AndAbs(n-3)Mod6=0Print"满足条件的最小正整数是=";nEndSub【习题2-72】设计程序输出如图2-26所示的“乘法九九表”2012-10-2910:59上传下载附件(34.94KB)PrivateSubForm_Activate()Me.Width=7000:Me.Height=2500EndSubPrivateSubForm_Click()Fori=1To9Forj

8、=1ToiIfi*j<10Andj>1ThenPrinti;"*";j;"=";i*j;ElsePrinti;"*";j;