vb中将n行n列的矩形装置,范围在10到100之间,n由键盘输入

具体的语言已经忘了.可以提供的是思路.s=m*nIf语句找出m和n中的小项,输入a,另一值输入b.用ForFromTo语句枚举从1到根号a的所有数,用If语句筛选因子（mod取余＝零）并输入c,然后I

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

PrivateSubForm_Click()DimnAsIntegern=Val(InputBox("请输入N:"))Dima,bAsLonga=1:b=1Fori=1TonPrinta&""&b&"

这是过程调用语句.其中call可以不写.F1是过程名,括号中的A,N是参数.执行时,会把A,N传递给过程中的形参,然后执行过程中的语句,执行完毕后,程序会返回到callF1(A,N)的语句.这些东西,

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

用楼梯法最快.奇数阶幻方最经典的填法是罗伯特法(也有人称之为楼梯方).填写方法是这样：把1(或最小的数)放在第一行正中；按以下规律排列剩下的n*n-1个数：(1)、每一个数放在前一个数的右上一格；(2

PrivateSubCommand1_Click()DimSAsDouble,jcAsDouble,NAsIntegerjc=1N=Val(InputBox("请输入N"))Fori=1ToNjc=j

答案是n^2-n+1

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

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

http://zhidao.baidu.com/link?url=wyic3NEB45i2K9YZE2SpNiAV4aD7rZHpluBlyF76zg0n_8wr1t6-KOYm6eYY23KqG5n

PrivateSubCommand1_Click()DimnAsInteger,iAsInteger,jAsInteger,Sum&,m&n=Val(InputBox("请输入N值"))Sum=0Fo

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

Private Sub Form_Load()Dim I As IntegerForm1.AutoRedraw = TrueFor

Fori=1Tony=y*nNexti这里的y=y*n当然不对,应该是y=y*i

楼上的程序会慢死人的.给一个非递归实现.functionFibonacci(byvalnasLong)asLongdiml1aslong,l2aslong,l3aslongl1=1l2=1ifn

#include<stdio.h>int main(){     int n,i,j,k=1;  

n维列向量是n行1列n维行向量是1行n列直观是列向量是1列行向量是1行

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

Functionfactorial(nAsInteger)AsLongDimiAsIntegerDimretAsLongret=1Fori=1Tonret=ret*iNextifactorial=re