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