VB 利用do while...loop计算从1开始的能被3和4整除的数之和

需要的控件：命令按钮,2个,command1,command2标签,2个,label1,label2command1代码：Private Sub Command1_Click()&

Private Sub Command1_Click()    Dim i As Integer &

解题思路：历史知识的积累解题过程：<三国演义>最终答案：略

functionf(xasdouble)asdoubleifx>=20thenf=x+3elseifx>10thenf=x*3+1elsef=x*2+1endifendfunction

PrivateSubCommand1_Click()Dimi,max,min,sAsIntegermax=0min=100s=0Dima(30)AsIntegerText1.Text=""Text2.

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

PrivateSubCommand1_Click()Dimi,aAsInteger,bAsStringDoa=4LoopWhilea9Fori=1Toab=""Forj=1To(i-1)*2+1b=b

假设级数表达式为f(i),随i值的变化而减小,则可在循环时利用级数f(i)和f(i-1)的差值来与10^-6比较,当两次计算的结果满足dpp=Abs(dc)b=b*-1n=n+1mv=rad^(2*(

Circle(1000,1000),500,8,-6,-31000,1000,圆心坐标500,半径后面分别代表起始角,终止角,长短轴比率好吧,详细点,就把Circle方法都说一遍在对象上画圆、椭圆或弧

我已经上机验证过了,正确.思路：产生80个随机数,把这80个随机数由小到大排序,然后从第1个到第80个的顺序挑选偶数,赋值给字符串s1,够10个换行.再从第80个到第1个的顺序挑选奇数,赋值给字符串s

Fori=1To20Forj=1To20Ifa(i)n=a(i)a(i)=a(j)a(j)=nEndIfNextjNexti

一般而言,人体中既包含L型也包括D型的氨基酸,而只有L型的才能够参与到代谢过程中,具有生理活性,而D型的只是作为结构成分的基本组成单位,不具有什么功能而已.再问：哦，但人体内不是有异构酶吗，不是可以将

PrivateSubForm_Load()Dima,b,cAsSingleDimp,sAsSinglea=Val(InputBox("请输入边长1"))b=Val(InputBox("请输入另一边长"

PrivateSubForm_Load()DimXAsLong,YAsLong,KAsLongDimAAsLong,BAsLongA=6B=8X=IIf(A>=B,A,B)'x存入最大值Y=IIf(A

fori=2to88sum=sum+inextprintsum

PrivateSubCommand1_Click()DimChengLiAsBooleanDimmAsInteger,nAsInteger,iAsIntegerChengLi=FalseLine1:m

其实你这个需求用电子表格就可以实现,何必用VB编程呢?MicrosoftExcel所见即所得,灰常方便!而且数据输入一次就可以了,如果想要更强的功能,它还支持VBscript编程,虽不如VB强悍但是也

B&=1FORA=1TO100B&=B&*ANEXTAEND

'cosx=1-x^2/2!+x^4/4!.+x^(2n)/(2n)!我写的代码：Private Sub Command1_Click()   

PrivateSubCommand1_Click()DimmAsLong,nAsLong,rAsLong,xAsLong,yAsLongm=Val(InputBox("M=")):x=mn=Val(I