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 a>5 then

    if b<4 then

        c=a-b

    else

        c=b-a

    End if

Else

    if b>3 then

        c=a*b

    else

        c= a mod b

    End if

End if

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

    print("yes")

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

    print("no")

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

a=int(input())

if      ：

  print("7的倍数" )

else：

  print("不是7的倍数")

a = int(input())

b = int(input())

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

    c = a * a

else:

    c = {#blank#}2{#/blank#}

print(c)