VB 如何输出数据 S V A J ,并同时显示在一个Excel 表格
部分代码如下：For i = 1 To DotNum
fai = i * PI / 180
'0度到46度
If fai > 0 And fai <= 136 * PI / 180 Then
S(i) = 0
V(I)=方程
A(I)=方程
J(I)=方程
End If
'46度到96度
If fai > 136 * PI / 180 And fai <= 176 * PI / 180 Then
S(i) = 0
V(I)=方程
A(I)=方程
J(I)=方程
End If
'96度到200
If fai > 176 * PI / 180 And fai <= 200 * PI / 180 Then
S(i) = 0
End If
'200度到220度
If fai > 200 * PI / 180 And fai <= 220 * PI / 180 Then
S(i) = ψ1 + ψ2 * ((fai - 200 * PI / 180) / (20 * PI / 180) - Sin(2 * PI * (fai - 200 * PI / 180) / (20 * PI / 180)) / (2 * PI))
V(I)=方程
A(I)=方程
J(I)=方程
End If
'220度到238度
If fai > 220 * PI / 180 And fai <= 285 * PI / 180 Then '远休止角2
'S = ψ1 + ψ2
S(i) = 0
V(I)=方程
A(I)=方程
J(I)=方程
End If
'238度到285度
If fai > 285 * PI / 180 And fai <= 330 * PI / 180 Then
'S(i) = -ψ3 * (1 - (((fai - 285 * PI / 180) / (45 * PI / 180)) - (1 / (2 * PI)) * (Sin(2 * PI * (fai - 285 * PI / 180) / (45 * PI / 180)))))
S(i) = 0
V(I)=方程
A(I)=方程
J(I)=方程
End If
'285度到360度
If fai > 330 * PI / 180 And fai <= 360 * PI / 180 Then
S(i) = 0
V(I)=方程
A(I)=方程
J(I)=方程
End If
现在 S V A J 分别在不同的区间,如何把每段的数据连接起来,具体要求见附件
[此贴子已经被作者于2022-3-17 21:47编辑过]
