VB程序循环语句问题Xt=Rp*sin(θ+Φ-Φ10-λ)-C*sin(θ-Φ10-λ),Φ=Φ10+Φi,Φi=K*
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/11 01:26:41
VB程序循环语句问题
Xt=Rp*sin(θ+Φ-Φ10-λ)-C*sin(θ-Φ10-λ),Φ=Φ10+Φi,Φi=K*T,T=θ/180,θ是变量,Φ、Φi的值均与θ有关,其余均为已知值,想用循环语句算出Xt的值,θ为循环变量,变量初值为0,变量终值为90,步长15,最好直接写出程序
Xt=Rp*sin(θ+Φ-Φ10-λ)-C*sin(θ-Φ10-λ),Φ=Φ10+Φi,Φi=K*T,T=θ/180,θ是变量,Φ、Φi的值均与θ有关,其余均为已知值,想用循环语句算出Xt的值,θ为循环变量,变量初值为0,变量终值为90,步长15,最好直接写出程序
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
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
Next a
End Su
VB程序循环语句问题Xt=Rp*sin(θ+Φ-Φ10-λ)-C*sin(θ-Φ10-λ),Φ=Φ10+Φi,Φi=K*
VB试题 循环语句 for i=20 to 10 step -2的循环次数为 A6 B4 C不循环 D5
求证 sinθ-sinφ=2cos[(θ+φ)/2]sin[(θ-φ)/2]
把函数y=sin(ωx+φ)(ω>0,IφI
已知函数f(x)=2sin(wx+φ )(其中w>0,I φI
用vb编二个程序列一: s=1+10/2+11/3+12/4+.+i/n (i=100,n=90)列二:sin(x)=x
for 循环语句:下列程序段循环的次数是------,k的最终值是--- for k=5 to 10 step 2 k=
int k=10 while k>0 k=k+1 A.while循环执行多次 B.循环是无限循环 C.循环体语句一次也不
请教正弦电流表达式是 i=Im*sin(wt+φ)还是 i=Im*cos(wt+φ) 呢?区别?
1.若有定义:int i ,k ;则for循环语句:for(i=0,k=-1;k=1;i++,k++);是(C)
VB程序里 For k=1 to 10 step
Matlab 中的For循环语句: >>For i=1:11 For j=1:11 y(i)=sin(n(i)); n(