兰:
OptionExplicitOptionBase1PrivateSubCommandButton1_Click()Dimi%,j%,k%,p(6),s(6,6)Fori=1To6p(i)=Sheet1.Cells(1070,i)NextiFori=1To6Forj=1To6s(i,j)=0Fork=1To1070s(i,j)=s(i,j)+(Sheet1.Cells(k,i)-p(i))*(Sheet1.Cells(k,j)-p(j))Nextks(i,j)=s(i,j)/1069Sheets(....