常用数学函数

Imports System.Math
Module Module1

Sub Main()
    '绝对值
    Console.WriteLine("请输入一个负数值")
    Dim minus As Integer = Console.ReadLine()
    Console.WriteLine(Abs(minus))
    Console.ReadLine()

    '保留小数
    Console.WriteLine("请输入一个小数")
    Dim decimals As Decimal = Console.ReadLine()
    Console.WriteLine(Round(decimals, 1, MidpointRounding.ToEven))
    Console.ReadLine()

    'sin  cos  tan 
    Console.WriteLine("请输入一个数值")
    Dim sins As Double = Console.ReadLine()
    Console.WriteLine(Sin(sins))
    Console.ReadLine()

    'sign 符号判断
    Dim signs As Double
    Do
        Console.WriteLine("请输入一个数值")
        signs = Console.ReadLine()
        Console.WriteLine(Sign(signs))
        Console.ReadLine()
    Loop Until (signs = 0)


End Sub

End Module