sjfb.net
当前位置:首页 >> VB字符串删字符后最长不降子序列求解 >>

VB字符串删字符后最长不降子序列求解

Sub main() Dim i%, j%, n%, t%, x%, max%, lmax%, b%(300), a$(300) Randomize n = InputBox("n") For i = 1 To n a(i) = Chr(Int(Rnd * 26 + 65)) Debug.Print a(i); Next b(n) = 1: lmax = 0 For i = n - 1 To 1 Step -1 max = 0 For j = i +...

网站首页 | 网站地图
All rights reserved Powered by www.sjfb.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com