此矩阵相当好。PrivateSubCommand1_Click()Dimi%,j%Fori=1To7Forj=1To7'a(i,j)=Int(Rnd*(3*i+4*j))+30'b(i,j)=Int(Rnd*(3*i+4*j))+100c(i,j)=a(i,j)+b(i,j)NextjNextiFori=1To7Forj=1To7'Picture1.PrintTab(7*j);a(i,j);