編程計算累加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程序代碼來計算階乘的累加

代碼如下：