vb显示n阶魔方阵 n>=3
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/04 22:15:38
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