谁能帮我写个 VB 程序？

来源：百度知道 编辑：UC知道 时间：2024/05/29 15:02:23
哪个大虾帮我写下这个递归程序？字符串“962815743”首尾相连围成一圈，按顺时针方向把它们分成一个2位数，一个3位数和一个4位数，似的2位数乘以3位数的积等于4位数。编写递归程序，找出满足这个乘法式子的三位数。
答案是“28*157=4396”

Private Sub Command1_Click()
Dim s As String, st As String, s1 As String, s2 As String, s3 As String
Dim i As Integer
Dim f As Boolean
s = Text1.Text
st = s & Left(s, 3)
For i = 1 To Len(s)
s1 = Mid(st, i, 2)
s2 = Mid(st, i + 2, 3)
s3 = Mid(st, i + 5, 4)
If Val(s1) * Val(s2) = Val(s3) Then
f = True
Label1.Caption = s1 & "*" & s2 & "=" & s3
Exit For
End If
Next
If Not f Then Label1.Caption = "未找到"
End Sub