编写vb程序,求 1-1 2 1 3-1 4 -- 1 n 的值.(保留两位小数

Dimax,yAsIntegerPrivateSubCommand1_Click()x=Text1.TextIfx>0Theny=4*x+1Else:y=3*x+1EndIfText2.Text=yE

添加一个文本框输入前N项的N值,再添加一个命令按钮即可PrivateFunctionF(NAsLong)AsLongIfN>2ThenF=F(N-1)+F(N-2)ElseF=1EndIfEndFun

求奇偶数:Fori=1to100Ifi/2i\2Thenmsg=msg&i&"是奇数"Elsemsg=msg&i&"是偶数"NextiPrintmsg能被3和5同时整除:Fori=1to100Ifi/

iTot=0Fori=1To100IfiMod5=0OriMod7=0TheniTot=iTot+iNextiPrintiTot结果是:1680【由于字数限制,去除了Sub,及变量定义】

PrivateSubCommand1_Click()n=Val(Text1.Text)Fori=1Tons=s+iNextiText2.Text=sEndSu

Dimi,j,sAsIntegerFori=1To500s=0Forj=1Toi\2'i\2表示整除结果IfiModj=0Thens=s+jNextjIfi=sThenPrinti&"是完数"Next

答案：485PublicSubCountGT13()DimiAsLongDimrAsLongDimsAsLongDimtAsLongDimnAsLongn=0Fori=100To999r=Int(i/

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

PrivateSubCommand1_Click()s=1n=1DoWhiles再问：最后的答案是啥呢大哥n值和s值。。我完全不懂得老师布置的作业再答：6和720再问：大哥看清楚题目确定没错吧错了我要

OptionExplicitPrivateSubCommand1_Click()DimsAsSingle,nAsLong,stAsStringn=1s=0DoDoEventss=s+nst=st&nI

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

'最大公约数FunctiongetGcd(num1AsLong,num2AsLong)AsLongDimiAsLongFori=IIf(num1Ifnum1Modi=0Andnum2Modi=0The

Dims,n,iasIntegerfori=1to100n=(-1)^(i+1)/is=s+nnextiprints再问：在excle中如何检查再答：添加一个命令按钮定义它的单击属性为再添加一个文本显

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

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

PrivateSubCommand1_Click()Dimn%,sum!,fact!sum=0n=InputBox("输入n:","提示信息",1)IfnMsgBox"数据有误!",48,"警告!"E

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

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

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

我HI你吧,等一下