เขียนโปรแกรมสูตรคูณโดยการสร้างฟังก์ชั่น สูตรคูณ, ฟังก์ชั่น

1. Module Multi
   
2.     Function multi(ByVal num As Integer) As Integer
   
3.         Dim i, sum As Integer
   
4. 
   
5.         For i = 1 To 12
   
6.             sum = num * i
   
7.             Console.WriteLine(num & " x " & i & " = " & sum)
   
8.         Next
   
9.     End Function
   
10.     Sub Main()
    
11.         Dim num As Integer
    
12.         Console.Write("Enter Num : ")
    
13.         num = Console.ReadLine()
    
14.         multi(num)
    
15.     End Sub
    
16. 
    
17. End Module

คัดลอกไปที่คลิปบอร์ด

ตัวอย่าง ผลรัน

2010-1-19 20:02

2010-1-19 20:02