求解下列式子,如何在VB里实现?
wcao = (i * 0.0907 + j) / 100wtio = (i * 0.0178 + k * 0.062) / 100
walo = (i * 0.2418 + k * 0.64) / 100
wfeo = (i * 0.0479 + k * 0.024) / 100
wsio = (i * 0.4449 + k * 0.178) / 100
wso = (i * 0.09 + k * 0.031) / 100
cm = (wcao - 0.7 * wtio) / ((0.73 * (walo - 0.64 * wfeo) + 1.4 * wfeo + 1.87 * wsio))
P = (walo - 0.64 * wfeo) / wso
N = (walo - 0.64 * wfeo) / wsio
满足 0.95 <= cm <= 0.99
3.8 <= P <= 3.82
1 <= N <= 1.3
i + j + k = 100
就是i,j,k分别得百分比。