代码简化新问题？

Question

Private Sub Command2_Click() 
Static k As Integer 
Static i As Integer 
Static j As Integer 
k=k+1 
if k mod 2 = 0 then 
    Label2.Caption = Text1.Text 
else 
    if i=0 then 
        i=i+1 
    end if 
    if j=0 or j=1 then 
        j=j+1 
    elseif j=2 then 
        i=i+1 
        j=1 
    end if 
    FG1.TextMatrix(i, j) = Format(Text1 - Label2.Caption, "00.00") 
end if
end sub
以上代码是按照1行1列，1行2列
              2行1列，2行2列
              ......   ......
            25行1列，25行2列
的顺序输入的
我现在想改成 先把整个1列输入完成后，再输入2列 的顺序
             1行1列，1行2列
             2行1列，2行2列
           ......   ......
           5行1列，25行2列
vsflexgrid表格共25行2列，请高手帮帮忙吧？
还有一个问题就是 在输入过程中 想重新输入该怎么做呢？
比如正在输入第8行2列 发现该行数据错误 想重新输入 
我的这个程序是给一个理化室做的药性测试软件，外部用一个数显表通过软件把数据采集到textbox控件中，然后按照上面的代码进行代码处理的。

Answer 1

Private Sub Command2_Click()
    Static k As Integer
    Static i As Integer
    Static j As Integer
    
    k = k + 1
    If k Mod 2 = 0 Then
        Label2.Caption = Text1.Text
    Else
        If (i Mod 25) = 0 Then j = j + 1
        i = (i + 1) Mod 25
        FG1.TextMatrix(i, j) = Format(Text1 - Label2.Caption, "00.00")
    End If
End Sub

Answer 2

如果：“正在输入第8行2列 发现该行数据错误 想重新输入”，那就安排一个cancel按钮，在cancel按钮里写取消的代码。这时候，最好把i,j,k声明为模块变量，这样在cancel按钮的单击事件过程里也可以取到它。Private m_i As Integer
Private m_j As IntegerPrivate Sub Command2_Click()
    Static k As Integer
    
    k = k + 1
    If k Mod 2 = 0 Then
        Label2.Caption = Text1.Text
    Else
        If (m_i Mod 25) = 0 Then m_j = m_j + 1
        m_i = (m_i Mod 25) + 1
        FG1.TextMatrix(m_i, m_j) = Format(Text1 - Label2.Caption, "00.00")
    End If
End SubPrivate Sub CmdCancel_Click()
    If m_i = 0 Then Exit Sub
    m_i = m_i - 1
End Sub

Answer 3

2楼的代码输入问题解决了 但是
Private Sub CmdCancel_Click()
    If m_i = 0 Then Exit Sub
    m_i = m_i - 1
End Sub
这个不好使
可能是我没说明白 我的意思是 正在输入第8行2列 发现该行数据错误 想重新输入该行的数据 而不是全都不要 
增加一个cancel按钮应该没问题 我想实现如下功能
比如正在输入第8行2列 发现该行数据错误 这时点击一下cancel按钮后 清空第8行的数据 然后点击command2 按钮继续输入数据，该怎么做呢？