vb.net随机小数点,随机小数点函数
vb.net产生随机数
方法名称:next();功能描述:返回一个0~2147483647之间的整数
为绥芬河等地区用户提供了全套网页设计制作服务,及绥芬河网站建设行业解决方案。主营业务为成都网站设计、网站建设、外贸网站建设、绥芬河网站设计,以传统方式定制建设网站,并提供域名空间备案等一条龙服务,秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求,就会得到认可,从而选择与我们长期合作。这样,我们也可以走得更远!
方法名称:next(i);功能描述:返回一个0~i之间的整数
方法名称:next(i,j);功能描述:返回一个i~j之间的整数
方法名称:Nextdouble();功能描述:返回一个0~1之间的随机小数
================
使用方法:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim rand = New System.Random()
MsgBox(rand.next().ToString())
End Sub
==========================
产生N个不同数的话,我给你个我写的VB的代码,你稍微改下:
产生0-10的数:
Private Sub Command1_Click()
Randomize
Dim a(10) As Long
n = 10
For i = 0 To n
a(i) = Int(Rnd() * (n + 1))
For j = 0 To i - 1
If a(i) = a(j) Then
i = i - 1
Exit For
End If
Next
Next
For i = 0 To n
Print a(i)
Next
End Sub
vb.net随机函数生成~!
//太蛋疼了,我没注意到是vb.net,写成C#的了。。。。
//也许不是太完美,但功能上还是实现了
//protected void Timer1_Tick(object sender, EventArgs e)
//{
// Random rnd = new Random((int)DateTime.Now.Ticks);
// double result = rnd.NextDouble() * 3.0;
// if (result 1.1)
// {
// result += 1.1;
// }
// Label1.Text = string.Format("{0:0.0}", result);
//}
'下面这个就是VB.NET的了
Protected Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Randomize()
Dim result As Single = Rnd() * 3.0
If (result 1.1) Then
result += 1.1
End If
Label1.Text = String.Format("{0:0.0}", result)
End Sub
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
vb程序中如何随机产生小数
用RND函数就可以啊,他可以随机产生0到1之间的所有数,你可以按自己的需要加减乘除一些数,从而得到想要的一定范围的数啊
另外你还可以通过使用Format()函数得到小数点后带几位小数的小数,希望可以帮到你
文章名称:vb.net随机小数点,随机小数点函数
网站网址:http://scyanting.com/article/hsooph.html