Private Sub Command1_Click()

    Text1.Text = ""

    Text2.Text = ""

    Text3.Text = ""

    Text4.Text = ""

End Sub

Private Sub Command2_Click()

    Dim a As Single, b As Single, c As Single

    Dim x1 As Single, x2 As Single, det As Single

    a = Val(Text1.Text)

    b = Val(Text2.Text)

    c = Val(Text3.Text)

    det ={#blank#}1{#/blank#}      ‘（根的判别式b²-4ac）

    Select Case det

    Case Is > 0

        x1 = (-b + Sqr(det)) / (2 * a)

        x2 = (-b - Sqr(det)) / (2 * a)

        Text4.Text = "方程有两个实数根" & " x=" & Str(x1) & "   x=" & Str(x2)

    Case Is = 0

        Text4.Text = "方程有两个相等的实数根 x=" & Str(x1)

    Case {#blank#}2{#/blank#}

        Text4.Text = "此方程无实数根"

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

End Sub

if int (input ( ) ) %5= =0:

    print("yes")

if int (input ( ) ) %5!=0:

    print("no")

如果输入7，则输出（   ）。

Dim i As interger, a As interger

i=1

a=5

If i>3 Then

    a=a+9

Else

    a=a+6

End if

m=int（input（"请输入一个整数："））

if ⑴{#blank#}1{#/blank#}:

  print("这个数字是奇数"）

⑵{#blank#}2{#/blank#}:

  print（"这个数字是偶数"）

⑴A．m/2=0    B．m//2==0    C．m%2=0    D．m%2==1

⑵A．if       B．else       C．elif     D．break