VB编写程序完成计算1~100的奇数和 命名"奇数和"
来源:学生作业帮助网 编辑:作业帮 时间:2024/05/09 18:42:15
privatesubform_click()dimnaslong,snaslongn=inputbox("请输入n")fori=0tonsn=sn+2*i+1nextmsgbox"1+3+5+...(
PrivateSubCommand1_Click()DimnAsLong,xAsSingle,yAsSingle,y2AsSingle,sumAsSinglex=Val(InputBox("请输入一个
PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问:x=x+a*0.2+3000*0.2怎么都乘0.2呀?
SubMain()MsgBoxFunc(100,2,5)'按照要求写的例子EndSubRem参数(最大值,被整除的数的数组)FunctionFunc(n&,ParamArrayx())Dimi&,b&
OptionExplicitPrivateSubCommand1_Click()DimsAsSingle,nAsLong,stAsStringn=1s=0DoDoEventss=s+nst=st&nI
dimiaslongdimsumaslongsum=0fori=1to100step2sum=sum+inextiprintsum
语句自己找给思路.第一种:暴力运算1.申请2个变量jsum,osum分别放奇数和、偶数和.赋初值0.2.做个循环从1到100,变量用i2.1判断i是否为奇数,是的话jsum=jsum+i,否则osum
阶乘n!=n*(n-1)(n-2)(n-2)···3*2*1
PrivateSubCommand1_Click()DimsAsString,nAsInteger,iAsIntegerFori=1To100n=n+iNextiPrint"1+2+3+……+100=
DimaAsInteger'首项DimbAsInteger'末项DimcAsInteger'项数DimdAsInteger'结果PublicSubAdd()a=InputBox("首项","")b=I
PrivateSubCommand1_Click()Fori=1To100Forj=1ToiFork=1TojIfi^2=j^2+k^2ThenPrinti;j;kNextkNextjNextiEnd
PrivateSubCommand1_Click()DimbjAsSingleDimzzAsSingleDimmjAsSinglebj=CSng(Text1.Text)Ifbj
n=""@2,10say"计算n个数的平均值,先输入数值个数n"getnpicture"999999"readn=val(n)DIMENSIONx(n)store0toxs=0fori=1ton@4,
新建工程,添加command1控件.vb6.0+xp调试成功代码如下:DimnAsIntegerPrivateSubCommand1_Click()m=InputBox("请输入底数m")n=Inpu
ConstPI=3.14159DimrAsDoubleDimCAsDoubleDimSAsDoubleIfIsNumeric(Text1.Text)Thenr=Val(Text1.Text)C=2*P
关于你说的变量的声明(定义)问题,你需要掌握变量的作用域的概念:我给你一个例子,看看能否了解.
dimxasinteger,dimsumasintegerforx=1to100ifxmod3=0thensum=sum+xendifnextxprintsum
拜托,这么多输入你就用列表啦,用那么多textbox,你不累我看得都累.还有,你要求的是什么尽量用数学的方式表达出来,有图更好至于你的a5d6的问题,是因为你的是字符串运算而不是数值运算,转换一下类型
;MOVAX,AANDAX,B;AX=aANDbMOVBX,AXORBX,B;BX=aXORbADDAX,BXADDAX,BX;AX=2*(aXORb)+aANDbADDAX,A;AX=a+2*(aX
#include"stdio.h"#include"stdlib.h"intmain(){intx=3829;inta1,a2,a3,a4;intsum;a1=x/1000;a2=x/100%10;a