3. vb编程,建立并输出10*10的矩阵,该矩阵对角线元素为1,其余元素均为
来源:学生作业帮助网 编辑:作业帮 时间:2024/09/24 12:23:32
#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再问:非常感谢~