VB建立并输出一个10*10矩阵,该矩阵两条对角线的元素为1,其他元素均为零

PrivateSubCommand1_Click()Dima(9),i%,Sum!ClsFori=0To9Randomizea(i)=Int(Rnd*51+140)/10Sum=Sum+a(i)Pri

privatesubform_click()dimnaslong,snaslongn=inputbox("请输入n")fori=0tonsn=sn+2*i+1nextmsgbox"1+3+5+...(

窗体中加命令按钮,单击事件代码如下：PrivateSubCommand1_Click()  Randomize  Dima(1To20)AsInteger&nb

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

"求两矩阵的乘积“是什么意思?再问：就是求生成的那两个矩阵啊再答：PrivateSubCommand1_Click()Dimb(1To3,1To4)AsIntegerDimc(1To4,1To3)As

#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

Print"平均值是："&平均改为Print"平均值是："&平均(a)再问：为什么这么改啊？原因是什么？再答：PrivateFunction平均(a()AsInteger)AsInteger你这个函数

command1完成第一题,command2完成第二题PrivateSubCommand1_Click()Dimx%(1To10),n%,i%n=1DoWhilen

OptionExplicitPrivateSubCommand1_Click()DimA(9)AsInteger,i%,m%,t%,AA%Fori=0To9RandomizeA(i)=Int(Rnd*

Dima(10)Fori=0To9a(i)=Int(100+100*Rnd)NextiFori=0To8Forj=iTo9Ifa(i)t=a(i)a(i)=a(j)a(j)=tEndIfNextjNe

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

这是我做的,你参考一下.

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

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

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

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

建立控件数组Text2(0To9)PrivateSubCommand1_Click()DimSumAsDoubleForI=Val(Text1.Text)-1To0Step-1Sum=Val(Text

分别用random(),max(),min(),avg()函数.