如何使用FOR 和DO循环语句编写1*2*3*4....*10总和

Sum=1
For i=1 To 10
Sum=Sum*i
Next i
---------------
Sum=1
i=1
Do While i<=10
Sum=Sum*i
Loop

思路就这样了，语法要错了自己补完

这应该简单吧，可我没学过VB，我就用Delphi写一下吧，你自己换成VB就行了
var
mul,i:integer;
begin
mul := 1;
for i := 1 to 10 do
mul := mul * i；
end;

呃,你还是得多看看这些语句的用法啊