vb循环语句问题？？请各位高手进来看看这段代码那里错了？？

2010-04-03 02:35:30 190 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

vb 双重for循环打印乘法口诀表 print不换行输出实验11 用循环语句打印数学乘法表实验内容掌握使用For Next语句/Do Until Loop语句/Do While Loop语句进行循环控制用循环语句打印数学乘法表编写实验报告。实验环境 Windows7，Office、VB开发环境。实验运行结果点击“打印”后的效果：点击“清屏”后的效果：实验代码 Private Sub Command1_Click() ... 阅读详情

当“字段1”有数据（数字）且“字段2”为空时，则执行循环。
“字段1”中上一条记录减下一条记录，一直到最后一条记录，
得出的结果输出到“字段2”中。

'循环那里好像错了，vb陷入了死循环!
另外结果也不能输出到“字段2”中！
请各位高手把正确代码写出来，万分感谢！

Private Sub Command1_Click()

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Set cn = New ADODB.Connection
cn.Open "provider=microsoft.jet.oledb.4.0;data source=E:\成绩\分数.mdb;"
sql = "select * from 分数表"
Set rs = New ADODB.Recordset
rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic

Dim i As Integer
While Not rs.EOF
If not rs.Fields("1") = "" And rs.Fields("2") = "" Then
i = rs.Fields("1") - i
rs.Fields("2") = i
End If
i = rs.Fields("1")
Wend
rs.Update

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub

...全文