程序设计基础课程设计报告书(储运14-3吴有昊)

《程序设计基础课程设计报告书(储运14-3吴有昊)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、%并斤沖比/谭況程序设计基础课程设计报告书题目：弹簧的伸长量之比和弹性势能之比学院石油工程学院专业油气储运工程班级]4一3学生吴有昊指导教师赖锦辉完成时间2015年吆月08日至2015年吆月1£H《程序设计基础》课程设计报告一、实验目的｛要求综合运用所学知识，解决专业相关问题。掌握程序设计基本方法和基本过程，能够灵活应用VB语言工具，提高计算机应用技能。｝二、实验设备｛计算机；VB工具软件。｝三、实验内容利用label实现对文字的输入，text实现对数字的输入输出，command控件实现计算过程以及对程序的控制。四、实验要求｛问题必须与专业相关：自己设计，严禁抄袭。｝五

2、、问题描述一根劲度系数为人的轻弹簧A的下端，挂一根劲度系数为心的轻弹簧B,B的下端一重物C,C的质量为M,如图.求这一系统静止时两弹赞的伸长量Z比和弹性势能Z比.解：弹簧A、B及重物C受力如题2-15图所示平衡吋，有乂巴所以静止时两弹簧伸长量Z比为AXj_k2Ax2k、弹性势能之比为六、问题分析1•输入……重物C的质量G,弹簧A,B的劲度系数k,h2.处理……弹簧A与B所受的力f,j相等,均等于重物C的质量，即f=j=Gx二f/k,r二j/h,弹簧伸长量之比x/r=h/k,弹性势能之比e/w=(l/2*k*x"2)/(l/2*h*x*2)=h/k3.输出……,弹簧伸长量

3、之比x/r=h/k,弹性势能之比e/w=(l/2*k*xV)/(l/2*h*xJ)二h/k七、算法设计八、程序代码PrivateSubCommandl_Click()Dimf&,j&Dimk&,h&Dimx&,r&DimG&Dime&,w&G=Val(Tcxt3.Tcxt)k=Val(Text4.Text)h=Vai(Text5.Text)f=j=GIfk<>0Andh<>0Thenx=f/kr=j/he=l/2*k*xA2w=l/2*h*xA2Textl.Text=h/kTcxt2.Tcxt=h/kElseMsgBox“除数为0了，请检査输入”ExitSubEndIf

4、EndSub九、执行结果十、存在问题