UC知道VB高手进，关于DO while LOOP 循环问题
来源：百度知道 编辑：UC知道 时间：2024/06/28 22:03:23
这样运行是可以的，但是效率不高，运算到百万会卡一会儿
Do While Val(Text2.Text) > 59
Text1.Text = Val(Text1.Text) + 1
Text2.Text = Val(Text2.Text) - 60
Loop
我用了以下代码却卡住了不动，谁有没有更好的方案
dim i,j as long
i = val(text1.text)
j = val(text2.text)
Do While j > 59
Text1.Text = i + 1
Text2.Text = j - 60
Loop
Do While Val(Text2.Text) > 59
Text1.Text = Val(Text1.Text) + 1
Text2.Text = Val(Text2.Text) - 60
Loop
我用了以下代码却卡住了不动，谁有没有更好的方案
dim i,j as long
i = val(text1.text)
j = val(text2.text)
Do While j > 59
Text1.Text = i + 1
Text2.Text = j - 60
Loop
dim i,j as long
i = val(text1.text)
j = val(text2.text)
Do While j > 59
doevents '加这一句，就不卡了。
Text1.Text = i + 1
Text2.Text = j - 60
Loop
Do While Val(Text2.Text) > 59
Text1.Text = Val(Text1.Text) + 1
Text2.Text = Val(Text2.Text) - 60
Loop
这段代码是可以正常运行的，但效率很低，因为要多次在Text的属性和数值型之间进行转换
i = val(text1.text)
j = val(text2.text)
Do While j > 59
Text1.Text = i + 1
Text2.Text = j - 60
Loop
如果j>59 这段代码是死循环了，因为循环中j值没有变化
dim i,j as long
i = val(text1.text)
j = val(text2.text)
Do While j > 59
i = i + 1
j = j - 60
Loop
Text1.Text = i
Text2.Text = j
这样就可以了