Question

vb 在for语句中怎样用 goto

For j = 1 To 10
For k = j + 1 To 10
If xlsheet.Cells(j, 1) = xlsheet.Cells(k, 1) Then
xlsheet.Cells(j, 2) = xlsheet.Cells(j, 2) + xlsheet.Cells(k, 2)
xlsheet.Cells(k, 2) = xlsheet.Cells(k, 2)
End If
Next k
Next j
当k值出现过于j相等 后面的k值不在对他循环 直接跳过 怎么表达呀
急！急！！急！！！求各位大虾帮忙，小弟感激不尽！！！

Answer 1

For j = 1 To 10
For k = j + 1 To 10
If xlsheet.Cells(j, 1) = xlsheet.Cells(k, 1) Then
xlsheet.Cells(j, 2) = xlsheet.Cells(j, 2) + xlsheet.Cells(k, 2)
xlsheet.Cells(k, 2) = xlsheet.Cells(k, 2)
exit for
End If
Next k
Next j

Answer 2

For j = 1 To 10
For k = j + 1 To 10
If xlsheet.Cells(j, 1) = xlsheet.Cells(k, 1) Then
xlsheet.Cells(j, 2) = xlsheet.Cells(j, 2) + xlsheet.Cells(k, 2)
xlsheet.Cells(k, 2) = xlsheet.Cells(k, 2)
if j=k Then Exit For '退出本层循环
End If
Next k
Next j

注：
有goto语句，可以用它构造循环之类的，不建议使用

希望回答对你有帮助

Answer 3

For j = 1 To 10
For k = j + 1 To 10
If xlsheet.Cells(j, 1) = xlsheet.Cells(k, 1) Then
xlsheet.Cells(j, 2) = xlsheet.Cells(j, 2) + xlsheet.Cells(k, 2)
xlsheet.Cells(k, 2) = xlsheet.Cells(k, 2)
End If
if 条件 then exit for '跳出里面这个for循环
Next k
if 条件 then exit for '跳出外面这个for循环
Next j

追问

但是相等后 我后面的程序 还有的值还没判断 要循环下去 只是下次再碰到xlsheet.Cells(k, 1) 时就跳过它

追答

不明白 表达不够清楚

Answer 4

exit for命令
k不可能=j 吧？

追问

不是的 是判断If xlsheet.Cells(j, 1) = xlsheet.Cells(k, 1) Then 里面的内容的

追答

在End If之前加入exit for