VB题 编程计算 1-2+3-4+5-6…±n的值,n由文本框输入。 dim i,sum ,sum1,sum2,as_____

如题所述

增加一个Command控件,一个Label控件【显示值】,一个Text控件【用户输入值】,代码如下: Private Sub Command1_Click() Dim i As Long Dim sum As Long For i = 1 To CLng(Text1.Text) If i Mod 2 = 0 Then sum = sum - i Else sum = sum + i End If Next Label1.Caption = sum End Sub 追问: VB题 编程计算 1-2+3-4+5-6…±n的值,n由文本框输入。 Private Sub Command1_Click() dim i,sum ,sum1,sum2,as_____ n = Val(Text1.Text) sum = sum1=______ sum 2=0 For i =1 to ________ If i _____ 2◇ 0 Then sum1 = sum1 - i Else sum 2= _____ end If next_____ sum=_____ print sum End_____
温馨提示:内容为网友见解,仅供参考
第1个回答  2015-04-26
Private Sub Command1_Click() Dim n As Long, s As Long n = Val(Text1.Text) For i = 1 To n s = s + i * (-1) ^ (i - 1) Next i MsgBox "所求值为:" & s End Sub本回答被提问者采纳

设计一个函数,计算s=1-2+3-4+5-6+…±N的值,要求时间复杂度为O(1),越...
1-2=-1 3-4=-1 5-6=-1 如果n是奇数的话 答案是-(n-1)\/2+n 如果N是偶数的话答案是-n\/2 include<stdio.h> include<string.h> int sum(int n){ if(n%2==1)return -(n-1)\/2+n;else return -n\/2;} int main(){ int n;scanf("%d",&n);printf("%d\\n",sum(n));r...

C语言用while写出1-2+3-4+5-6...+N的合
int main(void) \/* 1-2+3-4+5-6...+N *\/ { int this = 1; \/* 运算起始 *\/ int n;scanf("%d", &n); \/* 输入N的值 *\/ int sum = 0;while (this <= n) { if (this%2 == 0) \/* 是合数 *\/ sum -= this;else \/* 是基数 *\/ sum += this;this ++; \/* thi...

VB编程 利用循环实现计算1+2+3+4+…+100的值。 怎么做
事件通过Button1触发,结果由Textbox显示出来。

vb里面运用计数循环结构计算出1+2+3+...+N 求过程
For i As Integer = 1 To num sum += i Next response.write("1+...+" & num &"=" &sum)a1和a2是页面中的文本框 根据文本框输入的值,计算和,再显示在页面上

编写程序,计算1!+2!+3!+...+n!的值,其中n的值由用户输入。答案给出来了...
include <stdio.h> main ( ){int k,l,n;\/*n代表用户输入的值;k是一个循环变量,代表从1到n;l也是循环变量代表从1到k,用来计算 k!时用*\/ double sum=0,fact_k=1;\/*fact-k=1,这是给fact_k赋一个初始值,下面在计算每一个k的阶乘时会用到*\/ printf("Please Input n:");scanf...

1-2+3-4+5-6+...+99-100的编程怎么写
dim sum as Integer sum=0 for i=1 to 100 if (i Mod 2)=0 then sum=sum-i else sum=sum+i end if next debug.print sum

求1-2+3-4+5-6+...-98+99的和(Python)
代码如下:coding=utf-8sum = 0for i in range(1, 101): if i % 2 == 0: sum -= i else: sum += iprint(sum)运行结果:

用vb求1\/1+2\/3+3\/5+4\/7+5\/9+……的前n项之和
Private Sub Command1_Click() Dim n As Integer, Sum As Double n = InputBox("n=") For i = 1 To n Sum = Sum + i \/ (2 * i - 1) Next i Print "Sum(i=1 to " & n & ")[i\/(2i+1))]="; SumEnd Sub ...

编程计算sum=1+2+3+……+n的值,为什么要这样写?
你好!编程计算sum=1+2+3+……+n的值,要这样写是因为sum是求和公式,这样编程,系统在运行时就会自动求和。以上都是纯手打,希望可以帮到你!

求大神指点:提示用户输入一个正整数N,计算1-2+3-4+5...+N的和!_百度...
main(){ int n,sum=0,f=1; printf("请输入一个整数N:"); scanf("%d",&n); for(int i=1;i<=n;i++){ sum=sum+(i*f); f=-f; \/\/ 一负一正来回徘徊,即可形成1-2+3-4+5...N这种效果。 } printf("%d",sum); return 1;} ...

相似回答