Dim a(1 To 5) As Integer Randomize

s = 0

Do While s<5

t = Int(Rnd * 5 + 1) a(t) = a(t) + 1

If a(t) = 1 Then s = s + a(t)

Loop

已知数组a(1)到 a(5)的初值均为0，该段程序运行后，下列说法正确的是（  ）

Private Sub Command1_Click()

Const s1 = "efg"

s2 = "&auif,+eg$Ymfhe"：s3 = ""

For i = 1 To Len(s2)

    If being(Mid(s2, i, 1), s1) Then

        s3 = s3 + Str(i) + ","

    End If

Next i

Text1.Text = s3

End Sub

Function being(x As String, y As String) As Boolean

      being = False

      For i = 1 To Len(y)

        If x = Mid(y, i, 1) Then

            being = True：Exit Function

        End If

      Next i

End Function

执行后文本 Text1 中显示的内容是（  ）

def doit(x):

   if x>=6:

      ans=1

   else:

      ans=3*doit(x+1)+2*doit(x+2)

   return ans

print(doit(3))

程序运行后，输出的结果为（    ）

以下是求解一元二次方程( a=0）的主要源程序，请你补全代码:

import math

  a=int(input(" a="))

  b=int(input("b="))

  c=int(input("c="))

  d=    #一元二次方程根的判别式

if d>0:

  x1=(-b+math.sqrt(d))/ (2*a)

  x2=(-b-math.sqrt(d))/(2*a)

  print("x1=",x1)

  print("x2=",x2)

if :

   print("x1=x2="，-b/(2*a))

if d<0:

   print("无实数解!")

请补充完成上述程序: