3. vb编程,建立并输出10*10的矩阵,该矩阵对角线元素为1,其余元素均为

#includemain(){inti;for(i=10;i再问：能留个QQ吗？有很多问题想请教下你

这也是大学编程?中学还差不多 Private Sub Command1_Click()a = Int(Val(InputBox("a=&qu

很简单的二维数组问题先声明一个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

SubCommand1_Click()DimDeltaAsSingleDimaAsSingle,bAsSingle,cAsSingleDimx1AsSingle,x2AsSinglea=Val(Tex

publicclassTest{publicstaticvoidmain(String[]args){System.out.println(show());}publicstaticdoublesho

=min(A1:A5)下拉

#includeintmain(){intk=1;doublesum=0;for(inti=1;i

//C语言编程,输入10个数字计算平均数,并输出大于平均数的元素//作者:yubaolin//日期：20120402//功能：C语言编程,输入10个数字计算平均数,并输出大于平均数的元素#includ

PublicSubcommand1_click()dimrasintegerr=val(inputbox("请输入半径"))s=3.1415926*r^2msgbox"圆的面积为:"&sendsu

privatesubform_click()dimnaslongdimxasstringdimyasstringfori=1000to9999x=mid(i,1,2)y=mid(i,4,1)&mid(

a=XXb=YYc=MMifa>bthenmax=aelsemax=bendififc>maxthenmax=cendif

Private Sub Form_Load()Dim I As IntegerForm1.AutoRedraw = TrueFor

用c语言吧：#includevoidmain(){inti;floata[10],avg,temp1=0,temp2=0,fc;for(i=0;i

.这点小问题先定义一下整数变量a,b,cDimaasintegerDimbasintegerDimcasintegerDimstrasStringString=""Fora=0To9Forb=0To9

sum=0fori=1to100if(imod3)thensum=sum+inextiprintsum

PrivateSubForm_Load()ForI=1To1000IfIMod7=0ThenX=X+1IfXMod10=0ThenLabel1.Caption=Label1.Caption&vbNew

PrivateSubCommand1_Click()Fori=100To200IfiMod30Thens=s+iPrinti;n=n+1IfnMod10=0ThenPrintEndIfNextPrin

Private Sub Command1_Click()    Cls    Dim r(

时间有限,只写了C++代码,未调试,思路相同,自己切换吧#include"math.h"BOOLIsPrime(inta){inti;for(i=2;i再问：非常感谢～