Function delStr(S As String，m As Integer)As String

    Dim n As Integer：n=Len(S)

    If m<1 Or m>n Then delStr=“输入位置有误!”

    If m=1 Then delStr=Mid(s，2，n-1)

    If m<n Then delStr=Mid(s，1，m-1)+Mid(s，m+1，n-m)

    If m=n Then delStr=Mid(s，1，n-1)

  End Function

  Private Sub Command1_Click()

    Dim S As String：Dim i As Integer

    S=Text1．Text

    For i=1 To 10 Step 2

      S=delStr(S，i)

    Next i

  Text2.Text=S

  End Sub

文本框Text1中输入Happybirthday，执行该程序段，文本框Text2中显示的是（  ）

请根据算法将下列程序补充完整。

Function prime(a As Integer)As Boolean

  Dim j As Integer

  prime=True

  j=2

  Do While prime And j<=a\2

   If a Mod j=0 Then

     prime=False

     Exit Do

   End If

{#blank#}1{#/blank#}

    Loop

End Function

Private Sub Command1_Click( )

  Dim i As Integer, a As Integer, b As Integer

  Dim count As Integer

  a=Val(Text1.Text)

  b=Val(Text2.Text)

  For i=a To b

    If{#blank#}2{#/blank#}=True Then

       List1.AddItem Str(i)

       count=count + 1

     End If

  Next i

   Label1.Caption=“素数共有” + Str(count) + “个!”

End Sub

def f(k):

    if k<=3:

        print(k)

        return

    for i in range(1,4):

        f(k-i)

    return

执行语句f(6)，则f(3)被调用的次数为（   ）

def dele（a, head）:

pre=head; p=a[head][1]

while p!=-1:

q=head

flag=False

if a[q][0]==a[p][0]:

p=a[p][1]

flag=True

break

q=a[q][1]

if not flag:

pre=p;

p=a[p][1]

a=[[0, 3], [1, 2], [1, 4], [0, 1], [0, 5], [2, -1]]

dele（a, 0）

①q!=-1   ②q!=p   ③a[pre][1]=a[p][1]   ④a[pre][1]=a[q][1]

方框中填入的正确代码依次为（    ）

实现功能：输入一个年份，输出该年份是否是闰年，是则输出“YES”，否则输出“NO”。

def rn（{#blank#}1{#/blank#}）：

    if（num%400＝＝0 or num%4＝＝0 {#blank#}2{#/blank#} num%100！＝0）：

        return "YES"

    {#blank#}3{#/blank#}：

    return "NO"

year＝{#blank#}4{#/blank#}（input（"请输入年份："））

print（{#blank#}5{#/blank#}）

图 a

图 b

图 c

编写程序：对给定的标准答案，生成并输出每道题的填涂信息，对应的选项、分值（答对得2分，答错或不答得0分），以及最后的总得分，输出结果如图c所示。请回答下列问题：