VB求一个M行N列的矩形四周元素之和,元素值可以随机产生,M.N从键盘输入

具体的语言已经忘了.可以提供的是思路.s=m*nIf语句找出m和n中的小项,输入a,另一值输入b.用ForFromTo语句枚举从1到根号a的所有数,用If语句筛选因子（mod取余＝零）并输入c,然后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编写一个程序,把上面两组数据分别读入两个数组中,然后把

鱼池为正方形,周长最小,也就是鱼池与路的占地面积的最小值.

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

设置数组S（M,M）,M>1,ssum=s(1,1)+s(M,M)+s(1,M)+s(M,1)ifM>2fori=2toM-1ssum=ssum+s(1,i)+s(i,1)+s(M,i)+s(i,M)

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

;本程序通过编译,运行正确CodeSegmentAssumeCS:Code,DS:Code;－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－－;功能：输出一个字符;入口

PrivateSubCommand1_Click()Dimi,j,kFori=1To10k=1Forj=1Toik=k*jNextPrinti&"!="&kNextEndSub再问：如果用inputb

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

a

PrivateSubCommand1_Click()DimmAsInteger,nAsIntegerm=Int(InputBox("输入第一个整数"))n=Int(InputBox("输入第一个整数"

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

法一：这个方法的思路很直接,数学味较浓.既然在VB6中没有阶乘的运算,那么我就自己造一个函数用来算一个整数的阶乘.FunctionTimeStep(NumberAsInteger)AsLongTime

以下程序已经过调试测试#include#defineM5voidmain(){inta[M][M],i,j,sum=0;cout

mModn=rr=mModn

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

设花坛宽x米,则花坛长x+4米,矩形宽x+4米,矩形长x+8米.（x+4）(x+8)-x(x+4)=24解得x=-1……题错了吧再问：对，此题无解

PrivateSubCommand1_Click()DimiAsInteger,nAsInteger,mAsInteger,StrAsString,SAsDoubleStr=""n=Val(Input

请问!你这是哪弄来的题啊?据我所知,高等代数里面没有定义过非方阵的特征值和特征向量.（我是读数学专业的.）