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
网站栏目:vb.net随机函数 VB随机函数公式
当前路径:http://pwwzsj.com/article/hgeoos.html