n = 0 : m = 0

For  i = 1 To 100

     If  Rnd > 0.5  Then

        n = n + 1

     Else

     m = m + 1

Next  i 

……

小金仔细分析该程序段后，发现其中缺少了（   ）

Private Sub Command1_Click( )

   Dim  s  As  Integer

   Dim  I  As  Integer

   S=0

   For i=1 To 10

      s=s+i\7

   Next i

   Text1.text=str(s)

End sub

该程序段运行后，文本框Text1中显示{#blank#}1{#/blank#} 

  s=Text1．Text

  List1．Clear

  Len1=Len(s)                            ‘①

  For i=l To len1                           ‘②

    For j=1 To len1-i                       ‘③

        List1．Addltem Mid(S，j，i)         ‘④

     Next j

   Next i

运行时发现未输出所有子串，则修改（  ）

       a(i)=i+1

    Next i

程序运行后，变量i的值是：（   ）

Option Base 1

Private Sub Command1 Click()

    Dim a%(3,3)

    For i=1 To 3

        For j=1 To 3

            a(i,j)=i*j

            Print a(i,j);〃〃;

        Next j

        Print

    Next i

End Sub

   from math import *

def dist(x1, y1, x2, y2):

    length = sqrt((int(x1) - int(x2))**2 +    ①     )

    return length

a = input("请输入各点的坐标：")    # 如“2,3,4,5”则表示坐标点（2,3）和（4,5）

b = a.split(",")

if len(b) % 2 != 0:

    print("输入的坐标有误！")

else:

    s = 0

    for i in range(0,    ②      , 2):

        s = s +     ③    

print("折线的长度为：", s)