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

vB随机生成1到100随机数

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

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

先把Text1的MultiLine属性设为True,这样文本框才能进行换行 Private Sub Command1_Click() Text1 = "" '清空Text1中的现有文本 Dim score(1 To 20) As Integer, i As Integer, j As Integer For i = 1 To 20 '用随机函数给数组score()赋100以内

private sub form_load()dim ifor i=0 to 19rendomizetext1(i).text=int(rnd*100)+1nextend sub

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

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

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

你可以把你的代码发出来我们参考下看看那些地方可以给你改下,要不想出来的思路和你的一样,,还是白干,

你们说的不对,在VB6中要产生区间[0,100]内的整数,应该是这样:Randomizen=Int(Rnd*101)放心,我自己测试过了,没问题,实践是检验真理的唯一标准,哈哈!

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

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