Private Sub Command1_Click()
Dim n As Integer
Dim itotal As Integer
itotal = 1
n = 1
For n = 1 To 10
itotal = itotal * n
Next
print "计算1*2*3*...*10=" &itotal
End Sub


     想求得1*2*3*...*10的结果

你的结果超出Integer的范围，改为：dim itotal as long 就行了

10! = 3 628 800, 而'integer'的范围是 -2^15 - 2^15-1(-32768 - 32767), 所以, 需要把 itotal定义为longint型.

Private Sub Command1_Click()
Dim n As Integer
Dim itotal As long
itotal = 1
n = 1
For n = 1 To 10
itotal = itotal * n
Next n
print "计算1*2*3*...*10=" &itotal
End Sub
红色的改就好了

在for循环语句之前，是不需要对循环变量赋初值的，n = 1 是多余的

Function a(q, w, e, r, t, y, u, i, o As Long) As Long
 a = q * w * e * r * t * y * u * i * o
 End Function
Private Sub Command1_Click()
 Print a(1, 2, 3, 4, 5, 6, 7, 8, 9)
End Sub