VB课后作业计算1-N的正整数之和

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

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

PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=1Tons=s+iNextiText2.Text=sEndSu

#includeintmain(){intn=0,result=0;printf("Pleaseinputn:");scanf("%d",&n);for(inti=1;i

    Dim I As Integer, N As Integer  &nbs

不知道你用的是什么语言,这里只给一个JavaScript和一个C语言编写的阶乘函数.其它语言写的也应该是相通的.自己慢慢领悟吧.用JavaScript编写的：C语言写的：

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

PrivateSubCommand1_Click()n=InputBox("请输入n：")s=1Fori=1Tons=s*iNextiPrint"n!="&sEndSu

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

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

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

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

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

一下代码!你参考一下!PrivateSubCommand1_Click()ClsDima()AsInteger'定义一个动态数组Dimb(10)AsInteger'用于统计Randomizen=4:m

DimmAsInteger,nAsIntegerPrivateSubCommand1_Click()m=Val(InputBox("输入正整数"))n=Val(InputBox("输入正整数"))If

需要2个文本框text和2个按钮command（一个计算一个清除）Dimx,a,b,kAsStringPrivateSubCommand1_Click()a=Val(Text1.Text)x=2Ifa

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

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

(1)Fori=0To100Debug.PrintiNext(2)Fori=1To9Debug.Print-iNext(3)Fori=10To99Debug.PrintiNext(4)Fori=&H4

INPUT"请输入一个正整数";ni=nt=1DOt=t*ni=i-1LOOPUNTILi=0PRINTtEND