vb程序设计编程求下列矩阵主对角线上的元素之和.

四个标签lab1(0),lab1(1),lab1(2),lab1(3),caption为1-3月,4-6月,7-9月,10-12月四个文本框text1(0),text1(1),text1(2),tex

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

intmatrix(int**aintra,intca){intsum=0;for(inti=0;i再问：��д�����������    ����[][]�

Dim i As Integer, j As Integer, a(1 To 3, 1 T

这个是那一章的全部答案1．设有如下两组数据：(1)1,3,5,2,4,18,50,25(2)5,27,30,35,60,41,87,33编写一个程序,把上面两组数据分别读入两个数组中,然后把

Dimn,x,r,sAsSinglen=2s=0DoWhilen再问：能说一下算法的思路吗？再答：首先1不是素数,就用枚举将2到1000的每个数列举出来,再逐个检验,即从2到n/2一一举例，判断是否能

是没有思路,还是不会编程?至少有一位数字是5用以下的子函数boolIsInclude5(intnum){while(num!=0){if(num%10==5)returntrue;num=num/10

DimiAsIntegerFori=1ToNs=s+x(i,N-i+1)Nexti如果程序能正常运行,你得在最前面加上公用变量定义：Dimx()AsIntegerDimNAsIntegerCallFu

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

简单就是不会再问：....再答：不是不会是好久没做了差不多都忘了呵呵

PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimsumAsDoublen=Val(InputBox("PleaseEnterN:"))sum=

PrivateSubCommand1_Click()DimaAsLongDimiAsLongDimsAsBooleans=Truea=InputBox("请输入一个自然数","输入")'-------

代码：Private Sub Command1_Click()    Call max100End SubSub&nbs

1)A=reshape(1:25,5,5)'2)B=A([1:35],:)3)C=A(:,[1:35])4)D=[A[13579]']5)是行吧,E=[A;13579]

dima%(1to10)max=0:k=0fori=1to10a(i)=int(rnd*(99-10+1)+10)text1=text1&a(i)&space(2)ifa(i)>maxthenmax=

声明变量,并声明数据类型,否则,A,B,C三个变量是String,表达式(A+B+C)的结果不是12,而是"345".

void snake(int n){  int m[20][20];  int i, j; &nbs

'是这意思?PrivateSubForm_Activate()DimiAsIntegerFori=1To8Ifi=1ThenPrint"※"ElsePrint"※"&Space(2*(i-2))&"※

vb代码如下：PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingleDimdAsSingle,x1AsSingle,x2AsSinglea

很简单的~不过你问错地方了