题目
VB随机产生一个M×N二维数组(M,N缺省为4,数组元素为100以内的正整数),计算其
随机产生一个M×N二维数组(M,N缺省为4,数组元素为100以内的正整数),计算其所有元素中0-9出现的次数.
随机产生一个M×N二维数组(M,N缺省为4,数组元素为100以内的正整数),计算其所有元素中0-9出现的次数.
提问时间:2022-01-07
答案
一下代码!你参考一下!
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
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
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
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
1,人们染上烟瘾,最终因吸烟使自己丧命.
最新试题
- 1一个正方体的顶点都在球面上,它的棱长为2cm,则球的表面积是( ) A.8πcm2 B.12πcm2 C.16πcm2 D.20πcm2
- 2华东师大版高一数学一课一练p12页第10题.
- 3已知x满足不等式-3≤log1/2x≤-1/2,求函数f(x)=(log2x/4)•(log2x/2)的最大值和最小值.
- 4夸父追日文言文
- 5求助关于泡利不相容原理
- 6七分之三×四分之一+五分之二×四分之三 5-(十二分之五-十六分之五)÷四十八分之二十五 (以上题能简算就简算)
- 7如果一个物体放在超高速运行的传送带上,传送带速度为v,动摩擦因数为μ,
- 8AABC式词语 ()()相对
- 9英语翻译
- 10省略号在句子中有什么意义
热门考点
- 1用所给词的正确形式填空 1.What__________you________(do) tom
- 2应该是interesting something还是something interesting
- 3请问英语辅音音标中哪些是清辅音,哪些是浊辅音?想要一个标准的答案,
- 4lg2为a lg3为b 试用ab表示log12(5) log12(5) =lg5/lg12 =(1-lg2)/(2lg2+lg3) =(1-a)/(
- 5为什么生物进化不可逆?
- 6英语翻译
- 7关于孝的故事和古诗、名言加意思
- 8成语馋诞欲滴的意思是什么
- 9某人家住T市在他乡工作,每天下班后乘火车于6:00抵达T市车站,他妻子驾车准时到车站接他回家.一日他提前下班并于5:30抵达T市车站,随即步行回家,他的妻子像往常一样驾车前来,在半路上遇到他,即接他回
- 10HI,HF,HCl,HBr,HS都属于强酸还是弱酸?