材料力学上机大作业.docx
《材料力学上机大作业.docx》由会员分享，可在线阅读，更多相关《材料力学上机大作业.docx（11页珍藏版）》请在冰豆网上搜索。
材料力学上机大作业
材料力学上机大作业
题目名称：
几种常用截面图形的几何性质
作者班号：
0808107
作者学号：
1080810727
作者姓名：
刘鹏
指导教师：
王春香
完成时间：
2010年7月1日
运行环境：
microsoftvisualbasic语言环境
结果数据：
几种常用截面的面积、形心坐标、惯性矩。
1．双击打开材料力学几种常用截面图形的几何性质
通用程序，弹出下示对话框
2单击三角形按钮，弹出如下对话框。
3在“输入”框中输入b=10h=20并单击计算按钮，出现以下对话框，在计算结果框中，可以看到面积、形心坐标、惯性矩的结果。
4单击清空按钮后，已有的数据清空，可以再次进行计算。
5单击返回首页按钮则返回第一个窗口。
6单击退出按钮即可退出程序。
附源程序代码：
Form1语句
PrivateSubCommand1_Click（）
Form1.Hide
Form2.Show
EndSub
PrivateSubCommand2_Click（）
Form1.Hide
Form3.Show
EndSub
PrivateSubCommand3_Click（）
Form1.Hide
Form4.Show
EndSub
PrivateSubCommand4_Click（）
Form1.Hide
Form5.Show
EndSub
PrivateSubCommand5_Click（）
Form1.Hide
Form6.Show
EndSub
PrivateSubCommand6_Click（）
Form1.Hide
Form7.Show
EndSub
PrivateSubCommand7_Click（）
Form1.Hide
Form8.Show
EndSub
Form2语句
PrivateSubCommand1_Click（）
DimbAsSingle,hAsSingle,YAsSingle,zAsSingle,mAsSingle,nAsSingle,sAsSingle
b=Val（Text1.Text）
h=Val（Text2.Text）
s=b*h
Y=b/2
z=h/2
m=b*h*h*h/12
n=h*b*b*b/12
Label7.Caption=Str（Y）
Label9.Caption=Str（z）
Label12.Caption=Str（m）
Label14.Caption=Str（n）
Label18.Caption=Str（s）
EndSub
PrivateSubCommand2_Click（）
Text1.Text=""
Text2.Text=""
Label7.Caption=""
Label9.Caption=""
Label12.Caption=""
Label14.Caption=""
Label18.Caption=""
EndSub
PrivateSubCommand3_Click（）
Form2.Hide
Form1.Show
EndSub
Form3语句
ConstPIAsSingle=3.1415926
PrivateSubCommand1_Click（）
DimdAsSingle,sAsSingle,zAsSingle,mAsSingle,nAsSingle
d=Val（Text1.Text）
s=PI*d*d/4
z=d/2
m=PI*d*d*d*d/64
n=m
Label6.Caption=Str（s）
Label9.Caption=Str（z）
Label12.Caption=Str（m）
Label14.Caption=Str（n）
EndSub
PrivateSubCommand2_Click（）
Text1.Text=""
Label6.Caption=""
Label9.Caption=""
Label12.Caption=""
Label14.Caption=""
EndSub
PrivateSubCommand3_Click（）
Form3.Hide
Form1.Show
EndSub
Form4语句
PrivateSubCommand1_Click（）
DimbAsSingle,hAsSingle,sAsSingle,YAsSingle,zAsSingle,mAsSingle,nAsSingle
b=Val（Text1.Text）
h=Val（Text2.Text）
s=b*h/2
Y=b/3
z=h/3
m=b*h*h*h/36
n=h*b*b*b/36
Label6.Caption=Str（s）
Label9.Caption=Str（Y）
Label11.Caption=Str（z）
Label14.Caption=Str（m）
Label16.Caption=Str（n）
EndSub
PrivateSubCommand2_Click（）
Text1.Text=""
Text2.Text=""
Label6.Caption=""
Label9.Caption=""
Label11.Caption=""
Label14.Caption=""
Label16.Caption=""
EndSub
PrivateSubCommand3_Click（）
Form4.Hide
Form1.Show
EndSub
Form5语句
PrivateSubCommand1_Click（）
DimaAsSingle,bAsSingle,hAsSingle,sAsSingle,YAsSingle,zAsSingle,mAsSingle
a=Val（Text1.Text）
b=Val（Text2.Text）
h=Val（Text3.Text）
s=（（a+b）*h）/2
Y=（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.Caption=Str（s）
Label10.Caption=Str（Y）
Label12.Caption=Str（z）
Label15.Caption=Str（m）
EndSub
PrivateSubCommand2_Click（）
Text1.Text=""
Text2.Text=""
Text3.Text=""
Label7.Caption=""
Label10.Caption=""
Label12.Caption=""
Label15.Caption=""
EndSub
PrivateSubCommand3_Click（）
Form5.Hide
Form1.Show
EndSub
Form6语句
ConstPIAsSingle=3.1415926
PrivateSubCommand1_Click（）
DimaAsSingle,sAsSingle,YAsSingle,zAsSingle,mAsSingle
a=Val（Text1.Text）
s=PI*a*a/8
Y=0
z=（2*a）/（3*PI）
m=0.00686*a*a*a*a
Label5.Caption=Str（s）
Label8.Caption=Str（Y）
Label10.Caption=Str（z）
Label13.Caption=Str（m）
EndSub
PrivateSubCommand2_Click（）
Text1.Text=""
Label5.Caption=""
Label8.Caption=""
Label10.Caption=""
Label13.Caption=""
EndSub
PrivateSubCommand3_Click（）
Form6.Hide
Form1.Show
EndSub
Form7语句
ConstPIAsSingle=3.1415926
PrivateSubCommand1_Click（）
DimaAsSingle,bAsSingle,sAsSingle,YAsSingle,zAsSingle,mAsSingle
a=Val（Text1.Text）
b=Val（Text2.Text）
s=PI*a*b/4
Y=0
z=b/2
m=PI*a*b*b*b/64
Label6.Caption=Str（s）
Label9.Caption=Str（Y）
Label11.Caption=Str（z）
Label14.Caption=Str（m）
EndSub
PrivateSubCommand2_Click（）
Text1.Text=""
Text2.Text=""
Label6.Caption=""
Label9.Caption=""
Label11.Caption=""
Label14.Caption=""
EndSub
PrivateSubCommand3_Click（）
Form7.Hide
Form1.Show
EndSub
Form8语句
ConstPIAsSingle=3.1415926
PrivateSubCommand1_Click（）
DimdAsSingle,aAsSingle,sAsSingle,YAsSingle,zAsSingle,mAsSingle
d=Val（Text1.Text）
a=Val（Text2.Text）
s=a*PI*d*d/（180*4）
Y=0
z=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）
EndSub
PrivateSubCommand2_Click（）
Text1.Text=""
Text2.Text=""
Label6.Caption=""
Label9.Caption=""
Label11.Caption=""
Label14.Caption=""
EndSub
PrivateSubCommand3_Click（）
Form8.Hide
Form1.Show
EndSub
升级会员 