用VB写一个5*5的矩阵

Dima(5,5)PrivateSubCommand1_Click()'右,倒三角形Fori=0To4Forj=0To4Ifj>=iThena(i,j)=1Elsea(i,j)=0EndIfPrint

我的理解,你是一个9*9的矩阵,那么:dimsasintegerdimiasintegerdimjasintegerdimd(9,9)asinteger'假设二维数组为d,且主对角线元素的值为1-9s

PrivateSubCommand1_Click()DimiAsInteger,bb(20)AsInteger'1DimkAsInteger,dbl1AsDoubleFori=1To20Randomi

ModuleModule1SubMain()DimA(,)AsInteger={{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8

Private Sub Command1_Click()    Dim S(1 To 5, 1&nb

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

PrivateSubCommand1_Click()DimmArr(1To5,1To5),r%,c%,tmp%Forr=1To5Forc=1To5Randomizetmp=Int(Rnd*90)+10

楼上回答基本是正确的.呵呵.就这一句有点可讨论的i=Int(Rnd*49+1)首先,对这里的数理解为整数.其次,1到50之间的数,如果包括1和50的话,应该是:i=Int(Rnd*50+1)如果不包括

matrix_mul(int**A,int**B,int**C,intm,intp,intn){for(inti=0;i{for(intj=0;j{C[i][j]=0;for(intk=0;k{C[i

FunctionV圆柱(半径AsSingle,高AsSingle)AsSingleV圆柱=3.1415927*半径^2*高EndFunction

Dima%(4,5)PrivateSubCommand1_Click()'产生并输出Fori=1To4Forj=1To5a(i,j)=Int(Rnd*100)'[1,100]Printa(i,j);N

不好意思我好久没用vb了大概如下dimcassingledimxassinglex=inputbox("输入x")c=5*(x-32)/9printc\我以前把vb删了不能试你试试吧

Dima%(1To6,1To6),b%(1To6,1To6)PrivateSubCommand1_Click()Fori=1To5Forj=1To5a(i,j)=Int(Rnd*90+10)Pictu

判断写错,改完的：PrivateSubCommand1_Click()DimaAsStringDimh,l,sAsSinglea=InputBox("请输入形状（只限于长方形~正方形或三角形）","请

PrivateSubCommand1_Click()Dimnum,iAsLongDima,b,cAsIntegerFornum=100To999a=numMod10b=(num\10)Mod10c=n

给你两段代码,一个是过程,一个是自定义函数.Subabc()DimxAsIntegerx=InputBox("输入一个整数")Fori=1ToLen(x)k=k+Mid(x,i,1)^2NextIfI

'功能：用雅可比法（Jacobi）计算对称矩阵的特征值和特征向量'参数：n-Integer型变量,对称矩阵的阶数.'dblA-Double型二维数组,体积为nxn.存放对称矩阵；返回时,对角线上存放求

''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

PrivateSubCommand1_Click()a=InputBox("请输入数值")b=InputBox("请输入数值")IfVal(a)Fori=1ToVal(a)IfVal(a)Modi=0

'主要代码就是这个'这是使用二维数组dima(99,99)'声明一个二维数组randomize'随机化,用于生成随机数fori=0to99forj=0to99a(i,j)=fix(rnd*10)'生成