VB程序有一个二维矩阵A(4,5),每个矩阵由两个

 英国365bet官网     |      2019-05-16 00:06
展开全部
PrivateA(1A4,1A5)AsIntegerPrivateSubSwitchArrE(西班牙语)(ja)。,IMax,iMin,iMaxIndex,iMinIndex,iSumAsIntegerRandomizeFori = 1To4iSum = 0 Forj = 1To5k = Int(Rnd * 100)Ifk10A = kiSum = iSum + kNextj打印图片1框。
打印A(i,1),A(i,2),A(i,3),A(i,4),A(i,5)Nexti交换第一和第三列。SwitchArrE 1.3计算最大和最小行数。Row Fori = 1To4k = 0Forj = 1To5k = A(i,j)启动session1a4picture2。
打印A(i,1),A(i,2),A(i,3),A(i,4),A(i,5)。NextiEndSub