ผมเขียนโปรแกรมคำนวณเลข
โดยมีmethod A , B , C
เขียนแบบง่ายๆ น่าจะอย่างนี้นะครับ

A
{
dim n  as integer
B(n)
}


B(byval n)
{
C(n)
}

โดยMethod  C ผมจะคำนวณแฟคเทอเรียล
C(byval n)
{
Dim facup, facdn As Integer
        facup = 1
        facdn = 1
        For i = 1 To n
            facup = facup * i
        Next
        For j = 1 To n - 3
            facdn = facdn * j
        Next
        facdn = facdn * 6
        facto = facup / facdn  'facto เป็นค่าที่ผมจะแสดงซึ่งตัวนี้ไม่ได้มีปัญหา
}
ปัญหาคือ ผมส่งค่า n มาไม่ได้ มัน Error แล้วแจ้งประมาณว่าค่า facup มันเป็น 0
จากที่ผมลองคิดมือมันไม่น่าจะเป็น 0 ซึ่งพอเปลี่ยนจาก n เป็นตัวเลข (เลข5ขึ้นไป) สามารรันผลออกมาได้
ช่วยผมทีแก้ตรงนี้หลายวันแล้วครับ