通过VB写Get_Next的代码 KMP的next求法
来源:互联网 发布:类的定义 c语言 编辑:程序博客网 时间:2024/05/19 13:23
Private Sub Command1_Click()
Dim i, j As Integer
Dim Next1(9) As Integer
Dim S, T(9) As String
S = "ababaaaba"
For i = 1 To UBound(Next1)
T(i) = Mid(S, i, 1)
Next
For i = 1 To UBound(Next1)
Debug.Print T(i)
Next
Get_Next T, Next1
End Sub
Private Sub Get_Next(T() As String, Next1() As Integer)
Dim i, j As Integer
i = 1
j = 0
Next1(1) = 0
Do While (i < UBound(Next1))
If (j = 0 Or T(i) = T(j)) Then
i = i + 1
j = j + 1
If T(i) <> T(j) Then
Next1(i) = j
Else
Next1(i) = Next1(j)
End If
Else
j = Next1(j)
End If
Loop
For i = 1 To UBound(Next1)
Debug.Print Next1(i)
Next
End Sub
0 0
- 通过VB写Get_Next的代码 KMP的next求法
- KMP求法(通过next)
- KMP算法next的求法
- kmp 的next 数组求法
- KMP next数组的求法
- kmp的next数组值的求法
- kmp的next数组值得求法
- kmp的next数组值得求法
- kmp的next数组值得求法
- kmp的next数组值得求法
- KMP的next数组求法详解
- KMP算法的多种模式数组next求法的比较(Python版代码)
- 详解KMP算法中Next数组的求法
- 【模版】KMP算法中next数组的求法。
- 详解KMP算法中Next数组的求法
- KMP算法中next数组的求法分析
- kmp算法中next[]数组求法的基本思想
- KMP算法-next数组的含义和求法
- jQuery
- gradle--第十一章 使用Gradle命令行2
- arm-linux-ld 的使用
- 如何在局域网访问Tomcat项目
- H index II
- 通过VB写Get_Next的代码 KMP的next求法
- 获取执行文件路径
- 二叉树的性质
- 献血是件很赞的事——北漂18年(26)
- setlinestyle(0,0,1);setbkcolor(i);setcolor(j);
- setlinestyle(j,0,3)
- DDALine
- Java Servlet 的线程
- 随记