作业帮VB程序循环语句问题Xt=Rp*sin(θ+Φ-Φ10-λ)-C*sin(θ-Φ10-λ),Φ=Φ10+Φi,Φi=K*T,T=θ/180,θ是变量,Φ、Φi的值均与θ有关,其余均为已知值,想用循环语句算出Xt的值,θ为循环变量,变量初值为0,变量终值为90,步
来源：学生作业帮助网 编辑：作业帮 时间：2024/11/03 03:39:39
VB程序循环语句问题Xt=Rp*sin(θ+Φ-Φ10-λ)-C*sin(θ-Φ10-λ),Φ=Φ10+Φi,Φi=K*T,T=θ/180,θ是变量,Φ、Φi的值均与θ有关,其余均为已知值,想用循环语句算出Xt的值,θ为循环变量,变量初值为0,变量终值为90,步
VB程序循环语句问题
Xt=Rp*sin(θ+Φ-Φ10-λ)-C*sin(θ-Φ10-λ),Φ=Φ10+Φi,Φi=K*T,T=θ/180,θ是变量,Φ、Φi的值均与θ有关,其余均为已知值,想用循环语句算出Xt的值,θ为循环变量,变量初值为0,变量终值为90,步长15,最好直接写出程序
VB程序循环语句问题Xt=Rp*sin(θ+Φ-Φ10-λ)-C*sin(θ-Φ10-λ),Φ=Φ10+Φi,Φi=K*T,T=θ/180,θ是变量,Φ、Φi的值均与θ有关,其余均为已知值,想用循环语句算出Xt的值,θ为循环变量,变量初值为0,变量终值为90,步
a:θ b:Φ c:Φ10 d :λ e :C f:Φi
Private Sub Command1_Click()
Dim Xt As Single, RP As Single, a As Integer, b As Single, c As Single, d As Single, e As Single, f As Single, K As Single, T As Single
RP = Val(InputBox("请输入RP的值"))
c = Val(InputBox("请输入Φ10 的值"))
d = Val(InputBox("请输入 λ 的值"))
e = Val(InputBox("请输入C 的值"))
K = Val(InputBox("请输入K的值"))
For a = 0 To 90 Step 15
T = a / 180
f = K * T
b = c + f
Xt = RP * Sin(a + b - c - d) - e * Sin(a - c - d)
Print a; ; Xt
Print
Next a
End Sub