● VB写的用递归找字串中的最小最大值 - 荔园在线 | 深圳大学学生论坛,荔园晨风BBS,深大在线网站

荔园之美，在春之萌芽，在夏之绽放，在秋之收获，在冬之沉淀

发信人: SONY (while(1){love(YY);}), 信区: Visual
标  题: VB写的用递归找字串中的最小最大值
发信站: 荔园晨风BBS站 (Sun Jul 27 18:04:00 2003), 站内信件

那天的面试题，不过不知道C里面对应的Left$,Right$函数是什么，呵呵
Private Sub Form_Load()
Dim string1 As String
string1 = "dbcdbcdefjalfjejfj"
MsgBox FindMin(string1)
End Sub

Function FindMin(str1 As String) As String
If Len(str1) = 1 Then
   FindMin = str1
   Exit Function
Else
   Dim LeftS, RightS As String
   LeftS = FindMin(Left$(str1, Len(str1) / 2))

   RightS = FindMin(Right$(str1, Len(str1) / 2))
   If LeftS > RightS Then
      FindMin = RightS
      Else
      FindMin = LeftS
   End If
   Exit Function
End If
End Function

--

※ 来源:·荔园晨风BBS站 bbs.szu.edu.cn·[FROM: 192.168.26.166]

荔园在线首页友情链接：深圳大学深大招生荔园晨风BBS S-Term软件网络书店