VB 建立并输出一个

很简单的二维数组问题先声明一个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编写再答：原理一样，列数正着数倒着数和行

PrivateSubCommand1_Click()Dimstra()AsString,changduAsIntegerstra=Split(Text1.Text,"")Fori=LBound(str

PrivateSubCommand1_Click()Dims%,x%sum=Array(1,3,4,12,32,1,3)Fori=0ToUBound(sum)s=s+1x=x+sum(i)NextiF

同时与n互质的数------这个不太明白?能说一下吗?下面1000以内质数算法.PrivateSubCommand1_Click()Text1.Text=""Fori=1To1000k=1Forj=2

=min(A1:A5)下拉

假设矩阵为一个数组a(1tom,1ton)SubMax()Dimb()AsSingle,maxxAsSingleFori=1Tomb(i)=a(i,1)Forj=1TonIfb(i)

肯定会输出行=3列=3,因为你的循环要执行玩,i++,j++一直到3后才能执行到System.out.println(min);System.out.println("行="+j);System.ou

PrivateSubForm_Click()DimnAsIntegern=InputBox("请输入一个正整数n")s=1Fori=nTo1Step-1s=s*iNextiPrintn&"!="&sE

SubJiSuanDimx,y,ix=1Fori=2To100y=i-1/ix=x+y'''按需要怎么输出..NextEndSub选我啊

#include#include#include#defineN40typedefstructnode{intx,z;structnode*next;}*pnode;intisnum(charc){i

你交作业啊,这么简单的问题,还好意思来这问.自己稍微动动脑子好不好,懒成这样,有没有点血性?!

建立两个数组,分别存放多项式的系数,如x3就可以在数组data【3】中存放1就可以了,对应项相加,就可以了

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

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

/*下面的程序产生N个随机的整数,存放在数组a中.然后根据数组a建立线性链表,再删除链表中所有重复元素,并输出无重复元素结点的链表结点的值*/#include#include#include/////

Option ExplicitPrivate Sub Form_Load()Me.ShowMe.AutoRedraw = TrueDim i

PrivateSubCommand1_Click()Sum=1Fori=1ToText1.TextSum=Sum*iNextiPrintSumEndSub再问：那在窗体上输出九九乘法表？？你会吗？？真

#include"stdio.h"#include"alloc.h"typedefstructnode{intc,e;structnode*next;}pn;/*创建链表*/pn*create(){p