博客
关于我
实例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 1264_关于mysql 出现 1264 Out of range value for column 错误的解决办法
查看>>
mysql 1593_Linux高可用(HA)之MySQL主从复制中出现1593错误码的低级错误
查看>>
mysql 5.6 修改端口_mysql5.6.24怎么修改端口号
查看>>
MySQL 8.0 恢复孤立文件每表ibd文件
查看>>
MySQL 8.0开始Group by不再排序
查看>>
mysql ansi nulls_SET ANSI_NULLS ON SET QUOTED_IDENTIFIER ON 什么意思
查看>>
multi swiper bug solution
查看>>
MySQL Binlog 日志监听与 Spring 集成实战
查看>>
MySQL binlog三种模式
查看>>
multi-angle cosine and sines
查看>>
Mysql Can't connect to MySQL server
查看>>
mysql case when 乱码_Mysql CASE WHEN 用法
查看>>
Multicast1
查看>>
mysql client library_MySQL数据库之zabbix3.x安装出现“configure: error: Not found mysqlclient library”的解决办法...
查看>>
MySQL Cluster 7.0.36 发布
查看>>
Multimodal Unsupervised Image-to-Image Translation多通道无监督图像翻译
查看>>
MySQL Cluster与MGR集群实战
查看>>
multipart/form-data与application/octet-stream的区别、application/x-www-form-urlencoded
查看>>
mysql cmake 报错,MySQL云服务器应用及cmake报错解决办法
查看>>
Multiple websites on single instance of IIS
查看>>