这个程序能不能增加“容错功能”

来源：百度知道编辑：UC知道时间：2024/05/31 06:54:31

在下面的程序中增加容错功能（容许错误）请高手帮帮忙编写,小弟太业余了

原程序要点是：点conmd1把text窗口12行中都共有的数提出来放入text2中，
在原程序基础上增加容错功能：可以容许有4-6行错误，也就是说可以从12行中
6-8行中提取共有的6个数提出来放入text2中
这次结果应该有： 05 17 19 27 28 32 这一组

Private Sub Command1_Click()
Dim a() As String
a = Split(Text1.Text, vbCrLf)
For i = 1 To 33
For j = 0 To UBound(a)
If InStr(a(j), Format(i, "00")) = 0 Then
Exit For
ElseIf InStr(a(j), Format(i, "00")) <> 0 And j = UBound(a) Then
Text2.Text = Text2.Text & Format(i, "00") & " "
End If
Next
Next
End Sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
在text1 窗口内的检验数据
02 07 09 10 11 16 20 22 25 28 31 32 33
03 05 06 08 12 13 15 17 21 24 26 27 31
01 02 03 06 12 14 15 17 18 23 27 28 33
05 06 12 16 17 19 21 23 25 27 28 29 32
03 04 05 06 14 17 19 20 25 27 28 31 32
04 11 12 14 16 18 20 24 26 28 29 30 32
06 07 10 13 19 20 21 22 23 24 25 27

你之前的问题也是我回答的
按这样筛选的话就没有意义了，不过可以统计每个号出现的次数

'设置Text1和Text2的MultiLine属性为True
Private Sub Command1_Click()
Dim a() As String, Num(1 To 33) As Integer
a = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(a)
a(i) = Trim(a(i))
For j = 1 To Len(a(i)) Step 3
Num(Mid(a(i), j, 2)) = Num(Mid(a(i), j, 2)) + 1
Next
Next
For i = 1 To 33
Text2.Text = Text2.Text & i & vbTab & Num(i) & vbCrLf
Next
End Sub

运行结果
1 1
2 2
3 3
4 6
5 8
6 5
7 3
8 2
9 2
10 4
11 2
12 5
13 4
14 3
15 4
16 5
17 9
18 5
19 8
20 6
21 3
22 4
23 4
24 3
25 7
26 2
27 10
28 10
29 5
30 3
31 4
32 9
33 5

'修改后的代码------------------------------------------------------------------
'为了你这道0分的题费这么大劲真不值得
Private Sub C

什么是磁盘的容错功能? 请为这个asp全文检索程序增加二次检索功能智能手机能不能通过软件增加对讲机功能请问这个程序能不能删除.? 索爱T618能不能升级，能增加什么功能？？？？关于C++程序的容错处理～！请高手指教！ “百度知道”这个板块以后会增加贴图功能吗？这个c++程序的功能是什么？请问这个程序段的功能是什么？这个庞然大物的程序能不能删除？