Dim s1 As Single, s2 As Single

Private Sub 读_Click()
Dim st As String, i As Integer
Open "D:\1.txt" For Input As #1 '假设要读取的文件为 D:\1.txt
Do Until EOF(1)
  Line Input #1, st
  i = InStr(st, "The length is: "): If i Then s1 = Val(Mid(st, InStr(st, ":") + 1))
  i = InStr(st, "The width is: "): If i Then s2 = Val(Mid(st, InStr(st, ":") + 1))
Loop
Close #1
End Sub

Private Sub 写_Click()
Dim st As String, area As String, perimeter As String
area = Format(s1 * s2, "###0.000000")
perimeter = Format(2 * (s1 + s2), "###0.000000")
st = "Fence Output File" & vbCrLf
st = st & "The area is: " & area & vbCrLf
st = st & "The perimeter is: " & perimeter
Open "D:\2.txt" For Output As #1 '假设要写盘的文件为 D:\2.txt
Print #1, st
Close #1
End Sub