VB道编程题

① VB编程这题怎么写

vb2010写的程序运行两百次速度还可以，如果要运行再多的次数可以开个多线程去运算就不会卡了

运行前

PrivateSubButton1_Click(senderAsSystem.Object,eAsSystem.EventArgs)HandlesButton1.Click

Dim计数器=0

TextBox4.Text="0."

DoWhile计数器<TextBox3.Text

TextBox1.Text=TextBox1.Text*10

TextBox4.Text=TextBox4.Text&TextBox1.TextTextBox2.Text

TextBox1.Text=TextBox1.TextModTextBox2.Text

If(计数器+3)Mod20=0ThenTextBox4.Text&=vbCrLf

计数器+=1

IfTextBox1.Text=0ThenExitDo

Loop

Label1.Text="运算结束，共运算了"&计数器&"次"

EndSub