- 博客(3)
- 问答 (2)
- 收藏
- 关注
VB6求两个字符串最长公共子串的问题
Function LCS(ByVal A As String, ByVal B As String) As StringIf Len(A) * Len(B) = 0 Then LCS = "": Exit FunctionDim la As Integer, lb As Integer, achar() As String, bchar() As String, c() As Integer, i...
2006-09-28 23:21:00 87
24点
在a1,a2,a3,a4单元格内输入数字,如果能算24点的话在b列显示解法,如果有多种解法则分别在b1,b2...中显示: Sub get24p()Const p24 = "123412431324134214231432213421432314234124132431312431423214324134123421412341324213423143124321"Dim A As Integ...
2006-09-28 22:05:00 169
EXCEL VBA]EXCEL中用递归实现任意n(3≤n≤256)阶幻方
下面代码将实现任意n(3≤n≤256)阶幻方,显示在EXCEL的 A1:IV256中 Sub magicsquare(ByVal n As Long, ByRef matrix())Dim i As Long, j As Long, k As Long, p As Long, a(), temp As New CollectionReDim matrix(1 To 256, 1 To 256)If...
2006-09-28 22:04:00 136
空空如也
webwork中的这一个类有什么作用?
2009-09-29
EJB部署
2008-08-27
TA创建的收藏夹 TA关注的收藏夹
TA关注的人