Private Sub Command1_Click()

Text1.Text = f(3)

End Sub

Function f(x As Integer) As String

If x = 1 Then  f = 1  Else  f = f(x - 1) + 2

End Function

运行程序并点击按钮Command1后，文本框Text1中显示的内容是（   ）

Dim a(4) As Integer

Private Sub Command1_Click()

 Dim s As String

a(1)=10:a(2)=30:a(3)=20:a(4)=40

 s=doit(4)

 Label1.Caption=s

End Sub

Function doit(k As Integer) As String

 If k=1 Then

  doit=Str(a(1))

  Else

  doit=doit(k-1) & Str(a(k))

 End If

End Function

程序运行后,标签Label1中显示的内容是（  ）

Function fact(n As Integer) As String

If n = 1 Then

    fact = fact & 1

Else

    fact = fact(n \ 2) & n Mod 2

End If

End Function

Private Sub Command1_Click()

Dim x As String, i As Integer, r As Integer

x = Text1.Text

For i = 1 To Len(Text1.Text)

If Mid(x, i, 1) = "." Then Exit For Next i

r = Val(Mid(x, i + 1, Len(Text1.Text) - i)) Text2.Text = fact(r)

End Sub

在文本框Text1中输入2019.70，则执行程序段，在文本框Text2中显示的内容是（  ）

Dim a( 1 To 10) As Integer

Function Search(L As Integer， R As Integer)

As Integer

     M=(L+R)＼2

     If a(M) <a(M-1) And a(M) >a(M+1) Then

     ①

     ElseIf a(M) >a(Ｍ-1) And a(M) >a(Ｍ+1) Then

     ②

     ElseIf a(M) >a(Ｍ-1) And a(M) <a(M+1) Then

     ③

     End If

End Function

Private Sub Command 1 click()

     Label 1.caption=““峰顶”值是：” +Str(Search (1，10))

End Sub

上述程序中划线处可选语句为：

①Search=Search(M+1，R)

②Search=Search(L，M-1)

③Search=a(M)

则①②③处的语句依次是（  ）

def f(m, n):

    q=m%n

    if q == 0:

        return n

    else:

        return f(n,q)

print(f(14,10))

    def fibs(n):

      if n==1 or n==2:

        return ____①____

      else:

        return _____②_____

    m=int(input("请输入一个整数："))

    for i in range(1,m+1):

      print(___③___ ,end=",")