已赋值给text1，但却不显示数据

在下面这段程序中，我想用 qq来统计程序运行的次数，程序运行一次加1，要求达到的效果是在Text1.Text 中依次出现1、2、3、4、5、6.....例如程序总共运行了6次，那么Text1.Text 中应该依次出现1、2、3、4、5、6才对，为啥只出现最后的6而不是1到6依次出现...


For p = 1 To Form1.VSFlexGrid1.Rows - 1 Step 9 '每大组行数
    If Form1.VSFlexGrid1.TextMatrix(p, 2) <> "" Then '条件
     qq = qq + 1

     程序

 Text1.Text = qq
  Else
   Exit For
    End If
  Next p '下一大组跳转