材料力学上机作业题目：杆件在拉伸与压缩变形下的强度及刚度计算班级：1008104学号：1102800122姓名：夏林清程序运行环境：VisualBasic6.0程序原代码：Form1PrivateSubCommand1_Click()Form2.ShowForm1.HideEndSubPrivateSubCommand2_Click()EndEndSubForm2PrivateSubCommand1_Click()IfOpj.Value=TrueThenForm4.ShowForm2.HideElseForm5.ShowForm2.HideEndIfEndSubPrivateSubCommand2_Click()Form1.ShowForm2.HideEndSubForm3PrivateF(100)AsDoublePrivateL(100)AsDoublePrivatebAsDoublePrivateAAsDoublePrivatekAsIntegerConstpiAsDouble=3.1415926PrivatenAsIntegerPrivateqAsDoublePrivateX(100)AsDoublePrivateSubCommand1_Click()StaticiAsIntegerIfText5.Text=""Thenmsg=MsgBox("请输入载荷",48,"提示")ElseF(i)=Text5.TextEndIfIfText6.Text=""Thenmsg=MsgBox("请输入载荷位置",48,"提示")ElseL(i)=Text6.TextEndIfLabel12="您已经输入了"&i+1&"个力，可以继续输入"k=ii=i+1Text5.Text=""Text6.Text=""EndSubPrivateSubCommand2_Click()DimsumAsDoubleDimcAsIntegerDimsAsDoubleDimtAsDoubleIfText7.Text=""Thenmsg=MsgBox("请输入要计算截面坐标",48,"提示")EndIfFori=0To99Step1If(Text7.Text>=L(i))And(Text7.Text<L(i+1))Thenc=iEndIfNextForj=0Tocsum=sum+F(j)NextLabel9.Caption=sumb=((sum*1000)/A)/10^6Label14.Caption=Abs(b)IfAbs(b)<=Text2.TextThenLabel11.Caption="符合强度要求"ElseLabel11.Caption="不符合强度要求"EndIfFork=0Tok-1Step1s=s+F(k)X(k)=(((s*1000)*((L(k+1)-L(k))/100))/((Text9.Text*10^11)*A))*1000t=t+X(k)NextLabel18.Caption=tLabel12.Caption=""EndSubPrivateSubCommand3_Click()IfText1.Text=""Thenmsg=MsgBox("请先输入杆长",48,"提示")ElseForm10.ClsForm10.ShowForm10.Scale(0,100)-(100,0)Form10.Line(10,45)-(10+Text1.Text,45)Form10.Line(10,45)-(10,Text1.Text/5+45)Form10.Line(10,45+Text1.Text/5)-(10+Text1.Text,45+Text1.Text/5)Form10.Line(10+Text1.Text,45)-(10+Text1.Text,45+Text1.Text/5)Fork=0TokStep1Form10.Line(10+L(k),45)-(10+L(k),45+Text1.Text/5)Form10.Line(10+L(k),(45+45+Text1.Text/5)/2)-(10+L(k)-3,(45+45+Text1.Text/5)/2)IfF(k)>0ThenForm10.Line(10+L(k)-3,(45+45+Text1.Text/5)/2)-(10+L(k)-3+0.8,(45+45+Text1.Text/5)/2+0.8)Form10.Line(10+L(k)