VB编写程序有一个m乘n的矩阵

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

Functionfact(xAsInteger)s=1Fori=1Toxs=s*iNextfact=sEndFunctionPrivateSubCommand1_Click()Me.AutoRedra

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

dimi,j,n,tasintegern=inputbox("n=")fori=1tonifimod2=0thent=i\2forj=2toint(sqrt(t))iftmodt=othenexitf

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

①处应填入：min'因为最大公约数不会超过较小的那个数②处应填入：填不了,似乎不能这样写,参考下面的③处应填入：text3=t参考PrivateSubgys(mAsInteger,nAsInteger

PrivateSubcommand1_click()DimmAsInteger,nAsIntegerDimaAsInteger,bAsIntegerDimrAsIntegerm=InputBox("输

PrivateSubcommand1_click()DimmAsInteger,nAsIntegerDimaAsInteger,bAsIntegerDimrAsIntegerm=InputBox("输

自己敲的,你看看是不是你要的……我吃饭去了,有事发邮件479292539@qq.com#include#defineM4#defineN5voidmain(){inta[M][N],i,j;intnu

PrivateSubCommand1_Click()'IntegerRandomizeLabel1.Caption=Int(Rnd*(101)-50)EndSubPrivateSubCommand2_

新建工程,添加command1控件.vb6.0+xp调试成功代码如下：DimnAsIntegerPrivateSubCommand1_Click()m=InputBox("请输入底数m")n=Inpu

Private Sub Command1_Click()Dim a(4, 2) As Integer, b(2, 4)&

拜托,这么多输入你就用列表啦,用那么多textbox,你不累我看得都累.还有,你要求的是什么尽量用数学的方式表达出来,有图更好至于你的a5d6的问题,是因为你的是字符串运算而不是数值运算,转换一下类型

PrivateSubForm_Click()Dima()AsIntegerDimi,j,max,n,mRandomize(time)n=InputBox("n=")m=InputBox("m=")Re

PrivateSubCommand1_Click()RandomizeTimerDimnAsInteger,mAsIntegerDimarr1()AsInteger,arr2()AsIntegerDi

//-------------------------------------//-----------------------------------------------------------

PrivateSubCommand1_Click()Dima#,b#,c#,d#,x1#,x2#a=Val(InputBox("a=","数据输入框",1))b=Val(InputBox("b=","

这个,我给你一个函数参考一下吧,不知道你的矩阵怎么保存,姑且当做是用二维数组保存吧.voidfindmax(int&RetRow,int&RetCol,int**Map,int&Row,int&Col

我HI你吧,等一下