编写程序,建立一个10×10的矩阵,该矩阵对角线元素为1,其余元素均为0

privatesubform_click()dimnaslong,snaslongn=inputbox("请输入n")fori=0tonsn=sn+2*i+1nextmsgbox"1+3+5+...(

很简单的二维数组问题先声明一个0-10,0-10的数组然后fori=1to10doforj=1to10doifi=jthena(i,j)=1elsea(i,j)=0应为我不是搞vb的所以只能提供思路就

PrivateSubCommand1_Click()sub_Matrix(10)‘打印10*10矩阵EndSubPrivateSubsub_Matrix(ByValNAsInteger)DimIAsI

#includeusingnamespacestd;intmain(void){inta[10][10];inti=0,j=0;for(i=0;i再问：采用VB编写再答：原理一样，列数正着数倒着数和行

#!/bin/bashforiin$(seq10)doecho$((i*i))doneexit0

main(){inta=0,i;scanf("%d",&a);for(i=0;i

PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问：x=x+a*0.2+3000*0.2怎么都乘0.2呀？

while(a){case‘1‘intn=rand（）%10;break;case‘1‘intn=10+rand（）%100;break;case‘1‘intn=100+rand（）%1000;bre

#includeintfact(intn){if(n==0||n==1)return1;elsereturnn*fact(n-1);}intmain(){printf("5!+10!=%d\n"

test{publicstaticvoidmain(Stringargs[]){longsum=0,a=1;longi=1;while(i=1)sum=sum+a;i++;a=a*i;}System.

publicclassFactorial{privateintresult=1;publicintfactorial(intnumber){if(number==1)returnresult;else

varn,i,min,max,maxi,mini,s:integer;x:array[1..100]ofinteger;ans:real;beginreadln(n);fori:=1tondoread

#includeintmain(void){intr;\x05doublev;//这个变量应该改为double类型r=10;v=4.0f/3.0f*3.14*r*r*r;printf("V:%lf\n

pt = {2, 2};ContourPlot[ Sqrt[(x - pt[[1]])^2 + (y -&nb

publicclassTest{publicstaticvoidmain(String[]args){ints=0;intn=1;for(inti=0;i

/>vart;varl=prompt('请输入边长',3.5);t=3.1415926*(l/2.0)*(l/2.0);document.write("边长:"+l);document.write("

（1）0与1构成的二维数组：CLS:n=1FORi=1TO10FORj=1TO10IFi=nANDj=nTHENa(i,j)=0:a(i,10-j+1)=0IFi=5THENx=9-j-1ELSEx=

packagecom.baidu.zhidao;publicclassCat{publicstaticvoidmain(String[]args){double[]scores={11,22,33,4

publicclassZuoYe3_5{publicstaticvoidmain(Stringargs[]){doublesum=0,a=1;//a存储上次的阶乘结果inti=1;while(i

x=1s=1a=1WHILExa=a*xs=s+ax=x+1WENDEND唉,回答出来居然发现你指正了.step1,令x的值为1,S的值为0,a的值为1.step2,令a=x*a,s=s+astep3