vb.net随机函数 VB随机函数公式

VB.Net中关于随机函数的问题

Dim num, counter As Integer

崇义ssl适用于网站、小程序/APP、API接口等需要进行数据传输应用场景，ssl证书未来市场广阔！成为创新互联建站的ssl证书销售渠道，可以享受市场价格4-6折优惠！如果有意向欢迎电话联系或者加微信：028-86922220（备注：SSL证书合作）期待与您的合作！

numbers = ""

For I = 1 To N

Sz(I) = N

Next I

For counter = 1 To M

Randomize

Do

Si = False

num = Int(Rnd * N) + 1

If Sz(T) 0 Then

X(I) = Sz(T)

Sz(T) = 0

Si = True

End If

Loop Until (Si = True)

numbers = numbers CStr(num) vbCrLf

Next

TextBox3.Text = numbers

增加一个判断过程，我修改了一下前几天给别人写的那个方法，你可以尝试一下：）

VB.NET中函数Rnd能够返回什么的随机数

返回大于等于0小于1之间的随机数。

Visual Basic中随机函数

格式：Rnd(数值表达式)

功能：求[0,1)之间的一个随机数

语法：

Rnd[(number)]

如果 number 的值是 Randomize 生成

小于 0 ，每次都使用 number 作为随机数种子得到的相同结果。

大于 0 ，以上一个随机数为种子产生下一个随机数。

等于 0 ，产生与最近生成的随机数相同的随机数。

省略， 以上一个随机数为种子产生下一个随机数。

说明

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

number 的值决定了 Rnd 生成随机数的方式。

对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。

在调用 Rnd 之前，先使用无参数的 Randomize语句初始化随机数生成器（若带参数，则产生由参数对应的一个特定序列的随机数），该生成器具有根据系统计时器得到的种子。

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

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

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

注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。

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程序，利用随机函数产生100个1到100之间的整数，求其中的最大最小值。

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Randomize() '产生随机数种子 以防止每次生成结果都一样

Dim a(100) As Integer '声明数组存放数据 用来保存随机数结果

Dim max As Integer, min As Integer '声明两个变量存最大值和最小值

min = 1000 : max = 0 '设置初值

For i = 0 To 99 '循环100次

a(i) = Int(Rnd() * 1000 + 1) '用rnd生成一个随机数 由于rnd范围为0-1之间的小数.所以*1000设置他的范围为0到999之间 加1变成1到1000之间

If a(i) = max Then max = a(i) '如果当前数值大于最大值的变量就保存

If a(i) = min Then min = a(i) '如果当前数值小于最小值的变量就保存

Next

MsgBox("最大值为" max)

MsgBox("最小值为" min)

End Sub