提示：年份值符合下列两种情况之一的是闰年。

⒈年份是4的倍数，但不是100的倍数；

⒉年份是400的倍数。

s = "ERROR:Divisor must not be zero!"

flag = False  :  m = 0

For i = 1 To Len(s)

ch = Mid(s, i, 1)

If ch >= "a" And ch <= "z" Then

If Not flag Then

m = m + 1  ： flag = True

End If   

Else

flag = False

End If  

Next i 

Text1.Text=Str(m)

Private Sub Command1_Click()

Dim i As Integer, j As Integer, m As Integer

Dim s As String

i = 1: j = 6

Key = Text1.Text：s = ""

Do While i <= j

m = Int((i + j) / 2 + 0.5)

s = s + " " + a(m)

If Key > a(m) Then

i = m + 1

Else

j = m - 1

End If

Loop

Text1.Text = s

End Sub

d= [1,3,8,15,22,26,28,40,46,61,80]

i=0;j=len(d)-1

while i<=j:

    m= (i+j)//2

    if key<d[m] :

        j=m-1

    else:

若 key 值为 22，程序运行结束后，加框处语句执行的次数为（   ）