我的程序里的一个查找函数怎么不能实现其功能?
这是一个 查找 在回车符 后 的一个字符是字母的话,就返回 这个回车符在字符位置(在字符串中的排位)与形参的差
但是总是不能实现 请大家再帮帮忙
可能就是 函数中那两个 if 语句 有问题
Dim StrAll As String
Private Sub Form_click()
StrAll = "abcd" & Chr(13) & "123" & Chr(13) & "efgh"
Print FindWord(2) ' 调用函数 把形参 赋为 2
End Sub
Function FindWord(I As Long) As Long
Dim U As Long, AscA As Integer
FindWord = 0
For U = I To N
If Chr(13) = Mid(StrAll, U, 1) Then ' 找到回车的话 要是在其下一个字符是字母的话 返回函数值
AscA = Asc(Mid(StrAll, U + 1, 1)) '把回车 后面的字符 的ASCII码赋给 AscA
If AscA >= 97 And AscA <= 122 Or AscA >= 65 And AscA <= 90 Then
FindWord = U - I
Exit For
End If
End If
Next U
If FindWord = 0 Then MsgBox "查找完毕", vbOKOnly, "提示" '查找完毕
End Function
另外一个问题: 如何打开一个文件在 它的后面 添加 内容
先谢了!!!
[此贴子已经被作者于2006-10-17 21:29:37编辑过]