VB随机产生一个M×N二维数组(M,N缺省为4,数组元素为100以内的正整数),计算其
题目
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
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 用所给词的正确形式填空 1.What__________you________(do) tom
- 应该是interesting something还是something interesting
- 请问英语辅音音标中哪些是清辅音,哪些是浊辅音?想要一个标准的答案,
- lg2为a lg3为b 试用ab表示log12(5) log12(5) =lg5/lg12 =(1-lg2)/(2lg2+lg3) =(1-a)/(
- 为什么生物进化不可逆?
- 英语翻译
- 关于孝的故事和古诗、名言加意思
- 成语馋诞欲滴的意思是什么
- 某人家住T市在他乡工作,每天下班后乘火车于6:00抵达T市车站,他妻子驾车准时到车站接他回家.一日他提前下班并于5:30抵达T市车站,随即步行回家,他的妻子像往常一样驾车前来,在半路上遇到他,即接他回
- HI,HF,HCl,HBr,HS都属于强酸还是弱酸?