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的整数.

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

一、要产生1到100之间的随机数,首先了解Rnd函数的用法,Rnd函数产生的是0和1之间的随机数,范围是[0,1),包括0,但不包括1.因此要产生1~100之间的随机数,可以使用Rnd*98,产生的是[0,98)的随机数,而int(Rnd*98)产生的是[0,

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

正在做,请稍等 已经做完了,不需要控件,代码如下:Private Sub Form_Load() Dim A(100) As Integer, B(100) As Integer Dim I As Integer, J As Integer, K As Integer Form1.AutoRedraw = True Randomize For I = 1 To 100 A(I) = I

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

Private Sub Command2_Click() Randomize Print Int(Rnd * 100)End Sub

因为你Text1.text=Int(rnd*100+1)是赋值语句,每次讲产生的随机数赋值给文本框,所以文本框每次显示一个数值,如果要保留文本框前面的数值,并且每次点击多显示一个则要用到静态变量private sub Command1_Click dim n as static '定义一个静态变量n,能够保留上一次调用的值 n=n & Int(rnd*100+1) &" " '产生一个随机数,连接到n变量后,再连接一个“ ”空格字符,好看一些 Text1.text =nend sub或者你把n定义在窗体的通用声明处,作为窗体级变量,Dim n as string

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

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