Dim m, n, k As Integer
m = 6
n = 1
For k = 1 To m Step 2
n = n * k
Next k
Print "n ="; n
程序运行后,n的值是:
微信扫码预览、分享更方便