VB中根据公式计算π

#include<stdio.h>main(){ longi,a=1,b=3; doublep=1,t=1,t1=0; while(t-t1>=1e-8

放四个text1-text4,四个label1-label4,一个command1,调整好大小和位置代码如下：privatesubform_load()label1.caption="本金"label

=year(now())-year(存放出生年月数据所在单元格）+1,公式的意思是,用今年的年份减去出生的年份,再加上1,即为年龄.这个年龄通常用于干部职工登记的年龄.别忘了将用于存放公式的单元格格式

返回一个包含随机数值的Single.语法Rnd[(number)]可选的number参数是Single或任何有效的数值表达式.返回值如果number的值是Rnd生成小于0每次都使用number作为随机

对数运算：用log函数,log(n)返回n的自然对数值（double型）.要计算以n为底x的对数值,可写为log(x)/log(n)计算lg(2)：log(2)/log(10)

PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimsumAsDoublen=Val(InputBox("PleaseEnterN:"))sum=

对于一维数组a元素个数为UBound(a)-LBound(a)+1

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

DimAx#,Ay#,Bx#,By#,Cx#,Cy#,AB#,BC#,CA#,角A#,角B#,角C#Ax=1:Ay=0:Bx=0:By=0=0:Cx=1:Cy=1'举例为第一象限45度三角形AB=Sq

要求已知圆的半径R,内接多边形的边数n,则公式可以如下：ConstPI=3.141593s=n*R^2*Sin(2pi/n)/2

提示：1,根据两点公式,长的三面：L1=SQR（（X1-X2）^2+（Y1-Y2）^之间的距离,可以计算出2）2,长的三面,发现该地区的?一个三角形,根据海伦公式求.

DimsignAsInteger,aAsLong,piAsDoublesign=-1Fori=1To100000a=2*i-1sign=-1*signpi=pi+(1/a)*signNextpi=pi

意思是“路径”,也可能是一个普通的变量,没有具体的意思,具体要看用在什么地方

他们的答案好像都没有输出结果.Dim r, s, c As IntegerPrivate Sub Command1_Click()

for循环本身就是拿来按指定次数运行的啦,如果在循环中加一个如A=A+1算式,那么当退出for循环后,A的值就是循环的次数了.【回答补充】分析程序时,怎么分析for的循环次数?答案如下：设：Fori=

1、正确的循环次数应该是：X=0ForI=aTobStepcX=X+1NextIX是循环总次数2、我认为你的：“循环总次数=(b-a)\c+1”应该是的,例如：ForI=1To10Step3的循环总次

'x1=进口二氧化硫x2=出口二氧化硫privatesubCountFun(x1asfloat,x2asfloat)asfloatprivateyasfloaty=（x1-x2）/x1CountFun

Sub aa()'用9行数据做说明,看是不是你要的东西；Dim x As IntegerFor x = 2 To

自已写个累加

PrivateSubCommand1_Click()Dimn,pi,ipi=2n=Val(InputBox("请输入一个数"))Fori=1Tonpi=pi*((2*i)^2/((2*i-1)*(2*