Private Sub Command1_Click()
  Open App.Path & "\in4.dat" For Input As #1
  s = Input(LOF(1), #1)
  Close #1
  Text1.Text = s
End Sub
Private Sub Command2_Click()
  Dim m As Integer
'  If Len(s) =  ?  Then
      MsgBox "请先使用“读数据”功能！"
  Else
'      If Text1.?  = 0 Then
          MsgBox "请先选中文本！"
      Else
          t = ""
          For i = 1 To Text1.SelLength
            c = Mid(Text1.SelText, i, 1)
            If c <> " " Then
              t = t + c
            Else
'                x =  ?
                If InStr(x, "o") <> 0 And InStr(x, "n") <> 0 Then
                  m = m + 1
                End If
                t = ""
            End If
          Next i
'          ?  = Str(m)
      End If
  End If
End Sub