[已解决]谢谢hwc2ycy 老师和上清宫主老师。关于InStr的问题

lhj323323

InStr(A(i), "证券简称")
InStr(A(i), "证券简称") =0
InStr(A(i), "证券简称") <0
InStr(A(i), "证券简称") > 0

以上四句有什么区别？

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2012-10-6 13:47

1. Sub test()
   
2.     Dim a(1 To 3) As String
   
3.     Dim i As Long
   
4.    
   
5.     a(1) = "证券简称"
   
6.     a(2) = ""
   
7.     a(3) = "我"
   
8.     For i = 1 To UBound(a)
   
9.         Debug.Print i, InStr(a(i), "证券简称")
   
10.         Debug.Print i, InStr(a(i), "证券简称") = 0
    
11.         Debug.Print i, InStr(a(i), "证券简称") < 0
    
12.         Debug.Print i, InStr(a(i), "证券简称") > 0
    
13.     Next
    
14.    
    
15. End Sub

复制代码

跳转到最佳答案楼层

hwc2ycy

返回值

如果 InStr返回
string1 为零长度 0
string1 为 Null Null
string2 为零长度 Start
string2 为 Null Null
string2 找不到 0
在 string1 中找到string2  找到的位置
start > string2 0

hwc2ycy

1. Sub test()
   
2.     Dim a(1 To 3) As String
   
3.     Dim i As Long
   
4.    
   
5.     a(1) = "证券简称"
   
6.     a(2) = ""
   
7.     a(3) = "我"
   
8.     For i = 1 To UBound(a)
   
9.         Debug.Print i, InStr(a(i), "证券简称")
   
10.         Debug.Print i, InStr(a(i), "证券简称") = 0
    
11.         Debug.Print i, InStr(a(i), "证券简称") < 0
    
12.         Debug.Print i, InStr(a(i), "证券简称") > 0
    
13.     Next
    
14.    
    
15. End Sub

复制代码

hwc2ycy

上清宫主

InStr(A,B) ：在A中找B最先出现的位置。没找到时返回0
在条件语句中，常常利用了0为假，非0为真，故有 if InStr(A,B) then的写法，他与if InStr(A,B)>0 then功能相同
而if InStr(A,B)<0 then与if InStr(A,B)=0 then一样。这种写法与各人的习惯有关，大至是源于数在计算机中的表示有关（二进制，有些数就没法准确表示，仅是个近似值）：如当判断两个小数d1与d2是否相等时，不能写成d1=d2，而是要写成abs(d1-d2)<10^(-n),即写成他俩的差值小于一个及小及小的数时，则认为他们相等

hwc2ycy

上清宫主 发表于 2012-10-6 14:06
InStr(A,B) ：在A中找B最先出现的位置。没找到时返回0
在条件语句中，常常利用了0为假，非0为真，故有 if  ...

学习了，分析得好细致啊。