vb代码s=1 2 1 4 1 6 1 8 1 10

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

既然后边都会用abs了,为何前边不用.iy(0)相当于i-y(0)0iy(0)+-1相当于i-y(0)+-1如果i和y(0)都是integer,那么可以这样写abs(i-y(0))>1以此类推j,k

一个text控件PrivateSubForm_Load()DimRAsDoubleDimSAsDoubleR=Val(Text1.Text)S=3.14*(R^2)MsgBoxStr(S)EndSu

就是在文本框中打出：*****的意思.cht(13)&chr(10)是换行的意思.

s的初始值为32,经过若干次除以2之后变成2.32/2=1616/2=88/2=44/2=2也就是说要经过4次循环就可以了.如果步长为1,那么1to10一共要经过10次,超了.如果步长为2,那么1to

SubCommand1_Click()DimDeltaAsSingleDimaAsSingle,bAsSingle,cAsSingleDimx1AsSingle,x2AsSinglea=Val(Tex

楼上的是什么版本?VB6.0就这样ifa=1ora=2ora=3ora=4then要保存数据可以写入文件DIMAASINTEGER保存A:OPEN"c:\A.DAT"FORBINARYAS#1PUT#

dima%(1to10)max=0:k=0fori=1to10a(i)=int(rnd*(99-10+1)+10)text1=text1&a(i)&space(2)ifa(i)>maxthenmax=

Case"A"To"Z"aa=Chr$(KryAscii+32)KeyAscii打错了

Private Sub Command1_Click() Dim i As Integer, j As Int

可以这样简化,但意义似乎不大fora=0to20ifa=18thentext(a).forecolor=***endifnext再问：没看懂，解释一下好吗再答：汗……有哪里不懂呢？注释部分的英语意思是

一楼的很复杂,给你来个简单的：PrivateSubCommandButton1_Click()Dimi,s,kDimnaaa:n=InputBox("请输入大于等于1的数字")IfVal(n)>=1T

PrivateSubCommand1_Click()Dimi,j,tDimsumsum=1Fori=2To10t=1Forj=1Toit=t*2Nextjsum=sum+tNextiPrintsumE

第一题：OptionBase1PrivateSubCommand1_Click()Dima()AsLongn=InputBox("请输入要求的第n个数")ReDima(n)a(1)=1a(2)=1Se

mid从指定位置截取指定长度的容.mid(string,start,len)

privatesubform_load()form1.scale(-10,10)-(10,-10)endsubprivatesubcommand1_click()dimXassingleform1.l

应该为ifb²-4ac>=0thenx1=负的2a分之b+根号下b²-4acx2=负的2a分之b-根号下b²-4acelse此二元一次方程无实数根endif如果要说明a不

正整数解太多了,应该求一定范围的定义在一百范围,maxint=100吧用x,y,z三个for循环实现forx=1tomaxintfory=1tomaxintforz=1tomaxintoifx+2y+

一、你没有考虑a＝0的情况二、n=和m＝这两句,你要把2*a用()括起来做分母或者你把*号,换成除号/就不用括起来了!还有楼上说的,分子也要括起来!哈哈

代码PrivateSubCommand1_Click()Dima,b,c,x1,x2a=InputBox("a",,2)b=InputBox("b",,4)c=InputBox("c",,1)Ifb^