vb计算1-N奇数和

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

Private Sub Command1_Click()    Dim i As Integer &

放四个text1-text4,四个label1-label4,一个command1,调整好大小和位置代码如下：privatesubform_load()label1.caption="本金"label

#includevoidmain(){doublea,b(1),s=0;for(a=1;a

dimiaslongdimsumaslongsum=0fori=1to100step2sum=sum+inextiprintsum

    Dim I As Integer, N As Integer  &nbs

语句自己找给思路.第一种：暴力运算1.申请2个变量jsum,osum分别放奇数和、偶数和.赋初值0.2.做个循环从1到100,变量用i2.1判断i是否为奇数,是的话jsum=jsum+i,否则osum

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

PrivateSubCommand1_Click()Dim奇数和AsLongDim偶数和AsLongDim你输入的数AsIntegerDimiAsLong你输入的数=InputBox("请输入一个整数

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

PrivateSubCommand1_Click()DimS_numAsLongS_num=Val(Text1.Text)Text2.Text=""Text3.Text=""IfS_num>0Then

话说楼上的已经很好了,还要在做什么?算了,给你个实例吧,添加一个command按钮,输入以下代码OptionExplicitPrivateSubCommand1_Click()DimresultAsL

PrivateSubCommand1_Click()Dimi,sum1,sum2AsIntegersum1=0sum2=0Fori=1To100IfiMod2=1Thensum1=sum1+iElse

PrivateSubCommand1_Click()DimiAsLong,sumAsLongFori=1To50Step2sum=sum+i*(i+1)*(i+2)NextMsgBox"级数前50项奇

PrivateSubCommand1_Click()DimiAsLong,Si=0:S=0WhileSi=i+1S=S+i*(i+1)WendText1.Text=SText2.Text=iEndSu

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

vari,n,x,y,z:longint;beginreadln(n);fori:=1tondobegininc(x,i);ifiand1=1theninc(y,i)elseinc(z,i);end;

在窗口上建立一个按钮：FunctionTotal(Num1,Num2)AsString'Num1为奇数和'Num2为偶数和Fori=1To100IfiMod20ThenNum1=Num1+iElseN

PrivateSubCommand1_Click()DimNAsLong,SAsLongDoN=N+1S=S+N*(N+1)IfS>5000ThenExitDoLoopPrint"结果="&SPrin

建立一个text1、一个command1,代码如下：PrivateSubCommand1_Click()IfNotIsNumeric(Text1.Text)ThenMsgBox("请先在框中输入数字的