VB随机产生一个M×N二维数组(M,N缺省为4,数组元素为100以内的正整数),计算其随机产生一个M×N二维数组(M,N缺省为4,数组元素为100以内的正整数),计算其所有元素中0-9出现的次数.
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/27 17:52:08
![VB随机产生一个M×N二维数组(M,N缺省为4,数组元素为100以内的正整数),计算其随机产生一个M×N二维数组(M,N缺省为4,数组元素为100以内的正整数),计算其所有元素中0-9出现的次数.](/uploads/image/z/11626331-59-1.jpg?t=VB%E9%9A%8F%E6%9C%BA%E4%BA%A7%E7%94%9F%E4%B8%80%E4%B8%AAM%C3%97N%E4%BA%8C%E7%BB%B4%E6%95%B0%E7%BB%84%EF%BC%88M%2CN%E7%BC%BA%E7%9C%81%E4%B8%BA4%2C%E6%95%B0%E7%BB%84%E5%85%83%E7%B4%A0%E4%B8%BA100%E4%BB%A5%E5%86%85%E7%9A%84%E6%AD%A3%E6%95%B4%E6%95%B0%EF%BC%89%2C%E8%AE%A1%E7%AE%97%E5%85%B6%E9%9A%8F%E6%9C%BA%E4%BA%A7%E7%94%9F%E4%B8%80%E4%B8%AAM%C3%97N%E4%BA%8C%E7%BB%B4%E6%95%B0%E7%BB%84%EF%BC%88M%2CN%E7%BC%BA%E7%9C%81%E4%B8%BA4%2C%E6%95%B0%E7%BB%84%E5%85%83%E7%B4%A0%E4%B8%BA100%E4%BB%A5%E5%86%85%E7%9A%84%E6%AD%A3%E6%95%B4%E6%95%B0%EF%BC%89%2C%E8%AE%A1%E7%AE%97%E5%85%B6%E6%89%80%E6%9C%89%E5%85%83%E7%B4%A0%E4%B8%AD0-9%E5%87%BA%E7%8E%B0%E7%9A%84%E6%AC%A1%E6%95%B0.)
VB随机产生一个M×N二维数组(M,N缺省为4,数组元素为100以内的正整数),计算其随机产生一个M×N二维数组(M,N缺省为4,数组元素为100以内的正整数),计算其所有元素中0-9出现的次数.
VB随机产生一个M×N二维数组(M,N缺省为4,数组元素为100以内的正整数),计算其
随机产生一个M×N二维数组(M,N缺省为4,数组元素为100以内的正整数),计算其所有元素中0-9出现的次数.
VB随机产生一个M×N二维数组(M,N缺省为4,数组元素为100以内的正整数),计算其随机产生一个M×N二维数组(M,N缺省为4,数组元素为100以内的正整数),计算其所有元素中0-9出现的次数.
一下代码!你参考一下!
Private Sub Command1_Click()
Cls
Dim a() As Integer '定义一个动态数组
Dim b(10) As Integer '用于统计
Randomize
n = 4:m = 4
ReDim a(m,n) '重定义数组
For i = 1 To m
For j = 1 To n
a(i,j) = Rnd * 100 '赋值
Print a(i,j);
Next
Print
Next
For i = 1 To m
For j = 1 To n
For t = 0 To 9 '数组元素中查找0~9的数字
If a(i,j) = t Then b(t) = b(t) + 1
Next
Next
Next
For i = 0 To 9
Print m; "*"; n; "的数组中"; i; "出现"; b(i); "次"
Next
End Sub