1、当您付费下载文档后，您只拥有了使用权限，并不意味着购买了版权，文档只能用于自身使用，不得用于其他商业用途（如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利）。2、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。3、如文档内容存在违规，或者侵犯商业秘密、侵犯著作权等，请点击“违规举报”。
碎片内容
1输入半径,求圆面积和球体积
PrivateSubForm_Load()DimrAsSingle,sAsSingle,vAsSingler=InputBox("请输入半径r：","输入数据")s=3
14*r^2v=4/3*r^3*3
14'Print"圆面积为:";s'Print"球体积为:";vMsgBox("圆面积为:"&s&Space(2)&"球体积为:"&v)EndSub2输入两个数存放在x和y中，比较大小，保证大数放在x中，小的数放在Y中
PrivateSubCommand1_Click()Print"比较前:"X=InputBox("请输入X")Y=InputBox("请输入Y")Print"X=";X,"Y=";YIfX
该用户很懒，什么也没介绍
