mdsk.net
当前位置:首页 >> vB中生成1到100的随机整数 >>

vB中生成1到100的随机整数

VB生成抄1-100之间的随机整数,可以使袭用系统自带的Rnd()方法进行2113实现,代码如下:Private Sub Command_Click() Dim MyValue //定义一个随机数5261 MyValue = Int((100 * Rnd) + 1) //rnd()函数生成随4102机数 Print MyValue //打印出这个随机数 End Sub Private Sub Form_Load() Randomize //初始化随机数生成器1653 End Sub

VB6.0可使用Rnd函数和Int函数编写代码生成一个随机的0到100的整数.

dim a(10) as integer randomize for i=1 to 10 a(i)=int(100*rnd)+1 next i

一个Command1控件,一个text1控件Private Sub Command1_Click() Text1.Text = Int(100 * Rnd()) + 1End Sub

dim a(1 to 100) as double for i = 1 to 100 a(i) = int(rnd * 1000000000 + 1) next i 产生100个1到1000000000的随机整数

1,产生随机数,保存到指定的数组.2,输入一个数,采用对分查找的方法,在上面的数组里找寻.

private sub command1_click() for i = 1 to 20 randomize text1 = text1 & space(1) & int(rnd * 100 + 1) next end sub private sub command2_click() on error resume next t = split(text1, " ") for j = 0 to ubound(t) - 1 if t(j) mod 2 <> 0 then text2 = text2 & t(j) & space(1) next end sub

产生随机数可以用RND语句,这个语句可以产生0~1的随机数,只要稍微处理已经下即可,可以这样打:x=int(100*RND())print x其中int是取整语句,print是输出

For i = 1 To 100 Randomize Print Int(Rnd * 99 + 1); If i Mod 10 = 0 Then Print Next

首先介绍Int和Randomize.Int语法格式:Int((upperbound - lowerbound + 1) * Rnd + lowerbound)这里,upperbound 是随机数范围的上限,而 lowerbound 则是随机数范围的下限.为了在不同的运行时能得到不同的随机整数,可以在使用Rnd函

网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com