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

程序设计基础 课程设计报告书 题目: 弹簧的伸长量之比和弹性势能之比 学院 石油工程学院 专业 油气储运工程 班级 14—3 学生 吴有昊 指导教师 赖锦辉 完成时间 2015年06月08日至2015年 06月11日  《程 序 设 计 基 础》 课 程 设 计 报 告 实验目的 {要求综合运用所学知识，解决专业相关问题。掌握程序设计基本方法和基本过程，能够灵活应用VB语言工具，提高计算机应用技能。} 实验设备 {计算机；VB工具软件。} 实验内容 利用label实现对文字的输入，text实现对数字的输入输出，command控件实现计算过程以及对程序的控制。 实验要求 {问题必须与专业相关：自己设计，严禁抄袭。} 问题描述 一根劲度系数为的轻弹簧的下端，挂一根劲度系数为的轻弹簧，的下端一??物，的质量为，如图．求这一系统静止时两弹簧的伸长量之比和弹性势能之比． 解: 弹簧及重物受力如题2-15图所示平衡时，有 又 所以静止时两弹簧伸长量之比为 弹性势能之比为 问题分析 1.输入……重物C的质量G，弹簧A，B的劲度系数k,h 2.处理……弹簧A与B所受的力f,j相等，均等于重物C的质量,即f=j=G x=f/k,r=j/h,弹簧伸长量之比x/r=h/k，弹性势能之比e/w=(1/2*k*x^2)/ (1/2*h*x^2)=h/k 3.输出……,弹簧伸长量之比x/r=h/k，弹性势能之比e/w=(1/2*k*x^2)/ (1/2*h*x^2)=h/k 算法设计 程序代码 Private Sub Command1_Click() Dim f, j Dim k, h Dim x, r Dim G Dim e, w G = Val(Text3.Text) k = Val(Text4.Text) h = Val(Text5.Text) f = j = G If k 0 And h 0 Then x = f / k r = j / h e = 1 / 2 * k * x ^ 2 w = 1 / 2 * h * x ^ 2 Text1.Text = h / k Text2.Text = h / k Else MsgBox 除数为0了，请检查输入 Exit Sub End If End Sub 执行结果 存在问题 ………