试题 试卷
题型：填空题 题类： 难易度：普通
江苏省普通高中学业水平合格性考试信息技术模拟卷（九）
利用海伦公式求解三角形面积。已知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））
Function delStr(S As String，m As Integer)As String
Dim n As Integer：n=Len(S)
If m<1 Or m>n Then delStr=“输入位置有误!”
If m=1 Then delStr=Mid(s，2，n-1)
If m<n Then delStr=Mid(s，1，m-1)+Mid(s，m+1，n-m)
If m=n Then delStr=Mid(s，1，n-1)
End Function
Private Sub Command1_Click()
Dim S As String：Dim i As Integer
S=Text1．Text
For i=1 To 10 Step 2
S=delStr(S，i)
Next i
Text2.Text=S
End Sub
文本框Text1中输入Happybirthday，执行该程序段，文本框Text2中显示的是（ ）
s = "2019Nian12yue3Ri"
For i = Len(s)-1 To 1 step -1
If Mid(s, i, 1) <= "9" And Mid(s, i + 1, 1) >= "A" Then
sum= sum+ Val(Mid(s, i, 1))
End If
运行程序后，变量sum 的值是（ ）
试题篮
