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