字符串“642138579”首尾相联形成一个数字环，依次顺序在数字环中截取2位数、3位数、4位数，使所截取得前两个数相乘等于第三个数。例如42*138=5796。
要求：
（1）单击”数字”按钮,找出数字环中的数字，显示在列表框当中
（2）单击 “执行”符合要求的等式显示在文本框中

思路：
初始令变量等于起始的字符串
循环“字符串长度”的次数（9次），每次循环进行如下操作：
依次取出字符串的左边2位（用Left函数）、中间3位（用Mid函数）、右边4位（用Right函数），并分别转换成数值；然后，如果前两个数相乘等于第三个数，则输出该算式
取出字符串左边1位（用Left函数）和右边8位（可以用Right或Mid函数），反过来拼接成新的字符串，即可将左边1位移到最右边

写了一个来看看，楼主参考一下。

工程源码打包下载：
链　接：[无效] https://pan.baidu.com/s/1t0JAjBygXBOlNt-wuEUPYg
提取码: f7p6

链接后面的那串文本：
s/1t0JAjBygXBOlNt-wuEUPYg

Option Explicit
Private Sub Command1_Click()
Dim sArr(9) As String
Dim i As Integer
Dim a As Long, b As Long, c As Long
sArr(1) = Text1
For i = 2 To Len(Text1)
sArr(i) = Mid(Text1, i, Len(Text1) - i + 1) & Mid(Text1, i - 1, i - 1)
Next
For i = 1 To 9
a = Left(sArr(i), 2)
b = Mid(sArr(i), 3, 3)
c = Right(sArr(i), 4)
If a * b = c Then Text2 = a & " " & b & " " & c
Next
End Sub
Private Sub Command2_Click()
Dim sArr(9) As String
Dim i As Integer
Dim a As Long, b As Long, c As Long
sArr(1) = Text1
For i = 2 To Len(Text1)
sArr(i) = Mid(Text1, i, Len(Text1) - i + 1) & Mid(Text1, i - 1, i - 1)
Next
For i = 1 To 9
a = Left(sArr(i), 2)
b = Mid(sArr(i), 3, 3)
c = Right(sArr(i), 4)
If a * b = c Then Text3 = a & "*" & b & "=" & c
Next
End Sub

分析：
字符串，能首位相连的所有情况放进一个数组里
然后对每一个数组的情况进行分析