怎样把matlab程序改为vb程?怎样把matlab程序改为vb’Y(2)=3。8’Y(3)=10。5’Y(4)=2。7’Y(5)=0。2sum=0Fori=1To5sum=sum+CSng(Y(i))NextIfsum=0ThenGray=”数据异常,无法得出结论!”ExitFunctionE
怎样把matlab程序改为vb程?怎样把matlab程序改为vb
‘Y(2) = 3。8
‘Y(3) = 10。5
‘Y(4) = 2。7
‘Y(5) = 0。2
sum = 0
For i = 1 To 5
sum = sum + CSng(Y(i))
Next
If sum = 0 Then
Gray = “数据异常,无法得出结论!”
Exit Function
End If
For i = 2 To 5
Y(i) = 100 * CSng(Y(i)) / (sum – CSng(Y(1)))
Next
Y(1) = 100 * CSng(Y(1)) / sum
‘————————————————-
‘——计算灰色关联系数—————————-
‘计算Dmin/Dmax/Dik
Dmin = 100
Dmax = 0
sum = 0
For i = 1 To 55
For k = 1 To 5
dik(k, i) = Abs(CSng(X(i)(k)) – Y(k))
sum = sum + dik(k, i)
If dik(k, i) >= Dmax Then
Dmax = dik(k, i)
End If
If dik(k, i) mmm Then
mmm = d0(m + k)
End If
Next
epsita(i) = mmm
Next
sorted = sort(epsita)
Gray = XX(sorted(1, 2)) & ” 关联度:” & Format(sorted(1, 1), “0。
VB的程序包含什么?
VB的程序可以包含一个或多个窗体,或者是一个主窗体和多个子窗体,类似于操作系统的样子
创业项目群,学习操作 18个小项目,添加 微信:niuben22 备注:小项目!
如若转载,请注明出处:https://www.gzxsgy.com/25627.html