vb计算代数式

如果你定义很多个变量的话,实现代码怎么着都不会简短的,可以用数组实现,下面代码可以参考一下：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

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

这是个双重循环变量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值,输出~唉,你也

(x+y)/(x-y)VB表达式还是这个

帮忙详细解释下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

解题思路：利用平方的定义来考虑解题过程：解：6x2-5y+7x=-1/2,y=3x=1/2,y=3两个代数式的值是一样的，因为（－1/2)2＝（1/2)2最终答案：略

你的意思是说做一个计算器之类的东西吧.明白了说,比较的麻烦一占,但也不是很难.我旁边的同学说了,要用两个栈,一个栈存入操作数,一个栈存放操作符,判断操作符,如果满足条件立即弹出,然后取操作数,如果遇到

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

照你写的没有错.