‘\u5c06\u4efb\u610f\u6574\u6570\u5206\u89e3\u4e3a\u7b49\u6bd4\u6570\u5217\u4e4b\u4e2d\u7684\u6570\u503c
Dim vRet As Variant
vRet = GeometricSeriesEx(2147483647)
For I = LBound(vRet) To UBound(vRet)
Debug.Print vRet(I)
Next I<\/p>\n\n\n\n
Public Function GeometricSeriesEx(ByVal lData As Long) As Variant ‘\u5206\u89e3\u6574\u6570\u4e3a 1 2 4 8 16 32 64 \u2026 \u2026\uff0c\u4e14\u6bcf\u4e2a\u6570\u53ea\u51fa\u73b0\u4e00\u6b21
Dim I As Integer, J As Integer
If Not IsNumericEx(lData) Then Exit Function
Dim sBin As String
sBin = DEC_to_BIN(lData)
Dim iCount As Integer
Dim TempArray() As Long
For I = 1 To Len(sBin)
If Mid(sBin, I, 1) = “1” Then
ReDim Preserve TempArray(0 To iCount)
TempArray(iCount) = 2 ^ (Len(sBin) – I)
iCount = iCount + 1
End If
Next I
GeometricSeriesEx = TempArray
End Function<\/p>\n\n\n\n
Public Function DEC_to_BIN(Dec As Long) As String ‘\u5341\u8fdb\u5236\u8f6c\u5316\u4e3a\u4e8c\u8fdb\u5236
DEC_to_BIN = “”
Do While Dec > 0
DEC_to_BIN = Dec Mod 2 & DEC_to_BIN
Dec = Dec \\ 2
Loop
End Function<\/p>\n\n\n\n
Public Function IsNumericEx(ByVal sData As String) As Boolean ‘\u7535\u5b50\u8868\u683c\u7a7a\u683c\u88ab IsNumeric \u89c6\u4e3a\u6570\u503c 0,IsNumericEx \u5219\u89c6\u4e3a\u5b57\u7b26 “”
IsNumericEx = False
sData = Trim(sData)
If sData = “” Then Exit Function
IsNumericEx = IsNumeric(sData)
End Function<\/p>\n\n\n\n
Public Function IsInteger(ByVal txtString As String) As Boolean ‘\u662f\u6570\u503c\uff0c\u4e14\u662f\u6574\u6570
IsInteger = True
If Not IsNumeric(txtString) Then
IsInteger = False
Exit Function
End If
If Not CDbl(txtString) \/ 1 = CDbl(txtString) \\ 1 Then
IsInteger = False
End If
End Function<\/p>\n\n\n\n
Public Function IsInRange(ByVal sData As String, ByVal LowerLimit As Double, ByVal UpperLimit As Double, ByVal bAllowThreshold As Boolean) As Boolean ‘\u5224\u65ad\u67d0\u6570\u636e\u662f\u4e0d\u662f\u6570\u503c\uff0c\u4e14\u662f\u5426\u5728\u754c\u5185
IsInRange = False
If Not IsNumeric(sData) Then Exit Function ‘\u5b57\u7b26\u7b49\u89c6\u4e3a\u8d8a\u754c,\u9632\u6b62\u4ee5\u4e0b\u6bd4\u8f83\u65f6\u53d1\u751f\u9519\u8bef
If bAllowThreshold Then ‘\u538b\u754c\u7b97\u5728\u754c\u5185
If CDbl(sData) > UpperLimit Then Exit Function ‘\u8d8a\u4e0a\u754c
If CDbl(sData) < LowerLimit Then Exit Function ‘\u8d8a\u4e0b\u754c Else ‘\u538b\u754c\u4e0d\u7b97\u5728\u754c\u5185 If CDbl(sData) >= UpperLimit Then Exit Function ‘\u8d8a\u4e0a\u754c
If CDbl(sData) <= LowerLimit Then Exit Function ‘\u8d8a\u4e0b\u754c
End If
IsInRange = True
End Function<\/p>\n","protected":false},"excerpt":{"rendered":"