2022年12月5日
回溯算法_N皇后
摘要： Sub 回溯算法_N皇后() n = 8 ReDim ar(n) cnt = nqueen(n, 0, ar, 0) Debug.Print (cnt) End Sub Public Function nqueen(n, row, res, count) If row = n Then count 阅读全文
posted @ 2022-12-05 14:52 依云科技 阅读(24) 评论(0) 推荐(0)
回溯算法_解数独1
摘要： Private Function solveSudokuHelper(board) As Boolean For i = 0 To 8 For j = 0 To 8 If (board(i, j) = ".") Then For k = 1 To 9 If isValidSudoku(i, j, k 阅读全文
posted @ 2022-12-05 10:40 依云科技 阅读(34) 评论(0) 推荐(0)
回溯算法_解数独2
摘要： Private Function solveSudokuHelper(board) As Boolean For i = 1 To 9 For j = 1 To 9 If (board(i, j) = ".") Then For k = 1 To 9 If isValidSudoku(i, j, k 阅读全文
posted @ 2022-12-05 10:39 依云科技 阅读(19) 评论(0) 推荐(0)
2022年12月4日
动态规划_最长公共子序列
摘要： '示例 1:输入：text1 = "abcde", text2 = "ace" 输出：3 解释：最长公共子序列是 "ace"，它的长度为 3。 '示例 2: 输入：text1 = "abc", text2 = "abc" 输出：3 解释：最长公共子序列是 "abc"，它的长度为 3。 '示例 3: 阅读全文
posted @ 2022-12-04 15:49 依云科技 阅读(26) 评论(0) 推荐(0)
动态规划_多重背包理论基础
摘要： Sub d27_动态规划_多重背包理论基础() Dim weight, value, nums, bagWeight weight = Array(1, 3, 4) value = Array(15, 20, 30) nums = Array(2, 3, 3) bagWeight = 10 Dim 阅读全文
posted @ 2022-12-04 15:15 依云科技 阅读(31) 评论(0) 推荐(0)
动态规划_整数拆分
摘要： '给定一个正整数 n，将其拆分为至少两个正整数的和，并使这些整数的乘积最大化。 返回你可以获得的最大乘积。 '示例 1: '输入: 2 '输出: 1 '解释: 2 = 1 + 1, 1 × 1 = 1。 '示例 2: ' '输入: 10 '输出: 36 '解释: 10 = 3 + 3 + 4, 3 阅读全文
posted @ 2022-12-04 11:35 依云科技 阅读(26) 评论(0) 推荐(0)
2022年11月29日
工作簿批量改名_多级文件夹
摘要： Public jg Sub 工作簿批量改名2() Dim oldName As String, newName As String, fileName Application.ScreenUpdating = False ar = getCustomerNameAndLastYuEByFullPat 阅读全文
posted @ 2022-11-29 13:41 依云科技 阅读(89) 评论(0) 推荐(0)
工作簿批量改名
摘要： Sub 工作簿批量改名1() Dim oldName As String, newName As String, fileName Application.ScreenUpdating = False With Application.FileDialog(msoFileDialogFilePick 阅读全文
posted @ 2022-11-29 13:40 依云科技 阅读(140) 评论(0) 推荐(0)
个税计算2.0
摘要： Public dic As Object, dic_工资求和 As Object, dic_已交税额 As Object, dic_项目信息 As Object, dic_受雇日期 As Object Public ar_res, ar_src Sub main() ' Application.Sc 阅读全文
posted @ 2022-11-29 09:05 依云科技 阅读(16) 评论(0) 推荐(0)
限行列和随机加墙版_递归调用解决结果含负数问题
摘要： Sub 限行列和随机加墙版() Dim nRows As Long, nCols As Long, nLastRow As Long, tmpSum As Long, tmpRow As Long, r As Long, c As Long Dim sumRows() As Long, nRowSk 阅读全文
posted @ 2022-11-29 09:01 依云科技 阅读(28) 评论(0) 推荐(0)