随机产生一批两位整数生成的5*5的方阵,放入一个二维数组中,并在窗体上输出二维数

（1）随机产生一批两位整数生成的5*5的方阵,放入一个二维数组中,并在窗体上输出二维数组
（2）找出其中最大元素及其位置
总共两个代码啊。。。

第1个回答推荐于2018-05-07

添加2个command控件
Dim a(5, 5) As Integer

Private Sub Command1_Click()
For i = 1 To 5
For j = 1 To 5
Randomize
a(i, j) = Int(Rnd * 90) + 10
Print a(i, j);
Next j
Print
Next i
End Sub

Private Sub Command2_Click()
Max = a(1, 1)
m = 1
n = 1
For i = 1 To 5
For j = 1 To 5
If Max < a(i, j) Then
Max = a(i, j)
m = i
n = j
End If
Next j
Next i
Print "最大值为第" & m & "行，第" & n & "列的：" & Max
End Sub本回答被提问者和网友采纳

相似回答

VB编程,应用二维数组产生随机矩阵5*5,并实现矩阵的转置。答：Dim A(5, 5) As Integer, B(5, 5) As Integer For x = 1 To 5 For y = 1 To 5 A(x, y) = Int(10 + Rnd * 90) '随机产生两位数的整数 Print A(x, y); '输出 Next Print Next Print For x = 1 To 5 For y = 1 To 5 B(x, y) = A(y, x) '转置 Print B...

...产生两位数的整数放入一个5行5列的二维数组中,求该二维数组对角线上...答：max1 : max2;return max1 + 1;}int col(int a[5][5]){int i = 0, max1 = 0, max2 = 0;

随机生成25个两位数,构成一个5*5二维数组。在靠边元素及对角元素中求...答：Private Sub Form_Click()Dim a(1 To 5, 1 To 5), t%, r%, c%, max%, min max = 10: min = 99 For r = 1 To 5 For c = 1 To 5 Randomize t = Int(Rnd * 90) + 10 a(r, c) = t Print a(r, c);If r = 1 Or r = 5 Or c = 1 Or c = 5 Or r =...

构造一个5X5的二维数组,用循环将1-25填入,并输出全部输出答：include<stdio.h>int x[5][5];int main(){ int count=1; for(int i=0;i<5;i++){ for(int j=0;j<5;j++){ x[i][j]=count++; printf("%2d ",x[i][j]); } printf("\n"); }}

大家正在搜

求一批整数中出现最多的个位数输入一批整数求其中的奇数和分别求出一批非零整数中的偶数一批整数中出现最多的数字求一批正整数中最大的偶数找出一批整数中最大偶数三位数除以两位数没有余数一批商品是235的整数倍三位小数除以两位小数