在VB中编程实现计算s=1 1 2 1 3 - 1 n的值.

数学计算可以简化过程：因为1-2=-1,3-4=-1...所以得出-1+(-1)+...,重复(100/2)次,即代码为(这是最简单而且最快速的办法)：DimsAsInteger=-(100/2)如果

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

看看我以下回答的答案吧：http://zhidao.baidu.com/question/332055124.html

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

i=0s=0DOWHILEi

 这个就是用for实现的#include <stdio.h>int main(){ int num = 0; 

PublicFunctions(n)Dimi,j,t,resFori=1Tont=1Forj=1Toit=t*jNextres=res+tNexts=resEndFunction

你好!PrivateSubForm_Click()DimiAsIntegerDimsAsIntegerFori=1To100s=s+iNextiPrintsEndSu

代码如下：dimi,a(100)asintegerrandomizefori=0to99a(i)=int(rnd*(100-1+1))+1'这是一个公式,next

1.不明白你是什么意思2.逆序输出PrivateSubText1_Change()Text2=Right(Text1,1)&Left(Text1,1)EndSub3.华氏转摄氏PrivateSubTe

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

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

添加一个Listbox控件然后Ifc=Fix(c)Andc

OptionExplicitPrivateSubCommand1_Click()Dima,b,ca=1:b=-5:c=6Printa,b,c&vbNewLine&fc(a,b,c)EndSubFunc

DimaAsIntegerDimsAsIntegerPrivateSubCommand1_Click()s=0Fori=1To100IfiMod2=1Thena=iIfiMod2=0Thena=-is

PrivateSubCommand1_Click()dimiasintegerfori=1to55step2m=m+inextiprintmendsu

Dimi,sAsIntegerFori=2To100step2s=s+iNexti

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

用Sub过程实现：PrivateSubCommand1_Click()DimtAsLongs=0fac01,ts=s+tfac02,ts=s+tfac03,ts=s+tPrint"s=1!+2!+3!

PrivateSubCommand1_Click()DimnAsInteger,iAsIntegerDimxAsVariant,sumAsDoublen=20x=CDec(x)x=1Fori=1Ton