vb显示n阶魔方阵 n>=3

PrivateSubCommand1_Click()DimsumAsDoubleDimiAsLongDimnAsDoublen=((1/(10^-5))+1)/2'正好等于10^-5时候n的值

m=n/(n+1)o=m*(-1)^n这两句合成一句o=(-1)^n*n/(n+1)不知道这个地方有没有数值转换?小心第二道题PrivateSubForm_Activate()Dima,bAsInte

Dimi,nasIntegerDimsasdoublen=val(Text1.Text)i=(1)s=0DoUNTILi>(2*n-1)s=(i+s)i=i+（2）LoopText2.text=(s)

代码如下：PrivateSubCommand1_Click()f=1Don=n+1f=f*nt=2*n-1s=s+(-1)^n*f/tIfs=10000ThenPrintnExitSubEndIfLo

创建一个窗体,并在其上创建三个文本框和一个命令按钮,其中：文本框NN和文本框MM输入N和M的值,文本框JG输出结果.命令按钮Command1用于开始计算,在其单击事件中输入如下代码：PrivateSu

'代码解析：For m = 1 to 3    'm为1至3循环  &nb

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

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

我自己写了个C++的,里面用到了一些C++特有的功能,不能移到VB上,但我可以给你算法　　(1)将1放在最后一行的中间一列;　　(2)从2开始直到n×n止各数依次按下列规则存放：　　按45°方向行走,

for循环修改下fori=1to2n-1step2a=a+inexti

S=1!+2!+3!+…+n!,得n!=n*(n-1)*(n-2)*…*2*1

PrivateSubForm_Click()Dimi,n,tAsIntegerDimsAsSingles=0t=1n=InputBox("n=")Fori=1Ton-1s=s+t*i/(i+1)t=-

PrivateSubCommand1_Click()Dimn%,sum!,fact!sum=0n=InputBox("输入n:","提示信息",1)IfnMsgBox"数据有误!",48,"警告!"E

n!=n*(n-1)*(n-2)*...*2*1的意思就是n!等于前n个正整数相乘.不是楼主所说的3!=3*(3-1)*(3-2)*(3-3)*3*2*1.3!=3*2*1（其实就是1*2*3=3!）

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

给你算法自己做吧.定义一个二维矩阵.3×3的会填吗?奇数×奇数的填法就是在第一行中间添1,然后依次在右上角添写下个数.情况1：如果出右边则到最左边情况2：如果出上边则到最下边情况3：如果已经有数在哪里

#include#defineMAXSIZE15intmagic[MAXSIZE][MAXSIZE];intcur_i=0,cur_j=0;main(){intcount,size=0,i,j;whi

这个我来帮你吧!我在VB里写好代码再发给你哟!PrivateSubCommand1_Click()DimnAsInteger,sAsDoublen=Val(InputBox("enterda

写成函数,直接调用Functionprint_num(ByValnumAsInteger)Dimi,n,k,jAsIntegerDimstrAsStringn=Int(num/2)k=0IfnumMo

PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimxAsVariant,sumAsDoublen=20x=CDec(x)x=1Fori=1Ton