VB.Net Tutorial/Class Module/Sub

Материал из VB Эксперт
Перейти к: навигация, поиск

Define a sub routine and call it

Option Strict On
 Imports System
 
 Module Module1
    Sub Main( )
       Console.WriteLine("In Main! ")
       SomeMethod( )
       Console.WriteLine("Back in Main( ).")
    End Sub "Main
    Sub SomeMethod( )
       Console.WriteLine("Greetings from SomeMethod!")
    End Sub 
 End Module
In Main!
Greetings from SomeMethod!
Back in Main( ).

Sub procedure that prints payment information.

Module Tester
   Sub Main()
      PrintSub(40, 10.5)
      PrintSub(38, 21.75)
      PrintSub(20, 13)
      PrintSub(50, 14)
   End Sub
   Sub PrintSub(ByVal hours As Double, ByVal wage As Decimal)
      Console.WriteLine("The payment is {0:C}", hours * wage)
   End Sub
End Module
The payment is $420.00
The payment is $826.50
The payment is $260.00
The payment is $700.00