VB 编程代码解释！麻烦详细点哦。

Private Sub Command1_Click() //提交事件
Dim x As Integer, n As Integer //定义2个变量是数字类型
x = 1 // 变量赋值
n = 0 // 变量赋值
Do While x < 20 //循环变量x值

x = x * 3 // 变量运算X<20 也就是到19 ，x=19x3

n = n + 1 // n 初始值+1 等于1

Loop // 结束循环
Text1.Text = Str$(x) // 最后赋值给文本框
Text2.Text = Str$(n) // 最后赋值给文本框
End Sub // 结束提交事件

Private Sub Command1_Click() Dim x As Integer, n As Integer '声明整形变量x和n x = 1 '将1赋值给变量x n = 0 '将0赋值给变量n Do While x < 20 '判断x是否小于20，如果小于20，继续往下执行，如果不小于20，执行while循环结束标志后面的代码 x = x * 3 '变量x等于本身的值*3 n = n + 1 '变量x等于本身的值+1 Loop 'while循环的结束标志 Text1.Text = Str$(x) '将变量x由整数型转换成字符串型，并赋值给text1的text属性 Text2.Text = Str$(n) '将变量n由整数型转换成字符串型，并赋值给text2的text属性 End Sub '

要这样注释 下去,可能是不行的,你要是不懂

do 就上网找,

要是不知道loop做什么用,就去找,

只有学会了找资料才能解决问题,

这样问,不见得有什么帮助 ,总是等着别人来给你答案, 这是程序的大忌,

程序员就是解决问题的,要试着自己去解决问题.

当然必要是问问,像这种基础问题,应该学会自己解决.

Private Sub Command1_Click() Dim x As Integer, n As Integer '定义一个x和n的integer类型变量 x = 1 '设置x值为1 n = 0 '设置n值为0 Do While x < 20 '一直执行下面的循环语句直到x<20 x = x * 3 'x等于x乘以3 n = n + 1 'n等于n+1 Loop '退出循环 Text1.Text = Str$(x) '把x值显示到text1.text上 Text2.Text = Str$(n) '把n值显示到text1.text上 End Sub

这个循环是, 当x<20时 不断执行x*3直到x>20 同时用n来记录执行的循环次数.