VB程序循环语句问题Xt=Rp*sin(θ+Φ-Φ10-λ)-C*sin(θ-Φ10-λ),Φ=Φ10+Φi,Φi=K*

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 Su