s=0
For i=1 To 3
s=s+i
Next i
A: B:“”; 是添加的“输入”工具箱中的指令块,该指令块的优先级要(填“高于”或“低于”)“无线循环”指令块。
s=0
for i in range(1,21) :
s=
print (s)
Private Sub Form_Click( )
Dim a, b, c, s As Integer
a=9
b=41
c=2*(a+b)
s=a*c
Private Sub Form_Click( )
Dim a As Integer, b As Integer
If a>b Then
a=a-b
Else
a=b+a
End if
Print a
Private Sub Form_Click( )
Dim x As Integer, a As Integer
x=0
a=0
For j=1 to 5
a=a+j
Next j
x=j
Print x, a
End Sub
Private Sub Form_Click( )
Dim x As Integer
x=0
Do While x<50
x=(x+2)*(x+3)
n=n+1
Loop
Print x,n
End Sub
Private Sub Command1_Click()
Dim age As Integer, tree As Integer
age = 15
tree = 1
Do While tree
age =
Tree = tree + (age - 14)
Text1.Text = Str(age)
End Sub
Private Sub Form_Click()
Dim s As Single
Dim i As Integer
s =
For i = 1 ToStep 1
s =
Next i
Print "s="; s
End Sub
a=0 for i in range(1,100): if i%3==0: a=a+i print(a) |
a=0 for i in range(1,100): if i%3==0: a=a+1 print(a) |
a=0 for i in range(0,100,3): a=a+1 print(a) |
a=0 for i in range(0,99,3): a=a+i print(a) |
a=0
while a<5:
a=a+1
print(a)
#程序1
i=1
while i<101:
print('把这句话打印100遍')
i+=1
#程序2
i=100
while i:
print('把这句话打印100遍')
i=i-2
i=1
while i<= 5:
i=i+1
print(i)
s=0 : t=1: p=1 For i=1 To 10 t=t*i s=s+p*t p=- p Next i |
for i in range(2,5):
print(i)
Private sub Form_Click( )
For i= To 2000 Step
r=
Circle(3500,3500),r
Next i
End Sub
提示:让海龟前进10单位,turtle.forward(10)
让海龟左转45度,turtle.left(45)
让海龟右转90度,turtle.right(90)