s=0

For i=5 to -3 step-6

    s=s+i

Next i

Private Sub Form_Click()

  Dim s As Single

  Dim i As Integer

    s ={#blank#}1{#/blank#}

    For i = 1 To{#blank#}2{#/blank#}Step 1

        s ={#blank#}3{#/blank#}

    Next i

  Print "s="; s

End Sub

s=0

x=2

Do While x<=13   

    s= s+1

    x=x+3

Loop

该程序段运行后，循环体的执行次数为{#blank#}1{#/blank#}。

s="abcdefg"

c=len(s)  #len 求字符串长度

for i in range(0,c):

  if i<2:

    print (chr(ord(s[i])+2),end=" ") #    ord()函数是chr()函数配对函数，将字符转ASCII值

  else:

    print(chr(ord(s[i]) + 3),end=" ")