VB 出现错误 高手帮忙看下

Private Sub Command1_Click()
Dim f() As Double, w() As Double, z() As Double, n As Integer
n = 7
ReDim f(n, n) As Double, w(n, n) As Double, z(n, n) As Double

For i = 1 To (n + 1) / 2
For j = 1 To (n + 1) / 2
p = Abs(j - i): q = j + i - 2
f(i, j) = -(2 * p * Log((2 * p + 1) / (2 * p - 1)) + Log((2 * p + 1) * (2 * p - 1))) + _
(-(2 * q * Log((2 * q + 1) / (2 * q - 1)) + Log((2 * q + 1) * (2 * q - 1))))

w(i, j) = (i - 1) ^ 2 * ((3 * (j - 1)) - (i - 1))
z(i, j) = f(i, j) + w(i, j)
print z(i, j)
Next j
Next i

End Sub

ASP页面出现ADODB.Field 错误 '80020009' 错误，请高手帮忙看下 VB出现错误~帮忙看一下~急~谢谢~ VB 高手看下 vb高手帮忙啊???打开VB工程的frmMain.frm出现加载错误 我机子出现加载错误，大虾帮忙看下。 C程序老是出现一个错误，高手帮忙改下 请高手帮忙看下这个为什么输出错误？(C) vb高手进来看下!!! VB高手进来看下 VB 高手进来看下.