VB求1-20的階乘之和

Dim sum, t As Double

sum = 0

For i = 1 To 20

t = 1

For j = 1 To i

t = t * j

Next j

sum = t + sum

Next i

MsgBox "1-20的階乘之和為：" & sum, vbInformation, "確認"妳要先建立壹個窗體，在窗體上建個按鈕，再將上述代碼粘貼到按鈕的過程內。