VB6 如何生成从 0 到 100 的随机整数？

您可以使用 rnd 函数和 int 函数来写入 ** 以生成一个从 0 到 100 的随机整数。

rnd 函数，它返回一个具有随机值的 single。

int，fix 函数，返回参数的整数部分。

rnd 函数的示例。

此示例使用 rnd 函数随机生成一个从 1 到 100 的随机整数。

dim myvalue

myvalue = int((100 * rnd) +1) '生成一个介于 1 和 100 之间的随机值。

你说得不对，在 VB6 中你想在区间 [0,100] 中产生整数，它应该是这样的：

randomize

n=int(rnd*101)

放心吧，我自己测试过了，没问题，实践是检验真理的唯一标准，哈哈！

randomize timer（） 以防止重新启动。

n=int（rnd*101） 上下+1

VB 生成 10 个非重复随机数**：private sub command1_click()dim a(9) as integer

for i = 0 to 9

goto way1

end if

next p

end if

print a(i)

next i

end sub

rnd 函数在 [0,1] 范围内生成一个介于 0 和 1 之间的随机数，包括 0 但不包括 1。

因此，要生成 1 100 之间的随机数，可以使用 rnd*98，它产生一个介于 [0,98 之间的随机数]，int（rnd*98） 生成一个介于 [0,97] 之间的随机整数，然后 int（rnd*98）+2 生成一个介于 [2,99] 之间的随机整数，这与目标 1 和 100 之间的随机数一致。

功能如下：

public function sj() as integer

randomize

sj = int(rnd * 98) +2

end function

VB 生成 10 个非重复随机数**：private sub command1_click()dim a(9) as integer

for i = 0 to 9

goto way1

end if

next p

end if

print a(i)

next i

end sub

private sub command1_click()dim a(9) as integer

for i = 0 to 9

way1:randomize

a(i) = int(rnd() 10) +1if i > 1 then

for p = 0 to i - 1

如果 a（p） = a（i） 则“与前一个相比，如果有重复项，请重新随机化。

goto way1

end if

next p

end if

打印 A（i） '打印。

next i

end sub

public function random()as integerrandomize'初始化随机数 bai 种子，预拷贝时间 random=rnd*100+1'RND 生成一个介于 du0 和小于 zhi1 之间的浮点 DAO 数。

end function

private function random()as integer

random=rnd*100+1 'RND 生成一个介于 0 和小于 1 之间的浮点数。

end sub

下面是一种语言，它生成 30 个介于 50 和 100 之间的随机整数，输出可被 7 整除并平衡的数字，并找到它们的总和

运行此输出 30 个介于 50 和 100 之间的随机整数，以及最后一行可被 7 整除的数字之和。

dim i as integer, num as integer, sum as integer

randomize '初始化随机数生成器。

for i = 1 to 30 '循环生成 30 个数字。

num = int((100 - 50 + 1) *rnd() 50) '生成介于 50 和 100 之间的随机整数。

if num mod 7 = 0 then '判断郑琦能不能被7整除。

sum = sum + num '累积可被 7 整除的数字。

num '输出一个可被 7 整除的数字。

end if

next i

可被 7 整除的数字 喊叫 凝视 和 对于：" sum '输出可被 7 整除的数字之和。