Private Sub Command1_Click()

Dim a As Integer

a = Int(6 * Rnd + 1) * Int(6 * Rnd - 1)

Print a

End Sub

Dim c As Integer,a(0 To 5) As Integer

For i = 1 To 5

  a(i) = i

Next i

c = 0

For i = 1 To 5

  x = Int(Rnd * 5 + 1)

  If a(x Mod 5) = i + 2 Then c = c + 1

  If c = x Then Exit For

  i = i - 1

Next i

运行该程序后，变量c的值不可能是（  ）

利用海伦公式求解三角形面积。已知a，b，c为三角形的三条边长，p为三角形的半周长，即p＝（a＋b＋c）/2，计算此三角形面积s的海伦公式为：S＝。

def hl（a, b, c）：   #定义求三角形面积的函数

    p＝{#blank#}1{#/blank#}

    s＝{#blank#}2{#/blank#}   #计算三角形面积

    return {#blank#}3{#/blank#}   #返回面积的值

a, b, c＝3, 4, 5   #边长依次赋值

print（"此三角形的面积S为：", hl（a, b, c））