机械原理实验VB程序.docVIP

Private Sub Command1_Click() Dim L1, L2, L3, L4 As Double Dim s1_Degree, s2_Degree, s3_Degree, s1, s2, s3 As Double Dim w1, w2, w3 As Double Dim a1, a2, a3 As Double Dim A, B, C As Double Dim i As Integer pi = 3.1415926 L1 = Val(Text1.Text) L2 = Val(Text2.Text) L3 = Val(Text3.Text) L4 = Val(Text4.Text) w1 = Val(Text5.Text) Text6.Text = Text6.Text s1 s2 s3 Chr(13) Chr(10) Text7.Text = Text7.Text w1 w2 w3 Chr(13) Chr(10) Text8.Text = Text8.Text a1 a2 a3 Chr(13) Chr(10) i = 0 For s1_Degree = 0 To 360 St