VB计算c语言DIM,用VB编写程式，计算求1－2+3-4+5-6＋……-200的值

用VB编写程式，计算求1－2+3-4+5-6＋……-200的值以下文字资料是由(历史新知网www.lishixinzhi.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

用VB编写程式，计算求1－2+3-4+5-6＋……-200的值

dim n as long,m as long

dim i as long

n=val(text1.text)

m=0

for i = 1 to n

m=m-(-1)^i*i

next i

text2.text = m

end sub

vb编写程式，计算2×4×6×.×20。

dim i as interger

dim sum as float

sum=0

for i=2 to 20 step 2

sum=sum*i

next i

编写程式,计算1+2+3+.200

#include

int sum = 0;

int i = 1;

while(i <= 200)

{

sum+=i;

i++;

}

sum

编写程式，计算 2+4+6+8+…+(2n)的值

#include

void main()

{

int n,sum=0;

scanf("%d",&n);

for(int i=1;i<=n;i++)

sum+=2*i;

printf("%d\n",sum);

}

编写程式计算S=2+4+6+.+200

s=0

for i=2 to 200 step 2

s=s+i

next

msgbox s

在新建txt输入这个，储存，把txt改成vbs就可以了

VB编写程式 计算1*2*3*.*n 找出能使计算结果大于10^6的值

function jc(n as integer) as long

dim i as integer

jc=1

for i=2 to n

jc=jc*i

next

end function

Private sub form_click()

dim n as integer, s as long

do

n=n+1

s=jc(n)

loop until s>10^6

print "当n大于等于"; n; "时1*2*3*...*n的值大于10^6"

end sub

编写程式计算1-2+3-4+~+99-100

用C语言编个：

#include

void main()

{ int s,i,j;

s=0;

for(i=1;i<=100;i++)

{if(i%2==0) j=-i;

if(i%2!=0) j=i;

s+=j;

}

printf("The sum is %d:",s);

}

编写VB程式，计算1！-2!+3!-4!+.+9!-10!的值

sum =0

for i=1 to 10

jc=1

for j=1 to i

jc=jc*j

next

if i mod 2 =0 then

sum=sum-jc

eles

sum=sum+jc

end if

next

print sum '结果在sum中

用VB编写程式,求1!+2!+3.+10!

Private Sub Form_Load()

f = 1

Sum = 0

For i = 1 To 10

f = f * i

Sum = Sum + f

Next i

MsgBox Sum

End Sub

vb编写程式 求1!+2!+.+100！的值 谢谢啦

jianghe706 把一行程式码弄错了，我这里释出下正确程式码

Private Sub Form_Load()

Me.AutoRedraw = True

Dim sum As Double, num As Double

num = 1

For i = 1 To 100

num = num * i

Debug.Print i & "! ="; num

Next i

End Sub

分页：123