求助把此段代码利用VB2005变成可视化
请给出具体操作流程,控件的定义,此代码大概含义是空行的删除和自动在节段名后添加010和090Private Sub F_Name()
Dim FNable As Int16 = 0
Dim s010 As Int16 = 1
Dim s999 As Int16 = 1
Dim x As Integer = 1
Dim word As String = ""
Prb2.Value = 0
Do Until x = lineNO + 1
Do Until sents(x, wordStr) = ""
If FNable = 0 Then
If sents(x, wordStr) = "PROCEDURE" Then
If sents(x, wordStr + 1) = "DIVISION" Or sents(x, wordStr + 1) = "DIVISION." Then
FNable = 1
End If
End If
ElseIf FNable = 1 Then
If s010 = 1 And s999 = 1 Then
If sents(x, wordStr) = "SECTION" Or sents(x, wordStr) = "SECTION." Then
s010 = 0
s999 = 0
word = sents(x, wordStr - 1)
End If
ElseIf s010 = 0 And s999 = 0 Then
If Microsoft.VisualBasic.Right(word, 5) <> "-PROC" Then
If sents(x, wordStr) = word Or sents(x, wordStr) = word + "." Then
sents(x, wordStr) = word + "-010."
s010 = 1
ElseIf sents(x, wordStr) = word + "-010" Or sents(x, wordStr) = word + "-010." Then
If sents(x, wordStr) = word + "-010" Then
sents(x, wordStr) = word + "-010."
End If
s010 = 1
End If
Else
word = Microsoft.VisualBasic.Left(word, Len(word) - 5)
If sents(x, wordStr) = word Or sents(x, wordStr) = word + "." Then
sents(x, wordStr) = word + "-010."
s010 = 1
ElseIf sents(x, wordStr) = word + "-010" Or sents(x, wordStr) = word + "-010." Then
If sents(x, wordStr) = word + "-010" Then
sents(x, wordStr) = word + "-010."
End If
s010 = 1
End If
End If
--------------------编程问答-------------------- 貌似字符串处理的
Sents 是自定义函数吧 --------------------编程问答-------------------- 代码不全，sents的功能也没有进行说明 --------------------编程问答-------------------- 这是一个功能方法吧,怎么变成可视的?楼主易做图有问题. 重新换个角度.. --------------------编程问答-------------------- 没有遇到过。帮顶了
补充：.NET技术 , VB.NET
