vb System.Decimal.Divide类(方法)实例源码

Module Example
   Public Sub Main()
      ' Divide a series of numbers by 22.1
      Dim dividend As Decimal = 1230.0d
      Dim divisor As Decimal = 22.1d
      For ctr As Integer = 0 To 10
         Console.WriteLine("{0:N1} / {1:N1} = {2:N4}", dividend, divisor,
                           Decimal.Divide(dividend, divisor))
         dividend += .1d 
      Next
   End Sub
End Module

public class Test
   public Shared Sub Main
        Dim D1, D2 As Decimal
        D1 = 10
        D2 = 5.7

        Console.WriteLine(Decimal.Divide(D1, D2))
   End Sub
End class