vb中do循环求10的阶乘程序代码

用手踢球1 你那是C了

Private Sub Form_Load()
a = 10
b = 1
Do While a <> 0
b = b * a
a = a - 1
Loop
Print b
End Sub

Private Sub Form_Load()
Dim i As Integer
Dim N As Long
i = 10
N = 1
Do While i > 1
N = N * i
i = i - 1
Loop
Text1 = N
End Sub

int sum=1
int i=1
do
{
sum=sum*i
}while(i<10)

n=0
d=1
do while n<11
n=n+1
d=d*n
loop