VB.Net/Language Basics/Mod

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

Mod Calculation

<source lang="vbnet"> Imports System Public Class MainClass

   Shared Sub Main(ByVal args As String())
      Dim counter As Integer
      For counter = 1 To 100
         Console.Write("{0} ", counter)
         " every tenth value, display a tab and the value
         If counter Mod 10 = 0 Then
            Console.WriteLine(vbTab & counter)
         End If
      Next counter
   End Sub

End Class

      </source>


Mod Operator

<source lang="vbnet"> Imports System public class MainClass

   Shared Sub Main()
      Dim counter As Integer
      For counter = 1 To 100
         Console.Write("{0} ", counter)
         If counter Mod 10 = 0 Then
            Console.WriteLine(vbTab & counter)
         End If
      Next counter
   End Sub

End Class


      </source>