锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net求商 vb求和代码怎么写

IT技术lt

vb.net 输入一个小数 求能得到这个商的最小的整数除数和最小整数被除数Option Explicit On
Option Strict On
Imports System
Module Program
Sub Main()
Dim s As String
Dim strs As String()
Dim fz,fm,n,m,t As Long
Console.Write("请输入一个小数vb.net求商：")
s=Console.ReadLine().Trim()
strs=s.Split("."C)
fz=CLng(strs(0))
fm=CLng(Math.Pow(10,strs(1).Length))
fz=fz*fm+CLng(strs(1))
n=fz
m=fm
While n Mod m0
t=n Mod m
n=m
m=t
End While
fz\=m
fm\=m
Console.WriteLine("{0}={1}/{2}",s,fz,fm)
Console.Write("Press any key to continue . . . ")
Console.ReadKey(True)
End Sub
End Module
vb.net中 / \ 有区别么这两个作为数值运算除法的区别：
1，/ ----就是通常数值的除法运算，例如：
8 / 2 的结果是4
6 / 5 的结果为 1.2
2，\ ----也是作数值的除法运算，但是返回的仅仅是商的整数部分，例如：
8 \ 2 的结果是 4
6 \ 5 的结果为 1
15 \ 4 的结果为 3
20 \ 3 的结果为 6
VB.net编写一个控制台应用程序用来从键盘上输入两个数然后输出这两个数的和差积商应该定义为double或者single，string类好像不能进行运算 。我简单说一下控制台的方法 ， 你要一次性输入和差积商 ， 首先声明两个变量用来储存两个数，然后用算法一次性输出结果就ok 。
Sub Main()
Dim FN As Single
Dim SN As Single
Dim ResultNum As Single
Console.WriteLine("请输入第一个数") : FN = Console.ReadLine
Console.WriteLine("请输入第二个数") : SN = Console.ReadLine
ResultNum = FN + SN
Console.WriteLine("它们的和: "ResultNum)
ResultNum = FN - SN
Console.WriteLine("它们的差: "ResultNum)
ResultNum = FN * SN
Console.WriteLine("它们的积: "ResultNum)
ResultNum = FN / SN
Console.WriteLine("它们的商: "ResultNum)
Console.ReadLine()
End Sub
【vb.net求商 vb求和代码怎么写】vb.net求商的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb求和代码怎么写、vb.net求商的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：安卓手机面容不如苹果，苹果面容识别和安卓面容识别那个更先进呢?

    下一篇：视频号直播橱窗排序，视频号 橱窗