Dim ghost, ghost1, bmi, title As Integer

        title = 100
        FileOpen(1, "C:/940304.SM", OpenMode.Input)
        For i = 1 To 3
            Input(1, ghost)
            Input(1, ghost1)
            bmi = ghost1 / (ghost / 100) ^ 2
            If bmi < title Then title = bmi
        Next

        TextBox1.Text = "最小BMI是" & title & ","
        If (title < 20) Or (title > 25) Then
            TextBox1.Text = TextBox1.Text & "不正常"
        Else
            TextBox1.Text = TextBox1.Text & "正常"
        End If
        FileClose()
    End Sub