第壹，整體思路太不清晰。看了半天，還是不明白這兩部分都想實現什麽功能。
第二，代碼的編寫習慣太差。最好用最基本最完整的方式定義所有變量，以免給自己帶來麻煩，其他壹些習慣不太好。(註意，壹個過程可以使用沒有在過程中顯式定義的變量，但是只要在模塊級定義的任何壹個名稱同名，就會發生名稱沖突。如果過程中使用的未定義變量與其他過程、常數或變量同名，則認為該過程使用了模塊級名稱。顯式定義變量可以避免這種沖突。您可以使用Option Explicit語句來強制顯式定義變量。)
第三，如果只是想實現整數的階乘，就不需要調用過程，直接用FOR循環求解即可:
私有子命令1_Click()
Dim i壹樣長，j壹樣長
j = 1
對於i = 2到10
j = j * i
然後
Text1。Text = j
末端接頭