老师给改个代码

Question

For k = 0 To 9
i = 0
For it = 1 To MSFlexGrid1.Rows - 1
ss = MSFlexGrid1.TextMatrix(it, 1)
ss1 = UBound(Split(ss, k))
ss2 = UBound(Split(ss, 0))
If k = 0 Then
    ss1 = Choose(ss2 + 1, 0, 0, 1, 3)
Else
    If (ss1 > ss2) Then ss1 = ss2End If
i = i + ss1
iy = 2 + k‘从第二列开始
MSFlexGrid1.TextMatrix(it, iy) = i
Next
Next
如果我要改成
For k = 0 To 9
For c = k To 9
i = 0
For it = 1 To MSFlexGrid1.Rows - 1
ss = MSFlexGrid1.TextMatrix(it, 1)
ss1 = UBound(Split(ss, k))
ss2 = UBound(Split(ss, c))
If k = 0 Then
    ss1 = Choose(ss2 + 1, 0, 0, 1, 3)
Else
    If (ss1 > ss2) Then ss1 = ss2
End If
i = i + ss1
iy = 2 + k'这块该怎么改
MSFlexGrid1.TextMatrix(it, iy) = i
Next
Next
Next

Answer 1

你多点文字说明，然后把代码的格式换一下，效果可能要好一点