用VB求出5*5矩阵中最大的值

显示全部楼层 · 2009-4-26 13:01:02

最后输出所在位置

千问 · 2009-4-26 13:01:02

dim i as integerdim j as integerdim x as integerdim y as integerdim maxnum as integermaxnum = 0'如果你的数组中有些数是小于0，那么就赋值最小的数给这个变量for i=1 to 5for j=1 to 5if arr(i,j)>=maxnum thenmaxnum=arr(i,j)x=iy=jend ifnext jnext imsgbox "最大数为：" & maxnum & "位置：" & x &","&y...

千问 · 2009-4-26 13:01:02

Private Sub Command1_Click()Dim a(4, 4),i,j,x,y As Integer'产生随机数For i = 0 To 4For j = 0 To 4
a(i, j) = Int(Rnd * 100)
Print a(i, j),NextPrintNextx = 0...

千问 · 2009-4-26 13:01:02

同意一楼的！不过在前面记得对数组定义一下！dim arr()redim arr(5,5)...