- เข้าสู่ระบบล่าสุด
- 2010-6-24
- เวลาออนไลน์
- 2 ชั่วโมง
- จิตพิศัย
- 2
- Money
- 6
- สมัครสมาชิกเมื่อ
- 2009-12-25
- สิทธิ์ในการอ่าน
- 10
- โพสต์
- 6
- กระทู้
- 2
- สำคัญ
- 0
- เครดิต
- 2
- UID
- 13
- Money
- 6
- จิตพิศัย
- 2
- สมัครสมาชิกเมื่อ
- 2009-12-25
- เครดิต
- 2
- โพสต์
- 6
|
แล้วถ้าเขียนตาม Code แบบด้านล่างได้เหมือนกันหรือป่าวครับ
***************************************************
Module Module1
Dim sum, result, num1, num2, num3 As Integer
Dim average As Decimal
Sub Main()
Console.Write("Enter num1: ")
num1 = Console.ReadLine
Console.Write("Enter num2: ")
num2 = Console.ReadLine
Console.Write("Enter num3: ")
num3 = Console.ReadLine
result = num1 + num2 + num3
If result > 30 Then
average = result / 3
Console.WriteLine("average = " & average)
ElseIf result <= 30 Then
sum = result
Console.WriteLine("sum = " & sum)
End If
End Sub
End Module
************************************************************* |
|
