VB.NET如何实现生成两位小数的随机数?

2026-05-06 08:381阅读0评论SEO资源
  • 内容介绍
  • 文章标签
  • 相关推荐

本文共计174个文字,预计阅读时间需要1分钟。

VB.NET如何实现生成两位小数的随机数?

vbDim prng As New Random()Dim randomNumber As Double=prng.NextDouble() * 6randomNumber=Math.Round(randomNumber, 2)

blah = CInt(Int((7 * Rnd()) + 0))

生成0到6之间的随机整数.

如何修改它给我一个带有2位小数的随机数,仍然在0到6之间?

如下所示,我现在使用此代码,它似乎工作:

Dim prng As New Random Private Function aRand() As Double Return Math.Round(prng.Next(0, 601) / 100, 2) End Function currentApp.statements(Pick, 7) = aRand() currentApp.statements(Pick, 8) = aRand()

感谢所有的建议.

像这样

Dim prng As New Random Private Function aRand() As Double Return prng.Next(0, 601) / 100 End Function

注意随机的位置.

VB.NET如何实现生成两位小数的随机数?

你的代码看起来像

currentApp.statements(Pick, 7) = aRand() currentApp.statements(Pick, 8) = aRand()

本文共计174个文字,预计阅读时间需要1分钟。

VB.NET如何实现生成两位小数的随机数?

vbDim prng As New Random()Dim randomNumber As Double=prng.NextDouble() * 6randomNumber=Math.Round(randomNumber, 2)

blah = CInt(Int((7 * Rnd()) + 0))

生成0到6之间的随机整数.

如何修改它给我一个带有2位小数的随机数,仍然在0到6之间?

如下所示,我现在使用此代码,它似乎工作:

Dim prng As New Random Private Function aRand() As Double Return Math.Round(prng.Next(0, 601) / 100, 2) End Function currentApp.statements(Pick, 7) = aRand() currentApp.statements(Pick, 8) = aRand()

感谢所有的建议.

像这样

Dim prng As New Random Private Function aRand() As Double Return prng.Next(0, 601) / 100 End Function

注意随机的位置.

VB.NET如何实现生成两位小数的随机数?

你的代码看起来像

currentApp.statements(Pick, 7) = aRand() currentApp.statements(Pick, 8) = aRand()