VB编写程序计算出1--100的所有偶数的和与所有奇数的和
来源:学生作业帮助网 编辑:作业帮 时间:2024/10/05 00:08:10
PrivateSubForm_click()DoUntili+7>100i=i+7Printi;LoopEndSu
ModuleModule1SubMain()DimA(,)AsInteger={{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8,9,0},{1,2,3,4,5,6,7,8
求奇偶数:Fori=1to100Ifi/2i\2Thenmsg=msg&i&"是奇数"Elsemsg=msg&i&"是偶数"NextiPrintmsg能被3和5同时整除:Fori=1to100Ifi/
PrivateSubCommand1_Click()DimiAsIntegerDimnAsIntegern=0Fori=1To100IfiMod3=0Thenn=n+1Printn;iEndIfNex
iTot=0Fori=1To100IfiMod5=0OriMod7=0TheniTot=iTot+iNextiPrintiTot结果是:1680【由于字数限制,去除了Sub,及变量定义】
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&
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=
Dims,n,iasIntegerfori=1to100n=(-1)^(i+1)/is=s+nnextiprints再问:在excle中如何检查再答:添加一个命令按钮定义它的单击属性为再添加一个文本显
PrivateSubCommand1_Click()Fori=1To100Forj=1ToiFork=1TojIfi^2=j^2+k^2ThenPrinti;j;kNextkNextjNextiEnd
dimnasintegerdimsasintgerPrivateSubCommand1_Click()Don=n+1s=s+nLoopuntills>=30000Printn-1EndSu
PrivateSubCommand1_Click()Dimn%,sum!,fact!sum=0n=InputBox("输入n:","提示信息",1)IfnMsgBox"数据有误!",48,"警告!"E
dimxasinteger,dimsumasintegerforx=1to100ifxmod3=0thensum=sum+xendifnextxprintsum
将六个圆命名为“Oval1”直到“Oval6”在窗体上放6个timer控件.写入如下代码:Private Sub Form_load()'必要的初始化操作Timer1.in
拜托,这么多输入你就用列表啦,用那么多textbox,你不累我看得都累.还有,你要求的是什么尽量用数学的方式表达出来,有图更好至于你的a5d6的问题,是因为你的是字符串运算而不是数值运算,转换一下类型
tmp = InputBox("随便输入几个数,用逗号隔开就可以了.") &n
PrivateSubCommand1_Click()Dimc()AsVariantDimeAsBoolean'预设五个最小的正整数为1、2、3、4、5Fori=3To11'由题意可得第一第二个正整数必