博客
关于我
实例002变量的数学运算(2)
阅读量:194 次
发布时间:2019-02-28

本文共 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/

你可能感兴趣的文章
mysql 删除日志文件详解
查看>>
mysql 判断表字段是否存在,然后修改
查看>>
MySQL 到底能不能放到 Docker 里跑?
查看>>
mysql 前缀索引 命令_11 | Mysql怎么给字符串字段加索引?
查看>>
mysql 协议的退出命令包及解析
查看>>
mysql 取表中分组之后最新一条数据 分组最新数据 分组取最新数据 分组数据 获取每个分类的最新数据
查看>>
mysql 四种存储引擎
查看>>
MySQL 基础模块的面试题总结
查看>>
MySQL 备份 Xtrabackup
查看>>
mysql 多个表关联查询查询时间长的问题
查看>>
mySQL 多个表求多个count
查看>>
mysql 多字段删除重复数据,保留最小id数据
查看>>
MySQL 多表联合查询:UNION 和 JOIN 分析
查看>>
MySQL 大数据量快速插入方法和语句优化
查看>>
mysql 如何给SQL添加索引
查看>>
mysql 字段区分大小写
查看>>
mysql 字段合并问题(group_concat)
查看>>
mysql 字段类型类型
查看>>
MySQL 字符串截取函数,字段截取,字符串截取
查看>>
MySQL 存储引擎
查看>>