Question

定义一个10*10 的二维整型数组,产生100个随机数保存在数组中,编写程序求二维数组

VB课程作业！要求写出程序

Answer 1

思路：
1，先建立两个个10*10的二维数组 一个的值依次是1-100用（arrData表示），另一个不初始化用（arrNull表示）
2，申明一个取1-100的随即数
3，在for语句中把 arrdata【随即值】赋给arrNull
同时当随即值日不是100-i（i是for循环参数）时候，在用一个for语句（j=i；j《=100；j++）把 arrData【i】=arrarrData【i+1】
4，arrNull即使要求的数组，并输出。。。大功搞成

Answer 2

option explicit
dim a(10，10),i,k as integer
private sub command1_click()
randomize
for i=1 to 10
for k=1 to 10
a（i,k)=int((100 * Rnd) + 1)
next k
next i
end sub