VB.用随机函数产生100个【0,99】范围内的随机整数,统计个位上的数字为0，1,2.。。9的元素个数（使用数组

急！！求 !!亲们！！

推荐答案 2012-03-30

Dim m(99) As Integer, n(9) As Integer, i As Integer, k As Integer
Randomize
For i = 0 To 99
m(i) = Int(Rnd * 100)
Print m(i);
k = m(i) Mod 10
n(k) = n(k) + 1
Next
Print
For i = 0 To 9
Print "个位数为" & i & "的数有" & n(i) & "个"
Next

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/D9ppx9Upp.html

其他回答

第1个回答 2012-03-30

for i=0 to 99
x=rnd(99)
n=x/10
a(n)=a(n)+1
next

相似回答

vb.net程序,利用随机函数产生100个1到100之间的整数,求其中的最大最小...答：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...

用vb编程实现随机产生一个100到999之间的随机数,并将此数逆序输出答：VBA编程实现不重复随机数输出。VBA里的随机函数是RND，在工作表中随机函数是RAND，一字之差，可要记好了。RND取值范围是[0,1)，意思是0和1之间的一个随机数，包含0，但不包含1。1、用法语法：Rnd[(number)]如果 number 的值是 Randomize 生成小于 0 ，每次都使用 number 作为随机数种子得到的相...

VB编程题:编写一个产生1 至100之间的随机整数的Function 过程_百度...答：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之间的随机数目的。函数代...

利用随机函数产生100-999范围内的一个正整数用vb表达式答：Int(900 * Rnd + 100)

VB利用随机函数产生100个100~255(包括100和255)范围内的随机数,显示它...答：Private Sub Command1_Click()Me.Cls Print "100个随机数："Randomize For i = 1 To 100 a(i) = Int((Rnd() * (255 - 100 + 1)) + 100)sum = sum + a(i)Print a(i);If i Mod 10 = 0 Then Print Next i Print End Sub Private Sub Command2_Click()max = a(1): min...

VB中随机函数的用法答：1 但大于或等于 0 的值。2）Int 函数，返回参数的整数部分。语法：Int(number)Int 会删除 number 的小数部份而返回剩下的整数。3）Rnd 函数示例：本示例使用 Rnd 函数随机生成一个 1 到 6 的随机整数。Dim MyValueMyValue = Int((6 * Rnd) + 1) ' 生成 1 到 6 之间的随机数值。

大家正在搜

VBA产生随机数的函数生成0到1之间的随机数的函数利用随机函数产生20个具有产生随机数功能的函数是 VB随机函数的应用产生0或1的随机数 c语言产生0到1的随机数 vb随机函数10～100 用vb产生随机数