3 参考程序1： Dim s(2, 1) As Integer Dim l1 As Single, l2 As Single, l3 As Single Open \For i = 0 To 2 Input #1, s(i, 0), s(i, 1) Next i Close #1 l1 = Sqr((s(0, 0) - s(1, 0)) ^ 2 + (s(0, 1) - s(1, 1)) ^ 2) l2 = Sqr((s(0, 0) - s(2, 0)) ^ 2 + (s(0, 1) - s(2, 1)) ^ 2) l3 = Sqr((s(1, 0) - s(2, 0)) ^ 2 + (s(1, 1) - s(2, 1)) ^ 2) If l1 + l2 > l3 And l2 + l3 > l1 And l1 + l3 > l2 Then MsgBox (\文件中三点能构成三角形\Else MsgBox (\文件中三点不能构成三角形\End If 程序正确得7分，其中： 正确使用文件打开语句得2分 文件数据正确读取得2分 求边长表达式正确得1分 三角形判定表达式正确得1分 输出语句正确使用得1分 注：其他解法可参照给分
