'在循环里加个DoEvents语句试试
for  i=0 to 10
for j=0 to 10
   DoEvents
//进行计算
//将计算结果添加到textbox中
next j
next i

解决方案 »

  1.   

    在循环里加个 DoEvents 语句试试
    for  i=0 to 10
    for j=0 to 10
    //进行计算
    //将计算结果添加到textbox中
    DoEvents
    next j
    next i
      

  2.   

    取消 “DoEvents” 能提高很多速度。
      

  3.   

    用“DoEvents”结果类同于中断,反使CPU做分时去处理别的进程或线程,时间会加长。VB的语句虽然简单但后台处理比较复杂,又是解释语言结构,所以程序即使简单可能时间也会比较长。用数组或采用指针方式会快一些。
      

  4.   

    “将计算结果添加到textbox中”  添加的方法有多种,有的很费时间,有的很简单,不知你用哪种,贴出来看看。我觉得这才是影响你的速度的地方!
      

  5.   

    我觉得这种简单的循环,用什么都很难提高速度;
    关键在于运算那方面和最后的处理;DoEvents不会提高速度,反而影响速度;但是不建议去掉,毕竟系统不能只是为了你一个人的程序工作啊;
      

  6.   

    为什么都提到用数组?
    我在
    Form1_load()里面给一个数组赋值:
    r(1)=...
    r(2)=....
    ....
    计算结果添加到textbox中是这样的:
    textbox1.text=textbox1.text+vbcrlf+"f("+str(i)+")="+str(f(i))+...
    是不是计算中有开方,而数据都是 double型的才很费时间

      

  7.   

    Dim ss As String
        'textbox1.text=textbox1.text+vbcrlf+"f("+str(i)+")="+str(f(i))+...
        '改为 这样 看看
        ss=ss+vbcrlf+"f("+str(i)+")="+str(f(i))+...
        ........
        ........
        textbox1.Text = ss