- เข้าสู่ระบบล่าสุด
- 2011-10-20
- เวลาออนไลน์
- 37 ชั่วโมง
- จิตพิศัย
- 64
- Money
- 51
- สมัครสมาชิกเมื่อ
- 2009-12-20
- สิทธิ์ในการอ่าน
- 200
- โพสต์
- 136
- กระทู้
- 45
- สำคัญ
- 0
- เครดิต
- 64
- UID
- 2
 
- Money
- 51
- จิตพิศัย
- 64
- สมัครสมาชิกเมื่อ
- 2009-12-20
- เครดิต
- 64
- โพสต์
- 136
|
- Module Multi
- Function multi(ByVal num As Integer) As Integer
- Dim i, sum As Integer
- For i = 1 To 12
- sum = num * i
- Console.WriteLine(num & " x " & i & " = " & sum)
- Next
- End Function
- Sub Main()
- Dim num As Integer
- Console.Write("Enter Num : ")
- num = Console.ReadLine()
- multi(num)
- End Sub
- End Module
ตัวอย่าง ผลรัน
|
|
