回 帖 发 新 帖 刷新版面

主题:请大家帮我纠正下~~~

计算不正确,大家在帮忙看下~~~

回复列表 (共1个回复)

沙发

看了一下
1.模块没作用
2.下面两段代码只能循环一次:

A(1) = 1: K = 1: W = 0
For J = 1 To K
...


For T = K To 1 Step -1
...

3.数据声明不正确:
Dim N1, N, i, J, K, H, T, L, S As Integer


其实VB有乘方符号“^”,难道它的计算不精确?

我来回复

您尚未登录,请登录后再回复。点此登录或注册