VB 下列程序段，N=N+1 X=X+1 分别是什么意思。 请详细说明。

Private Sub Command1_Click()
Dim n As Integer, x As Integer
x = Val(Text2.Text) '从text2中得到数字
n = 0 ‘计数器n=0
While n < 100 ’未到100个数，循环
If x Mod 3 <> 0 Then ‘如果该数不能被3整除
Text1.Text = Text1.Text & x & vbCrLf ’则添加到text1控件中，计数器n增加1
n = n + 1 ‘计数器n增加1
End If
x = x + 1 ’x增加1，变为原数的下一个数
Wend ‘循环，当n》=100时则跳出循环
End Sub

满意请及时采纳

n=n+1是要使n一定会大于100
x=x+1是要使程序运行结果可以得出
此程序在text2.text里输入一个数（x）
从它后面一个数开始写两个连续的数空一个数

产生100个不被3整除的连续数字系列，text2.text 文本框可以指定这个数字系列的起始数值 。
n=n+1 ：在条件句 If x Mod 3 <> 0 Then ...end if 中，表示每得到一个符合条件的数值就自增1，直到100时退出循环。
x = x + 1 ：从x = Val(Text2.Text) 得到起始数值开始，每循环一次就自增1，每次循环 用If x Mod 3 <> 0 Then ...end if
判别 x 如不被 3 整除 就把它追加到文本框中。

产生100个不被3整除的连续数字系列，text2.text
文本框可以指定这个数字系列的起始数值
。
n=n+1
：在条件句
If
x
Mod
3
<>
0
Then
...end
if
中，表示每得到一个符合条件的数值就自增1，直到100时退出循环

n自加1再赋值给n,x也一样
这段代码大概意思是从n=0到n=99循环枚举出所有不是3的倍数的整数,n是个数,而且这段代码好像有问题