vb編程1到100的和

Ⅰ 用VB編一個程序,求從1至100的自然數的和

dim i as integer
dim sum as integer
i = 1
方法1
do while i 100
sum = sum + i
i = i + 1
loop
方法3
do
sum = sum + i
i = i + 1
loop while i < 100

Ⅱ 用vb從1加到100的程序怎麼寫

Private Sub Form_Click()

Dim sum1 As Long, sum2 As Long, sum3 As Long, j As Long, n As Long

For j = 1 To 100

sum1 = sum1 + j

If j Mod 2 = 0 Then

sum3 = sum3 + j

Else

sum2 = sum2 + j

End If

Next

Me.Cls

Print "整數和："; sum1

Print "奇數和："; sum2

Print "偶數和："; sum3

End Sub

Ⅲ 急！！！！VB編程求1加到100的和，5種方法！！！！！

Option Explicit

Private Sub Command1_Click()
Dim i As Integer, s As Integer
For i = 1 To 100
s = s + i
Next
Print s
End Sub

Private Sub Command2_Click()
Dim i As Integer, s As Integer
Do While i <= 100
s = s + i
i = i + 1
Loop
Print s
End Sub

Private Sub Command3_Click()
Dim i As Integer, s As Integer
Do
i = i + 1
s = s + i
Loop While i <= 99
Print s
End Sub

Private Sub Command4_Click()
Dim i As Integer, s As Integer
While i <= 100
s = s + i
i = i + 1
Wend
Print s
End Sub

Private Sub Command5_Click()
Dim i As Integer, s As Integer
GOTONEXT:
s = s + i
i = i + 1
If i <= 100 Then GoTo GOTONEXT
Print s
End Sub

Ⅳ vb編程中怎麼計算1到100的和

dimsumasinteger
sum=0
fori=1to100
sum=sum+i
nexti
printsum

Ⅳ VB編程求1到100整數和

Private Sub Command1_Click()
Dim a
Dim sum
For a = 1 To 100
sum = sum + a
Next a
Print sum
End Sub
最後在窗體上顯示出來的就是你要求的和

Ⅵ 用VB編寫：循環語句的應用，計算1~100的偶數和

用VB編寫：循環語句的應用，計算1~100的偶數和，最簡單的方法是採用計數循環來實現。
dim i as integer,s as integer
s=0
for i = 2 to 100 step 2
s = s + i
next i
print "Sum ="; s

Ⅶ 急求：VB編程1到100求和

Private Sub Command1_Click()
For i = 1 To 100
s = s + i
Next
MsgBox "1到100的和為:" & s
End Sub