编程计算累加vb

㈠ 求用VB做的 1-100 累加法 写上算法、流程、程序.

在窗体上增加一个command控件Private
Sub
Command1_Click()
Dim
i
As
Integer
'定义一个循环变量i
Dim
sum
As
Long
'定义一个存放和的变量
sum
=
0
'初始化变量值为0
For
i
=
1
To
100 '采用For循环
sum
=
sum
+
i
'第一次循环，采用和+循环变量值的方法累加
Next
'下一次，相当于i=i+1，即i=2，再返回到For循环，判断i值是否满足<100，满足再次执行累加和操作，将前一次的和加上本次循环变量值后存放sum中
Print
sum
'循环完成后在窗体打印累加的和值
End
Sub

㈡ 怎样用VB按钮实现累加急……在线等……

通用代码段
dim x as integer
(x=0)要不要都行，不规定x值，自动默认为0
文本框 点击（Click）
x=x+1

㈢ vb编程求累加101+102+103+…+x的值,用水平滚动条

可以参考下面的代码：

OptionExplicit

PrivateSubHScroll1_Change()

Dimn,sum

Label2.Caption=HScroll1.Value

n=100

Do While (n < HScroll1.Value)

n=n+1

sum=sum+n

Loop

Label4.Caption=sum

EndSub

(3)编程计算累加vb扩展阅读：

VB参考函数

CStr 函数： 返回已被转换为字符串子类型的变体的表达式。

日期和时间常数： 在日期和时间运算中用来定义星期几和其他常数的常数列表。

日期格式常数 用于日期和时间格式的常数列表。

Date 函数： 返回当前系统日期。

DateAdd 函数： 返回加上了指定的时间间隔的日期。

DateDiff 函数： 返回两个日期之间的间隔。

DateValue 函数： 返回日期子类型的变体 。

㈣ VB编程题：完成fun(a,b)函数，要求实现a到b的累加,

Function c(a, b As Integer) As Integer
Dim i, j As Integer
j = 0
For i = a To b
j = j + i
Next i
c = j
End Function

Private Sub Form_Load()
Caption = c(1, 100)
End Sub

㈤ 求VB程序设计 累加问题

Dim c As Integer

Private Sub Form_Load()
c = 0
Text1.Text = c
End Sub
Private Sub Command1_Click()
c = c + 1
Text1.Text = c
End Sub

㈥ VB编程实现s=1-2+3-4+...+97-98+99-100的计算

编写累加函数
Private Function SumModSeri()
Dim s As Integer, i As Integer '声明变量s和i
For i = 1 To 100 '变量由1到100循环累加
If i Mod 2 = 0 Then
s = s - i ‘如果变量i为偶数，则减i
Else
s = s + i '如果变量i为基数，则加i
End If
Next i '回头处理下一个i值
SumModSeri = s ' 函数输出累计计算结果
End Function

调用函数举例
Private Sub Command1_Click()
MsgBox SumModSeri '提示框显示计算结果为-50
End Sub

㈦ 在线等VB求救：计算累加

Private Sub Command1_Click()
Dim Str1, S As Integer, Str2 As String, t As Integer
Str1 = Split(Text1, vbCrLf)
For i = UBound(Str1) - 1 To 0 Step -1
If Str1(i) <> "" Then S = S + 1
If S <= 3 Then
t = t + Val(Str1(i))
ElseIf Str1(i) <> "" Then
t = Val(Right(t, 1))
Str2 = Str2 & t & vbCrLf
t = t + Val(Str1(i))
End If
Next
Str2 = Str2 & Right(t, 1)
Open App.Path & "\累加结果为.txt" For Output As #1
Print #1, Str2
Close #1
Shell "C:\WINDOWS\NOTEPAD.EXE " & App.Path & "\累加结果为.txt", 1
End Sub

㈧ 用VB怎么把输入的数值相加起来，代码哦

1、首先开始编写代码，定义变量，如下图所示。

㈨ vb编程计算x与y之间所有完数的累加和

1-1000之间只有3个完数，1000-10000之间只有1个完数，你规定范围，如果数字太大，比如1-1000000，程序会死机的。

㈩ 怎样编vb程序代码来计算阶乘的累加

代码如下：