VB中怎么统计随机十组随机数数组后第一位出现最多的某个数字

Private Sub Command1_Click()
Dim a(10, 6) As String * 2, b(30) As Integer
Dim max As Integer, maxi As Integer, maxj As Integer
Randomize
For i = 1 To 6
Print "第" & i & "位 ";
Next i
Print
For i = 1 To 10
For j = 1 To 6
a(i, j) = Format(Int(30 * Rnd() + 1), "00")
Print " "; a(i, j); " ";
Next j
Print
Next i
For i = 1 To 6
For j = 1 To 30
b(j) = 0
Next j
For j = 1 To 10
t = Val(a(j, i))
b(t) = b(t) + 1
Next j
For j = 1 To 30
If b(j) > max Then
max = b(j): maxi = i: maxj = j
End If
Next j
Next i
Print
Print max, maxi, maxj
Print "第"; maxi; "位的 "; Format(maxj, "00"); " 出现最多。"

End Sub

Private Sub Command2_Click()
Cls
End Sub

Private Sub Form_Click()
Cls
Randomize
Dim a(0 To 9)
Print "随机生成的10个数字为："
For i = 0 To 9
a(i) = Int(Rnd * 301 + 100)
Print a(i) & " ";
Next
For i = 9 To 1 Step -1
For j = 0 To i - 1
If a(j) > a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j
Next i
Print
Print "递增输出的结果是："
For j = 0 To 9
Print a(j) & " ";
Next
End Sub

Private Sub Command1_Click()
Dim Nrep(100) As Integer
Dim a As Integer
Randomize
For i = 1 To 100
a = Int(Rnd * 100 + 1)
Nrep(a) = Nrep(a) + 1
Debug.Print a;
Next
Debug.Print
For i = 1 To 100
If Nrep(i) = 3 Then Print i;
Next i
Print
End Sub

BTW， 楼上求得是出现4次的结果。

Dim a(100) As Integer
Private Sub Command1_Click()
Dim n As Integer, m As Integer
For i = 1 To 100
For m = i + 1 To 100
If a(i) = a(m) Then n = n + 1
Next m
If n = 3 Then
Print a(i)
End If
n = 0
Next i
End Sub
Private Sub Form_Load()
Randomize
For i = 1 To 100
a(i) = Int(Rnd * 100 + 1)
Next
End Sub

int(rand100)+1

用matlab随机产生60个1到365之间的正整数,应该使用下面的哪一条命令...
系统产生一个0到1的实随机数,然后乘以所设的最大的可能随机数,然后就得到0到10,100,..,等等的实随机数;整数随机数就是这些实随机数取整后得到的.rand() （0,1）均匀分布随机矩阵 randn() 标准正态分布矩阵 randint(c,d [a ，b]) 随机整数矩阵 ...

VB,如何随机产生三个整数
没要求范围更好呀：Private Sub Form_Click()Dim A As Integer, B As Integer, C As Integer Form1.AutoRedraw = True Randomize A = Int(Rnd * 100 + 1)B = Int(Rnd * 100 + 1)C = Int(Rnd * 100 + 1)Print "随机产生的三个整数是："; A; B; C End Sub 已经运行过。

随机生成【1,100】之间的10个整数存放在数组中。
include<stdio.h> include<time.h> include<stdlib.h> define SIZE 10 main(){ int ary[SIZE],i=0,j=0,k,n,m;time_t t;srand((unsigned)time(&t));\/\/随机数的产生与系统时间有关 for(i=0;i<SIZE;i++) \/\/输出生成数结果 { ary[i]=rand()%100+1;printf("The unifrom rand...

用vb编程实现随机产生一个100到999之间的随机数,并将此数逆序输出
这种方法用途之一就是用于加密和解密。为了生成某个范围内的随机整数，可使用以下公式：Int((upperbound - lowerbound + 1) * Rnd + lowerbound)这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限。注意：若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接...

假设每个人在任何一个月出生是等可能的,利用随机模拟的方法,估计在一个...
①建立概率模型首先要模拟每个人的出生月份，可用1，2，…，11，12表示月份，用产生取整数值的随机数的办法，随机产生1～12之间的随机数，由于模拟的对象是一个有10个人的集体，故把连续产生的10个随机数作为一组模拟结果，可模拟产生100组这样的结果 ②进行模拟试验．可用计算器或计算机进行模拟试验。

C语言中,从1～100这100个整数中,随机选择1个,并赋予a,怎么写?
要用到标准库里随机数函数，include<stdio.h> include<stdlib.h> include <stdio.h> include <time.h> \/*需引用的头文件*\/ int main(void){ srand((unsigned)time(NULL)); \/*定义随机种子保证每次产生的随机数都不一样*\/ int n = rand() % (100- 0 ) + 1; \/*n为X~Y之间的随机数...

C语言编程:试用随机函数产生20个〔100,1000〕之间的整数,并按从小到大...
\/\/调用rand()产生随机数返回 } \/\/下面是测试结果 684,564,627,559,531,444,825,300,197,553,944,463,329,743,873,793,453,924,236,987,197,236,300,329,444,453,463,531,553,559,564,627,684,743,793,825,873,924,944,987,请按任意键继续. . .看看还行吗？用VC调试的 ...

随机产生20个【10,99】以内整数,由大到小输出这20个数
include<stdio.h> include<stdlib.h> int main(){int a[100]={0},x,i,j;srand((unsigned) time(NULL)); \/\/用时间做种子，每次产生随机数不一样 for(i=0;i<20;i++){ x=rand()%90+10; \/\/产生10-99的随机数;a[x]++;} for(i=99;i>=0;i--)\/\/从大到小输出 for(j=0;...

VB编程:随机生成10个互不相同的1~100之间的整数,存放在一维数组中,找出...
S(i) = Int(Rnd * 100) + 1 If i = 0 Then Max = S(i) ElseIf Max < S(i) Then Max = S(i) End If Debug.Print Max & " " & S(i)Next i 删除的我没有写，你自己扩展吧。。最大的数保存的MAX 中。S(i)随机数保存的数组 ...

pascal中如何产生随机数
如要产生整数a~b(a<b)之间的随机整数，可以使用x:=random(b-a+1)+a;for i:=1 to n do write(random(101),' '); 可产生0~100之间的随机整数。但是这样的程序段，多次运行的结果是完全一样的。如要使每次运行产生不同的随机数序列，可以在使用随机函数之前，用系统时钟初始化随机数发生...