VB设计程序计算根号2

PrivateSubCommand1_Click()DimnAsInteger,tmpAsDouble,sumAsDoubleDimiAsInteger,jAsIntegern=4tmp=1Fori=

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

根据成绩计算绩点的公式是什么?60分绩点是1,然后每增加1分,绩点就增加0.1,例如:80就是绩点为3,98就是绩点为4.是这样子吗?如果是这样子的~程序：dimphy,eng,mathphy=79'

OptionExplicitPrivateSubCommand1_Click()Label1.Visible=TrueDimrAs__single___Dim____s___AsDouble_cons

4个text1-text4,Label1(0-3).PrivateSubCommand1_Click()Dimk1AsSingle,k2AsSingle,k3AsSingle,k4AsSinglek1

你给的公式不对!应该是π/2＝2^2/1*3×4^2/3*5×.×（这个公式求的精度不高!代码如下：DimPI1AsDoubleDimPI2AsDoubleDimTempAsDoubleDimnAsD

PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,sumAsLong,taAsLongta=1Fori=5To10Step5Forj=2Toita=

阶乘n!=n*(n-1)(n-2)(n-2)···3*2*1

PrivateSubCommand1_Click()DimsAsString,nAsInteger,iAsIntegerFori=1To100n=n+iNextiPrint"1+2+3+……+100=

定义9个变量a,b,c,d,e,f,g,h,i1-9分别赋给他们,共9的阶乘362880种,abcdefghi做判断a+b+c=15?d+e+f=15?...都符合abcdefghi值,输出~唉,你也

PrivateSubCommand1_Click()DimiAsDoubleDimnAsDoubleDimsumAsDoublesum=0IfNotIsNumeric(Text1.Text)Then'

elseif连起来就行了PrivateSubCommand1_Click()DimaAsSingle,bAsSingle,cAsSingle,dAsSinglea=Val(Text1.Text)b=V

PrivateSubCommand2_Click()DimIAsLong,SAsLongForI=1To100IfIMod2=0ThenS=S-IElseS=S+IEndIfNextPrintSEnd

PrivateSubCommand1_Click()DimiAsInteger,sAsIntegers=0Fori=1To99s=s+i*(i+1)NextiDebug.Print"计算1*2+2*3

一个很诡异的方法：Sum=0a=InputBox("请输入一个正整数")Fori=1ToLen(a)Sum=Sum+Val(Mid(a,i,1))Next

Dima(20)'如果不需要显示20个数的话,不需要数组,a(i)用X代替就可以Dimmax!,Min!,i%PrivateSubCommand1_Click()'按钮单击Fori=1To20a(i)

PrivateSubForm_Click()Dimd1AsIntegerDimd2AsSingleDimd3AsIntegerDimd4AsStringDimd5AsIntegerDimd6AsInt

'10元和50元两种纸币组成240元,列出所有不同的取法和种数.PrivateSubCommand1_Click()Dima%,b%,count%Fora=1To19Forb=1To4Ifa*10+b

DimsumAsInteger,iAsIntegersum=0Fori=1To100sum=sum+iNextDebug.Print"1+2+...+100=";sum

新建一个工程,双击Form1窗体空白区域,在出现的代码窗口中输入如下代码：PrivateSubForm_Load()a=InputBox("请输入边长：","计算正方形的面积")MsgBox"面积="