关于VB改错 请高手快进

来源：百度知道 编辑：UC知道 时间：2024/05/21 10:20:03
字符串“642138579”首尾相联形成一个数字环，依次在数字环中顺序截取2位数、3位数、4位数，使所截取得到的前两个数相乘等于第三个数。例如：42*138=5796。
Option Explicit
Public a(9) As Integer
Private Sub Form_Click()
Const s As String = "642138579"
Dim i As Integer, N3 As Long
Dim Idx As Integer, N1 As Long, N2 As Long
For i = 1 To 9
a(i) = Mid(s, i, 1)
Next
For i = 1 To 9
Idx = i
Call Mut(Idx, 2, N1)
Idx = Idx + 2
Call Mut(Idx, 3, N2)
Idx = Idx + 3
Call Mut(Idx, 4, N3)
If N3 = N1 * N2 Then
Print N1; "*"; N2; "="; N3
End If
Next i
End Sub
Private Sub Mut(ByVal Idx As Integer, n As Integer, M As Long)
Dim i As Integer
For i = 1 To n
M = M * 10 + a(Idx)
Idx = Idx + 1
If Idx > 9 Then Idx = 1
Next i
M=0
End Sub
麻烦请高手快快解答一下 困扰我很久了
不

带'*为修改过的。

Option Explicit
Dim a(9) As Integer '*

Private Sub Form_Click()
Const s As String = "642138579"
Dim i As Integer, N3 As Long
Dim Idx As Integer, N1 As Long, N2 As Long

For i = 1 To 9
a(i) = Mid(s, i, 1)
Next

For i = 1 To 9
Idx = i
Call Mut(Idx, 2, N1)
Idx = Idx + 2
Call Mut(Idx, 3, N2)
Idx = Idx + 3
Call Mut(Idx, 4, N3)

If N3 = N1 * N2 Then
Print N1; "*"; N2; "="; N3
End If
Next i
End Sub

Private Sub Mut(ByVal Idx As Integer, n As Integer, ByRef M As Long) '*
Dim i As Integer
M = 0 '*
For i = 1 To n
If Idx > 9 Then Idx = 1 '*
M = M * 10 + a(Idx) '*
Idx = Idx + 1
Next i

End Sub