x=5
For i=1 to 10 Step 2
x=x+i
Next i

Private Sub Form-Click()
Dim S As Integer
Dim N As Integer
N=0
S=0 ‘S变量存放的是总和
Do While (条件)
N=N+1
S=S+N
Loop
Text1. Text=Str()
End Sub

VB中,For循环语句的格式如下:
|
For循环变量= 初值 To 终值 Step 步长值语句组 Next |
for i in range(5) :
print(i)
i=1
sum=0
while i<=20:
if I %2==0:
sum=sum-i
else:
sum=sum+i
i +=1
print (sum)
Private Sub Command1_Click()
a = 0
For i = 8 To 100 Step 8
a = a + 1
Next i
End Sub
|
s=0 For i in range()
print(“偶数和是:”,s) |
for i in range(1, 10, 3):
print(i, end=",")
for i in range(1,101):
s=s+i
print(s)
运行结果是()

Private sub Form_Click( )
For i= To 2000 Step
r=
Circle(3500,3500),r
Next i
End Sub
s = 0
For k = 10 To 30 Step 5
s = s + k
Next k
Print s, k
程序运行后,s、k的值分别为:、