材料力学上机大作业.docx

1、材料力学上机大作业材料力学上机大作业题目名称：几种常用截面图形的几何性质作者班号：0808107作者学号：1080810727作者姓名：刘 鹏指导教师：王春香完成时间：2010年7月1日运行环境：microsoft visual basic语言环境结果数据：几种常用截面的面积、形心坐标、惯性矩。1 双击打开材料力学几种常用截面图形的几何性质通用程序，弹出下示对话框2单击三角形按钮，弹出如下对话框。3在“输入”框中输入 b=10 h=20并单击计算按钮，出现以下对话框，在计算结果框中，可以看到面积、形心坐标、惯性矩的结果。4单击清空按钮后，已有的数据清空，可以再次进行计算。5单击返回首页按钮则返

2、回第一个窗口。6单击退出按钮即可退出程序。附源程序代码：Form1 语句Private Sub Command1_Click()Form1.HideForm2.ShowEnd SubPrivate Sub Command2_Click()Form1.HideForm3.ShowEnd SubPrivate Sub Command3_Click()Form1.HideForm4.ShowEnd SubPrivate Sub Command4_Click()Form1.HideForm5.ShowEnd SubPrivate Sub Command5_Click()Form1.HideForm6.

3、ShowEnd SubPrivate Sub Command6_Click()Form1.HideForm7.ShowEnd SubPrivate Sub Command7_Click()Form1.HideForm8.ShowEnd SubForm2 语句Private Sub Command1_Click()Dim b As Single, h As Single, Y As Single, z As Single, m As Single, n As Single, s As Singleb = Val(Text1.Text)h = Val(Text2.Text)s = b * hY =

4、 b / 2z = h / 2m = b * h * h * h / 12n = h * b * b * b / 12Label7.Caption = Str(Y)Label9.Caption = Str(z)Label12.Caption = Str(m)Label14.Caption = Str(n)Label18.Caption = Str(s)End SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Label7.Caption = Label9.Caption = Label12.Caption = Label14.Ca

5、ption = Label18.Caption = End SubPrivate Sub Command3_Click()Form2.HideForm1.ShowEnd SubForm3 语句Const PI As Single = 3.1415926Private Sub Command1_Click()Dim d As Single, s As Single, z As Single, m As Single, n As Singled = Val(Text1.Text)s = PI * d * d / 4z = d / 2m = PI * d * d * d * d / 64n = mL

6、abel6.Caption = Str(s)Label9.Caption = Str(z)Label12.Caption = Str(m)Label14.Caption = Str(n)End SubPrivate Sub Command2_Click()Text1.Text = Label6.Caption = Label9.Caption = Label12.Caption = Label14.Caption = End SubPrivate Sub Command3_Click()Form3.HideForm1.ShowEnd SubForm4 语句Private Sub Command

7、1_Click()Dim b As Single, h As Single, s As Single, Y As Single, z As Single, m As Single, n As Singleb = Val(Text1.Text)h = Val(Text2.Text)s = b * h / 2Y = b / 3z = h / 3m = b * h * h * h / 36n = h * b * b * b / 36Label6.Caption = Str(s)Label9.Caption = Str(Y)Label11.Caption = Str(z)Label14.Caption

8、 = Str(m)Label16.Caption = Str(n)End SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Label6.Caption = Label9.Caption = Label11.Caption = Label14.Caption = Label16.Caption = End SubPrivate Sub Command3_Click()Form4.HideForm1.ShowEnd SubForm5 语句Private Sub Command1_Click()Dim a As Single, b A

9、s Single, h As Single, s As Single, Y As Single, z As Single, m As Singlea = Val(Text1.Text)b = Val(Text2.Text)h = Val(Text3.Text)s = (a + b) * h) / 2Y = (a * a + a * b + b * b) / (a + b) * 3)z = (b + 2 * a) * h) / (3 * (a + b)m = (h * h * h * (b * b + 4 * a * b - a * a) / (36 * (a + b)Label7.Captio

10、n = Str(s)Label10.Caption = Str(Y)Label12.Caption = Str(z)Label15.Caption = Str(m)End SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Text3.Text = Label7.Caption = Label10.Caption = Label12.Caption = Label15.Caption = End SubPrivate Sub Command3_Click()Form5.HideForm1.ShowEnd SubForm6 语句Con

11、st PI As Single = 3.1415926Private Sub Command1_Click()Dim a As Single, s As Single, Y As Single, z As Single, m As Singlea = Val(Text1.Text)s = PI * a * a / 8Y = 0z = (2 * a) / (3 * PI)m = 0.00686 * a * a * a * aLabel5.Caption = Str(s)Label8.Caption = Str(Y)Label10.Caption = Str(z)Label13.Caption =

12、 Str(m)End SubPrivate Sub Command2_Click()Text1.Text = Label5.Caption = Label8.Caption = Label10.Caption = Label13.Caption = End SubPrivate Sub Command3_Click()Form6.HideForm1.ShowEnd SubForm7 语句Const PI As Single = 3.1415926Private Sub Command1_Click()Dim a As Single, b As Single, s As Single, Y As

13、 Single, z As Single, m As Singlea = Val(Text1.Text)b = Val(Text2.Text)s = PI * a * b / 4Y = 0z = b / 2m = PI * a * b * b * b / 64Label6.Caption = Str(s)Label9.Caption = Str(Y)Label11.Caption = Str(z)Label14.Caption = Str(m)End SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Label6.Caption

14、= Label9.Caption = Label11.Caption = Label14.Caption = End SubPrivate Sub Command3_Click()Form7.HideForm1.ShowEnd SubForm8 语句Const PI As Single = 3.1415926Private Sub Command1_Click()Dim d As Single, a As Single, s As Single, Y As Single, z As Single, m As Singled = Val(Text1.Text)a = Val(Text2.Text

15、)s = a * PI * d * d / (180 * 4)Y = 0z = d * Sin(a * PI / 180) * 180 / (3 * a * PI)m = (d * d * d * d / 64) * (a * PI / 180) + (Sin(a * PI / 180) * Cos(a * PI / 180) - (180 * 16 * Sin(a * PI / 180) * Sin(a * PI / 180) / (9 * a * PI)Label6.Caption = Str(s)Label9.Caption = Str(Y)Label11.Caption = Str(z)Label14.Caption = Str(m)End SubPrivate Sub Command2_Click()Text1.Text = Text2.Text = Label6.Caption = Label9.Caption = Label11.Caption = Label14.Caption = End SubPrivate Sub Command3_Click()Form8.HideForm1.ShowEnd Sub