- เข้าสู่ระบบล่าสุด
- 2012-5-14
- เวลาออนไลน์
- 81 ชั่วโมง
- จิตพิศัย
- 39
- Money
- 144
- สมัครสมาชิกเมื่อ
- 2009-12-20
- สิทธิ์ในการอ่าน
- 200
- โพสต์
- 42
- กระทู้
- 42
- สำคัญ
- 0
- เครดิต
- 39
- UID
- 1
 
- Money
- 144
- จิตพิศัย
- 39
- สมัครสมาชิกเมื่อ
- 2009-12-20
- เครดิต
- 39
- โพสต์
- 42
|
- Module Multi
- Function mul(ByVal x As Integer) As Integer
- Dim i As Integer
- Dim m As String = ""
- For i = 1 To 12
- mul = Str(x * i)
- m &= (x & " x " & i & " = " & mul & vbCrLf)
- Next
- MsgBox(m, MsgBoxStyle.OkOnly, "Multiplication is " & x)
- End Function
- Sub Main()
- Dim x As Integer
- x = InputBox("Enter Mom : ", "Enter Mom")
- mul(x)
- End Sub
- End Module
 |
|
