ايران ويج

سلام من برنامه ای میخوام که ماتریس 3*4 را نمابیش بده چون در این زمینه مهارتی نداشتم ایت تاپیک را زدم در ضمن نظرتون را درباره این برنامه ای که من نوشتم بگید
برنامه ای که یک عدد را دریافت و تعیین کند که تام است یا خیر

کد:

Private Sub Form_Load()

n = Val(InputBox("Please enter a number:", , 0))

a = 1: s = 0

x: p = n Mod a

If p = 0 Then s = s + a

a = a + 1

If a <= n / 2 Then GoTo x

If s = n Then MsgBox "Adda kamel ast" Else MsgBox "Adda kamel nist"

End Sub

مثال :1+2+3=6 بنابراین تام است

bahareh_toto