一的阶乘一直加到十的阶乘的vb程序用do while语句怎么编

Dim x As Integer
Dim s As Long
Dim zj As Long
Private Sub Command1_Click()
x = 1
zj = 1
Do While x <= 10
zj = zj * x
s = s + zj
x = x + 1
Print x
Loop
Print s
End Sub
经过验证 运行没有问题 结果完全正确

Dim i, j As Integer
Dim jiecheng, Totaljiecheng As Long
i = 0
j = 0
jiecheng = 0
Totaljiecheng = 0
Do While (i < 10)
i = i + 1
jiecheng = 1
j = 0
Do While (j < i)
j = j + 1
jiecheng = jiecheng * j

Loop

Totaljiecheng = Totaljiecheng + jiecheng
Loop
MsgBox Totaljiecheng

用手踢球1 你那是C了

dim value%=1;

dim i%=2;
do while(i<=10){

value=value*i;

i=i+1;

next i;
}
逻辑上大概这样，语法不太记得了，vb太过时了，学的意义不大，建议尝试c或者Java