1楼：匿名用户
option base 1
private sub ***mand1_click()
randomize
dim intarray(5, 5) as integer, i as integer, j as integer, intevennumbercount as integer
for i = 1 to 5
for j = 1 to 5
intarray(i, j) = int(rnd(i * j) * 90 + 10)
print intarray(i, j);
next j
next i
for i = 1 to 5
if intarray(i, i) mod 2 = 0 then intevennumbercount = intevennumbercount + 1
if intarray(i, 6 - i) mod 2 = 0 then intevennumbercount = intevennumbercount + 1
next i
if intarray(3, 3) mod 2 = 0 then
print "对角线上有" + cstr(intevennumbercount - 1) + "个偶数。"
else
print "对角线上有" + cstr(intevennumbercount) + "个偶数。"
end if
end sub
定义一个5*5的二维数组，其数组元素为10-99间的随机整数，将数组显示在
2楼：匿名用户
用什么语言写的，要说清楚，这样会的人就会帮忙？？？
#include
#include
#include
void main()
printf("\n");
}printf("对角偶数:%d\n",count);}
定义一个5*5的二维数组，其数组元素为10-99间的随机整数，将数组显示在窗体上，统计对角线上偶数的 20
3楼：匿名用户
用什么语言写的，要说清楚，这样会的人就会帮忙？？？#include
#include
#include
void main()
printf("\n");
}printf("对角偶数:%d\n",count);}
定义一个5乘以5的二维数组，其数组元素为10到99间的随机整数，将数组显示在
4楼：匿名用户
楼主 你能把你的问题问完吗。我没有看懂你这个问的是什么意思~
5楼：匿名用户
要什么语言啊，整数可不可以重复啊
急。。。。。。。。加急，谁帮我做一下vb的题目啊，答案给我传到信箱1527066040@**.***
6楼：匿名用户
这么多题目....恐怕要付点辛苦费......
利用vb，编写一个3*4的二维数组输入任意整数，求所有数组元素和及平均值
7楼：匿名用户
利用vb，编写一个3*4的二维数组输入任意整数并且求所有数组元素和及平均值方法为：
1、输入头文件和主函数。
2、初始化数组并定义变量类型。
3、输入i和j。
4、输出第i行第j列的元素。
5、编译、运行。
注意事项：在visual basic 6.0中，采用面向对象程序设计方法（object-oriented programming），把程序和数据封装起来作为一个对象，每个对象都是可视的。
8楼：匿名用户
privatesub***mand1_click()
dimiasinteger,jasinteger,a(1to3,1to4)asinteger,xasinteger
'i、j、x是变量，a(1to3,1to4)是二维数组变量
fori=1to3'i是循环变量，这
里循环3次
forj=1to4'j是循环变量，这里循环4次
randomize'刷新随机数种子
a(i,j)=int(rnd*90+10)'产生随机数，存储在a数组中
x=x+a(i,j)'计算数组的和
printa(i,j)&"";'打印数组的值
nextj'j循环结束
print'打印换行
nexti'i循环结束
print'设置一个空行
print"3*4数组的和="&x'打印数组的和
print"平均值="&round((x/((i-1)*(j-1))),2)'打印平均值，取小数后二位
endsub
9楼：听不清啊
privatesub***mand1_click()print"请输入一个3*4的二维数组"
dima(3,4)
fori=1to3
forj=1to4
x=val(inputbox("请输入a("&i&","&j&"):"))
a(i,j)=x
s=s+a(i,j)
printa(i,j),
nextj
nexti
print"元素总和=";s
print"平均值=";s/12
endsub
10楼：匿名用户
option base 1
private sub ***mand1_click()
dim a(3, 4) as integer, i as integer, j as integer '定义一个二维数组，i循环代表行下标，j循环代表列下标
dim s as long, ave as single 's存放数组元素的和值,ave为平均值
s = 0
for i = 1 to 3
for j = 1 to 4
a(i, j) = int(rnd * 101) '给这个二维数组赋值为100以内的随机整数
print a(i, j);
s = s + a(i, j) '求所有元素的合值
next j
next i
ave = s / 12 '求平均值
print "二维数组的元素的和=" & s
print "二维数组的元素平均值=" & ave
end sub
vb编程：产生20个10至100间的随机整数存入一维数组a中，每行5个元素输出；定义一个4行5列的二维数组
11楼：匿名用户
private sub ***mand1_click()dim a(20) as integer, b(4, 5) as integer
randomize
for i = 1 to 20
a(i) = int(rnd * 91) + 10print a(i);
if i mod 5 = 0 then printnext
for i = 1 to 4
for j = 1 to 5
b(i, j) = a(j + (i - 1) * 5)print b(i, j);
next
next
end sub
12楼：匿名用户
private sub form_load()dim a(1 to 20) as integerdim b(1 to 4, 1 to 5) as integerdim j, i as integer
j = 1
for i = 1 to 20
randomize
a(i) = int(rnd() * 90) + 10next i
for i = 1 to 20
k = i mod 5
if k = 0 then k = 5
b(j, k) = a(i)
if i mod 5 = 0 then j = j + 1next i
print "a:"
for i = 1 to 20
print a(i),
if i mod 5 = 0 then print chr(13)next i
print "b:"
for i = 1 to 4
for j = 1 to 5
print b(i, j),
next j
next i
end sub
原创哟，臭美一下
13楼：匿名用户
dim i as long,a(1 to 20) as longfor i=1 to 20
a(i)=cint(int((100- 10+ 1) * rnd() + 10))
next i
vb编程**:定义一个5×5的二维数组，随机产生25个两位数（10，99）存于该二维数组元素中，统
14楼：兄弟连教育北京总校
//#include "stdafx.h"//vc++6.0加上这一行.
#include "stdio.h"
#include "time.h"
#include "stdlib.h"
int main(void)
如果只计算
一条主对角线，则：
int main(void)
vb编程题: 随机生成一个4行9列的矩阵,矩阵元素为10-99之间的随机整数.打印显示.
15楼：山舟
optionbase1
privatesubform_click()dima(36)asinteger,b(6,6)asinteger,iasinteger,jasinteger,numasinteger
print"原矩阵："
randomize
fori=1to36
a(i)=int((99-10+1)*rnd+10)
printa(i);
num=num+1
ifnummod9=0thenprintnext
fori=1to35
forj=1to36-i
ifa(j)>a(j+1)thent=a(j)
a(j)=a(j+1)
a(j+1)=t
endif
next
next
print"排序后矩阵："
fori=1to36
printa(i);
num=num+1
ifnummod6=0thenprintnext
print"主对角线上数字为："
fori=1to6
printa((i-1)*6+i);
next
endsub