UC知道求VB专家帮忙做个程序
来源：百度知道 编辑：UC知道 时间：2024/06/19 03:27:34
请专家帮忙做个可执行的程序，直接做成可以执行的程序发到我的邮箱好吗，我的邮箱是 LHC413@sina.com 程序思路是这样的：
用户输入变量 ： p , z ,d1
需要求的以下数值：
d= p/[sin(180/z)] （180的单位是度，涉及到函数的全是度，而不是弧度，需要转换）
da1=d+1.25*p-d1
da2=d+(1-1.6/z)*p-d1
r1=0.5025*d1+0.05
a=55-60/z (a 单位是度，55，60的单位全是度）
M=0.8*d1*sin(a)
T=0.8*d1*cos(a)
r2=1.3025*d1+0.05
B=18-56/z (B单位是度 ，18，56单位是度）
W=1.3*d1*cos(180/z)
V=1.3*d1*sin(180/z)
r=17-64/z (r 单位是度，17，64是度）
r3=d1*[1.3*cos(r)+0.8*cos（B）-1.3025]-0.05
输出：d= ,da1= da2= ,r1=,a=,M=,T=,r2=,B=,W=,V=,r=,r3= 的数值。
备注：1度=TT/180 弧度（TT为派）
计算机函数默认的是弧度制，需要转换一下，
比如 sin(75度）编程时需要输入 sin[75*(TT/180)]
我要是会就好了，我是个工人，在做计算的时候太过烦琐了，就想请教编个简单的程序，但我又不会，
用户输入变量 ： p , z ,d1
需要求的以下数值：
d= p/[sin(180/z)] （180的单位是度，涉及到函数的全是度，而不是弧度，需要转换）
da1=d+1.25*p-d1
da2=d+(1-1.6/z)*p-d1
r1=0.5025*d1+0.05
a=55-60/z (a 单位是度，55，60的单位全是度）
M=0.8*d1*sin(a)
T=0.8*d1*cos(a)
r2=1.3025*d1+0.05
B=18-56/z (B单位是度 ，18，56单位是度）
W=1.3*d1*cos(180/z)
V=1.3*d1*sin(180/z)
r=17-64/z (r 单位是度，17，64是度）
r3=d1*[1.3*cos(r)+0.8*cos（B）-1.3025]-0.05
输出：d= ,da1= da2= ,r1=,a=,M=,T=,r2=,B=,W=,V=,r=,r3= 的数值。
备注：1度=TT/180 弧度（TT为派）
计算机函数默认的是弧度制，需要转换一下，
比如 sin(75度）编程时需要输入 sin[75*(TT/180)]
我要是会就好了，我是个工人，在做计算的时候太过烦琐了，就想请教编个简单的程序，但我又不会，
我写好了，这是代码，程序已发到你邮箱
有问题可以发消息我
窗体
Private Sub Command1_Click()
Dim jg As OUTPUTDATA
js txt_p.Text, txt_z.Text, txt_d1.Text, jg
With jg
lbl_d.Caption = "d=" & CStr(.d)
lbl_da1.Caption = "da1=" & CStr(.da1)
lbl_da2.Caption = "da2=" & CStr(.da2)
lbl_r1.Caption = "r1=" & CStr(.r1)
lbl_a.Caption = "a=" & CStr(.a)
lbl_M.Caption = "M=" & CStr(.M)
lbl_T.Caption = "T=" & CStr(.t)
lbl_r2.Caption = "r2=" & CStr(.r2)
lbl_B.Caption = "B=" & CStr(.b)
lbl_W.Caption = "W=" & CStr(.w)
lbl_V.Caption = "V=" & CStr(.v)
lbl_r.Caption = "r=" & CStr(.r)
lbl_r3.Caption = "r3" & CStr(.r3)
End With
End Sub
模块
'用户输入变量: p , z, d1
'需要求的以下数值:
'd= p/[sin(180/z)] （180的单位是度，涉及到函数的全是度，而不是弧度，需要转换）
'da1 = d + 1.25 * p - d1