博客
关于我
实例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/

你可能感兴趣的文章
Moment.js常见用法总结
查看>>
MongoDB出现Error parsing command line: unrecognised option ‘--fork‘ 的解决方法
查看>>
mxGraph改变图形大小重置overlay位置
查看>>
MongoDB学习笔记(8)--索引及优化索引
查看>>
MQTT工作笔记0009---订阅主题和订阅确认
查看>>
ms sql server 2008 sp2更新异常
查看>>
MS UC 2013-0-Prepare Tool
查看>>
msbuild发布web应用程序
查看>>
MSB与LSB
查看>>
MSCRM调用外部JS文件
查看>>
MSCRM调用外部JS文件
查看>>
MSEdgeDriver (Chromium) 不适用于版本 >= 79.0.313 (Canary)
查看>>
MsEdgeTTS开源项目使用教程
查看>>
msf
查看>>
MSSQL数据库查询优化(一)
查看>>
MSSQL日期格式转换函数(使用CONVERT)
查看>>
MSTP多生成树协议(第二课)
查看>>
MSTP是什么?有哪些专有名词?
查看>>
Mstsc 远程桌面链接 And 网络映射
查看>>
Myeclipse常用快捷键
查看>>