vb.net如何输入小数,vb 小数位数

VB.NET怎样实现某一范围内的随即小数?例如2.1到3.4之间。

可以用Rnd函数实现

Rnd 函数返回小于 1 但大于或等于 0 的值。

为了生成某个范围内的随机整数，可使用以下公式：

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。

你这里可以先把范围扩大10倍，看成21到34之间的随机数，最后再除以10就行了。

Int((34 - 21 + 1) * Rnd + 21) / 10

相关问答

Q1: vb.net如何保留三位非零数

方法如下：

方法一：

保留三位整数：

Dim X As Single

X = Val(InputBox("输入一个任意实数！"))

Print Format(X, "000")

保留三位小数：

Dim X As Single

X = Val(InputBox("输入一个任意实数！"))

Print Format(X, ".000")

方法二：

用Format函数，比如通过text输入，转换后在窗体打印：Private Sub Command1_Click()

n = Text1.Text

t = Format(n, "000.###")

Print t

End Sub

Q2: 怎么在vb中输出固定小数位数的数字？

方法一：

用Round函数，语法 ：

ROUND(number,num_digits)

Number 需要进行四舍五入的数字。 Num_digits 指定的位数,按此位数进行四舍五入。

示例：

'Round(需要修改的数字,小数位数)

Print Round(3.1415926, 3)

显示：3.142

方法二：

用Format函数，返回Variant(String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。

语法

Format(expression[,format[,firstdayofweek[,firstweekofyear]]])

Format函数的语法具有下面几个部分：

示例：

'Round(需要修改的数字,小数位数)

Print format (3.1415926, "#,###")

显示：3.142

方法三：

1、打开VB6.0软件，新建一个标准exe工程；

2、在设计界面上新建一个Command控件；

3、双击Command1控件，进入代码编辑界面，输入代码：

Private Sub Command1_Click()

Dim res As Double

res = Format(1 / 3, "0.000")

Print res;

End Sub

4、运行工程，单击按钮，可以看到数据被保留三位小数；

5、总结，想要保留几位小数，直接设置即可，如想设置保留5位小数，设置如下：

format(1/3,"0.00000")

Q3: 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("请输入一个小数：")

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

Q4: VB.NET 控制输入的是整数还是小数

此单元格设置了单元格的“数据在效性”。 “数据有效性”功能是对用户的输入行为，做出某种限制的方法。 此功能是在菜单“数据”下，点击“有效性”选项，在弹出的选项卡中，可见具体可以设置的条件。