62页第四题:第一种方法PrivateSubForm_click()DimaAsDoubleDimlAsDoubleDimsAsDoublea=Val(InputBox("a=","输入正方形的边长"))s=a*al=4*aPrint"正方形的边长为:";aPrint"则正方形的周长为:";lPrint"则正方形的面积为:";sPrint"努力学习，天天向上！"EndSub第二种方法PrivateSubCommand1_Click()DimaAsDoubleDimlAsDoubleDimsAsDoublea=Val(Text1.Text)s=a*al=4*aText2.Text=Str(l)Text3.Text=Str(s)EndSub第五题:第一种方法PrivateSubForm_click()ConstaAsSingle=10ConstbAsSingle=12ConstcAsSingle=16DimxAsDoubleDimyAsDoubleDimzAsDoubleDimsAsDoublex=Val(InputBox("每500克价格为10元的水果糖，购买数量(克):"))y=Val(InputBox("每500克价格为12元的水果糖，购买数量(克):"))z=Val(InputBox("每500克价格为16元的水果糖，购买数量(克):"))s=a*x/500+b*y/500+c*z/500Print"请一共付款:";Format(s,"0.00");"元。"Print"谢谢惠顾,敬请下次光临！"EndSub第二种方法PrivateSubCommand1_Click()ConstaAsSingle=10ConstbAsSingle=12ConstcAsSingle=16DimxAsDoubleDimyAsDoubleDimzAsDoubleDimmAsDoublex=Val(Text1.Text)y=Val(Text2.Text)z=Val(Text3.Text)m=a*x/500+b*y/500+c*z/500Text4.Text=Format(m,"0.00")EndSub第六题:第一种方法：PrivateSubCommand1_Click()DimaAsDoubleDimbAsDoubleDimcAsDoubleDimdAsDoublea=Val(Int(Text1.Text))b=Val(Int(Text2.Text))c=Val(Int(Text3.Text))b=b+a*60d=c+b*60Text4.Text=dEndSub
