电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

顺序结构62页VIP免费

顺序结构62页_第1页
1/2
顺序结构62页_第2页
2/2
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

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

顺序结构62页

您可能关注的文档

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部