Dim n as integer

…

If     them

MsgBox"恭喜，本站有车!"

Else

MsgBox"很遗憾，本站车已经借完!"

End If

…

划线处应填写的条件表达式是（  ）

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

Dim G As Integer

Dim M As Integer

Input “输入重量 G = ”; G

If {#blank#}1{#/blank#} then

    M=0.65*G

Else

    M={#blank#}2{#/blank#}

End if

Print “运费为：”; M

score = int(input('输入分数:'))

if score >= 90:

    grade = 'A'

elif score >= 60:

    grade = 'B'

else:

    grade = 'C'

 print (score,'属于',grade)

运行结果为：输入分数: 90

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

x=4

y=3

if x>y:

 prin（x）

else:

 print（y）

屏幕上输出的内容是{#blank#}1{#/blank#}。