vb计算1 5 7 9-- 99 101的值

如果你定义很多个变量的话,实现代码怎么着都不会简短的,可以用数组实现,下面代码可以参考一下：OptionExplicitDimgrp()AsStringPrivateSubForm_Load()ReD

【答案】：12【运行过程】由于step(步长)为3,每次循环时,i都会+3.如果不写step3则默认每次循环+1循环ii与10比较s①3

FunctionS(rAsSingle)AsSingle'Function过程Constpi=3.1415926535898S=pi*r^2EndFunctionPrivateSubForm_Clic

OptionExplicitPrivateSubCommand1_Click()Label1.Visible=TrueDimrAs__single___Dim____s___AsDouble_cons

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

for循环默认有个setp1,i会每次自动增1,循环体里还有个i=i+1,所以,第一次sum从0变为1,然后i为了3,符合条件进入第二轮,sum=1+3=4,接下来由于i变为5,不满足再问：循环结束了

在命令按钮里加上以下代码：DimiAsInteger,kAsInteger,jAsIntegerDimxAsStringj=0Fori=1To35Fork=1To35If(i*3+k*4)=100Th

4个text1-text4,Label1(0-3).PrivateSubCommand1_Click()Dimk1AsSingle,k2AsSingle,k3AsSingle,k4AsSinglek1

这是个双重循环变量s=1Fori=1To3循环3次第一次i=1Forj=0To0循环一次s=1+1*0s=1输出1第二次i=2Forj=0To1循环两次s=1+1*0s=1s=1+1*1s=2输出2第

PrivateSubCommand1_Click()DimiAsInteger,jAsInteger,sumAsLong,taAsLongta=1Fori=5To10Step5Forj=2Toita=

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

PrivateSubForm_Load()DoDimaAsSingle,bAsSingle,cAsSingle,pAsSingle,sAsSinglea=Val(InputBox("请输入三角形第1条

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

定义9个变量a,b,c,d,e,f,g,h,i1-9分别赋给他们,共9的阶乘362880种,abcdefghi做判断a+b+c=15?d+e+f=15?...都符合abcdefghi值,输出~唉,你也

帮忙详细解释下VB计算过程1个dimz是窗体级变量,窗体不销毁值始终保留,不会重新初始化,再次进入函数时z值为上次运行结果第2个dimz是过程（函数）级变量,函数执行完后,再次进入函数时值重新初始化<

不好意思我好久没用vb了大概如下dimcassingledimxassinglex=inputbox("输入x")c=5*(x-32)/9printc\我以前把vb删了不能试你试试吧

dima,b,c,x1,x2asinteger点计算之后a=textboxA.textb=textboxB.textc=textboxC.textx1=(-b-(b^2-4*a*c)^0.5)/(2*

DimcAsObjectSetc=CreateObject("MSScriptControl.ScriptControl")c.Language="vbscript"MsgBoxc.Eval("2+4

dimaaslongdimbaslongdimcaslongdimdassinglex1,x2也是dim(定义变量一般都是用dim)d=b^2-4acif再问：constaAslongbAslongc

Functionfactorial(nAsInteger)AsLongDimiAsIntegerDimretAsLongret=1Fori=1Tonret=ret*iNextifactorial=re