本人近來想學習vb，將書上的程式敲到電腦后運行顯示函式未定義，自己檢查不出什么問題，請各位老師幫忙看看按下面的圖片要求及代碼新建工程，謝謝。
uj5u.com熱心網友回復：
1)確定是 VB6 而不是 VB.Net。2)把下面一段代碼也輸入到表單的代碼視窗中。
3)代碼不包括行號。
4)Print 陳述句輸出是臨時的，表單重繪一下就看不到了，建議換成 MsgBox 陳述句。
uj5u.com熱心網友回復：
代碼沒有問題，可修改如下：Private Sub CountAll(ParamArray num())
Dim total As Long, x As Variant
Dim n As Integer, s As Long
total = 0
For Each x In num
s = 1
For n = 2 To x
s = s * n
Next n
total = total + s
Next x
MsgBox total
End Sub
Private Sub Command1_Click()
Call CountAll(1, 5, 8, 10)
End Sub
1 作為回圈變數，n 在 For 陳述句中賦初值，之前沒有必要賦值。
2 階乘從 2 開始即可。乘以 1 沒有實際意義。
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/57494.html
標籤：VB基礎類