试题 试卷
题型：填空题 题类： 难易度：普通
江苏省普通高中学业水平合格性考试信息技术模拟卷（九）
利用海伦公式求解三角形面积。已知a，b，c为三角形的三条边长，p为三角形的半周长，即p＝（a＋b＋c）/2，计算此三角形面积s的海伦公式为：S＝。
def hl（a, b, c）： #定义求三角形面积的函数
p＝
s＝ #计算三角形面积
return #返回面积的值
a, b, c＝3, 4, 5 #边长依次赋值
print（"此三角形的面积S为：", hl（a, b, c））
请在程序的划线处填写合适的代码。
Private Sub Command1_Click()
Dim a As String,s As String
Dim r As Integer,x As Integer
x = Val(Text1.Text)
s = ""
Do While x > 0
▲ ‘①
x = x \ 16
If r > 9 Then
a = Chr(r + 55)
Else
a = Str(r)
End If
▲ ‘②
Loop
Text2.Text = s
End Sub
试题篮
