本文共 711 字，大约阅读时间需要 2 分钟。

创建一个控制台程序

Module Module1

    Sub Main()

        Dim x1 As Double, x2 As Double         Dim y1 As Double

        Console.WriteLine("输入两个数，计算x1的x2次方")

        x1 = InputBox("输入x1", "乘方运算的底数")         x2 = InputBox("输入x2", "乘方运算的指数")         y1 = Math.Pow(x1, x2)         MsgBox(y1, MsgBoxStyle.Information, "乘方运算结果")

        Console.WriteLine("输入两个数，计算以x1为底,以x2为指数")

        x1 = InputBox("输入x1", "对数运算的底数")         x2 = InputBox("输入x2", "对数运算的真数")         y1 = Math.Log(x2) / Math.Log(x1)         MsgBox(y1, MsgBoxStyle.Information, "对数运算结果")

        x1 = InputBox("输入一个数", "求绝对值")

        y1 = Math.Abs(x1)         MsgBox(y1, MsgBoxStyle.Information, "对绝对值")

        Console.WriteLine("输入一个数，计算大于该数的最小整数")

        x1 = InputBox("输入一个数", "计算大于该数的最小整数")         y1 = Math.Ceiling(x1)         MsgBox(y1, MsgBoxStyle.Information, "计算结果")

        Console.Read()

    End Sub

End Module

 

转载地址：http://jwgn.baihongyu.com/