imports system

​

Public Module Modulel

public Sub Main()

​

Dim marks As Integer

Dim totalmarks As Integer

        Dim averagemarks As Integer

totalmarks = 0

For count As Integer = 1 To 4 Step 1

Console.WriteLine("enter marks of student : " )

marks = Console.ReadLine()

totalmarks = totalmarks + marks

Next

    averagemarks = totalmarks / 4

    Console.WriteLine("  averagemarks are : {0}",averagemarks)

​

End Sub

End Module