编写程序VB:计算出给定范围内所有正整数的各位数字之和,3000到4000

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

PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问：x=x+a*0.2+3000*0.2怎么都乘0.2呀？

PrivateSubCommand1_Click()DimnAsLong,xAsLongn=InputBox("请输入一个整数：")x=Sqr(n)Ifx*xnThenMsgBox(n&"不是一个完全

dimi,j,a,basintegerfori=0to99a=i\10b=imod10ifa*b>a+bthenj=j+1nextprintj再问：a=i\10b=imod10是什么意思？有什么作用？

公倍数,余下的,再装到其中一种盒子中.再问：。。。。这就是不知道肿么编啊程序死了N次了对信息真心要没信心了怎么编啊？

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

PrivateSubCommand1_Click()Fori=1To7Step2s=""Forj=1To7-iStep2s=s&""Nextjm=""Fork=1Toim=m&iNextks=s&mP

x=20(a>b)and(c再问：这是一道选择题~我想知道不理解的状况下可不可以利用vb或vf里面的程序直接算出结果~再答：当然可以了。PrivateSubCommand1_Click()a=5:b=

PrivateSubCommand1_Click()DimIAsInteger,JAsIntegerDimAAsInteger,BAsIntegerDimSAsString,NAsIntegerDim

PrivateSubCommand1_Click()Fori=1To100Forj=1ToiFork=1TojIfi^2=j^2+k^2ThenPrinti;j;kNextkNextjNextiEnd

dimnasintegerdimsasintgerPrivateSubCommand1_Click()Don=n+1s=s+nLoopuntills>=30000Printn-1EndSu

感觉不是很明确,比如9怎么算,21怎么算,说清楚好编程

PrivateSubbtnstart_Click()'按要求写了If-Then语句,不过个人认为Select-Case比较适合这个.IfMe.txbplanet.Text="Jupiter"Then'

PrivateSubCommand1_Click()'IntegerRandomizeLabel1.Caption=Int(Rnd*(101)-50)EndSubPrivateSubCommand2_

这一行：DoWhilex>a(p)Andp

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

将六个圆命名为“Oval1”直到“Oval6”在窗体上放6个timer控件.写入如下代码：Private Sub Form_load()'必要的初始化操作Timer1.in

拜托,这么多输入你就用列表啦,用那么多textbox,你不累我看得都累.还有,你要求的是什么尽量用数学的方式表达出来,有图更好至于你的a5d6的问题,是因为你的是字符串运算而不是数值运算,转换一下类型

    tmp = InputBox("随便输入几个数,用逗号隔开就可以了.")   &n

我HI你吧,等一下