การเขียนโปรแกรมบวกเลขจำนวนเต็มบวก 3 จำนวน

การเขียนโปรแกรมบวกเลขจำนวนเต็มบวก 3 จำนวน แต่มีเงื่อนไขว่าผลลัพท์ที่ได้จะต้องไม่เกิน 30 ถ้าเกินให้ไปหาค่าเฉลี่ย ถ้าน้อยกว่า 30 ให้หาผลรวม

1. Module Example
   
2.     Dim i, num, sum As Integer
   
3.     Dim average As Decimal
   
4.     Sub Main()
   
5.         sum = 0
   
6.         average = 0
   
7.         For i = 1 To 3
   
8.             Console.Write("Enter Num " & i & " : ")
   
9.             num = Console.ReadLine()
   
10.             sum += num
    
11.         Next
    
12.         If sum > 30 Then
    
13.             average = sum / 3
    
14.             Console.WriteLine("Average = " & average)
    
15.         Else
    
16.             Console.WriteLine("Sum = " & sum)
    
17.         End If
    
18. 
    
19.     End Sub
    
20. 
    
21. End Module

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

ผลรันถ้าผลลัพท์ไม่เกิน 30

2009-12-22 21:36

ผลรันถ้าผลลัพท์เกิน 30

2009-12-22 21:36

แล้วถ้าเขียนตาม 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
*************************************************************

ใช้ได้ครับ