用VB编写 计算s=1 2 3 4 -99 100的值

PrivateSubCommand1_Click()DimsumAsDoubleDimiAsLongDimnAsDoublen=((1/(10^-5))+1)/2'正好等于10^-5时候n的值

如果要判断句子中的英文单词是否正确,那就很麻烦的.如果不要判断单词的正确性,仅仅假设句子中.单词以空格分隔,那么就比较容易实现了.思路:1．计算句子的长度,字符数L2．ZFS----存放英文单词所用到

PrivateSubCommand1_Click()Dima,xAsSinglea=Val(Text1.Text)Ifa再问：x=x+a*0.2+3000*0.2怎么都乘0.2呀？

PrivateSubCommand1_click()DimnAsIntegern=100Printf(n)EndSubFunctionf(n)Fori=1Tonf=f+1/iNextiEndFunct

PrivateSubForm_Activate()a5EndSubSuba(nAsLong)DimiAsLongFori=1TonSum=Sum+1/f(i)NextiPrintSumEndSubFu

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

PrivateSubForm_click()Fori=1To9s=s&iPrints&"*9+"&i+1&"="&Val(s)*9+i+1NextEndSub再问：报错溢出再答：PrivateSubF

阶乘n!=n*(n-1)(n-2)(n-2)···3*2*1

PrivateSubCommand1_Click()DimsAsString,nAsInteger,iAsIntegerFori=1To100n=n+iNextiPrint"1+2+3+……+100=

Dims,n,iasIntegerfori=1to100n=(-1)^(i+1)/is=s+nnextiprints再问：在excle中如何检查再答：添加一个命令按钮定义它的单击属性为再添加一个文本显

PrivateSubCommand1_Click()DimbjAsSingleDimzzAsSingleDimmjAsSinglebj=CSng(Text1.Text)Ifbj

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

ConstPI=3.14159DimrAsDoubleDimCAsDoubleDimSAsDoubleIfIsNumeric(Text1.Text)Thenr=Val(Text1.Text)C=2*P

Private Sub Command1_Click()  Dim pi As Double, t As&nb

首先“落叶|无情”的代码很好,但是我想题目中所说“用Sub过程和Function过程两种方法来实现”的意思,应该是用这两个独立实现求阶乘和,而不是在Sub中还要调用Function.当然,在Sub过程

;MOVAX,AANDAX,B;AX=aANDbMOVBX,AXORBX,B;BX=aXORbADDAX,BXADDAX,BX;AX=2*(aXORb)+aANDbADDAX,A;AX=a+2*(aX

PrivateSubCommand1_Click()dimiasintegerfori=1to55step2m=m+inextiprintmendsu

这个我来帮你吧!我在VB里写好代码再发给你哟!PrivateSubCommand1_Click()DimnAsInteger,sAsDoublen=Val(InputBox("enterda

#includeintmain(){inti,s=0;for(i=1;i

用while的,其它的dowhile的基本相同PrivateSubCommand1_Click()DimnAsIntegern=InputBox("请输入")f=1i=2s=0Wh