VB中的1乘到20用FOR怎么写程序，跪求各位大神

Question

如题所述

Answer 1

Dim a, b, c As Long
a = 1

For i = 1 To 20
 
 a = i * a
 
Next i
Print a

Answer 2

Option Explicit

Private Sub Form_Load()
Dim i As Long
Dim j As Double
j = 1
For i = 1 To 20
    j = i * j
Next i
MsgBox j
End Sub

本回答被提问者采纳