这个程序的错误是溢出，能怎么解决，换成long类型不匹配

这个题没必要用二重循环啊，试试这样：
Dim str As String, i As Integer, num1 As Long, num2 As Long, num3 As Long
str = "642138579"
For i = 1 To 9
num1 = CLng(Left(str, 2))
num2 = CLng(Mid(str, 3, 3))
num3 = CLng(Right(str, 4))
If num1 * num2 = num3 Then
Text1.Text = Text1.Text & num1 & "*" & num2 & "=" & num3 & vbCrLf
End If
str = Mid(str, 2) & Left(str, 1) '把第一位数移到最后一位
Next i
关于Integer和Long的问题，这里用Integer确实是有可能溢出的，用Long就不会溢出了，而你原来的代码会报错“类型不匹配”则是因为在截取num3时会出现空串