Sub main() '归并排序 a = c_randomize_not_repeated.getRandDigit sort a Debug.Print 1 End Sub Sub sort(a) Dim aux() ReDim aux(UBound(a)) doSort a, aux, 0, UBound(a) End Sub Sub doSort(a, aux, low, high) If high <= low Then Exit Sub Dim mid As Long ' 如果是奇数个,左...
ar= .Range("a1").CurrentRegion For x=2To UBound(ar) s= ar(x,1) &","& ar(x,2) If Not d.exists(s) Then d(s)= Array(ar(x,3),1, ar(x,4)) Else k=d(s) k(0) = k(0) + ar(x,3) k(1) = k(1) +1d(s)=k End If Next End With With Sheets("res") r=1.Col...
依云末墨的博客 7月6日 02:45 来自iPhone客户端 该撒的物当归给该撒,神的物当归给神。 û收藏 转发 评论 ñ赞 评论 o p 同时转发到我的微博 按热度 按时间 正在加载,请稍候...35关注 30粉丝 238微博 微关系
盛依云 3月6日 19:20 来自微博网页版 4天3晚,热雪向前,🚗驶向长白之巅!两年前和小伙伴在长白山打雪仗的画面还历历在目,这次终于有机会重游这条线路啦!这次我们乘坐一汽丰田安排了更精简的四天三晚的自驾行程,从延吉到白山,除了延大网红墙、火山温泉、雾凇漂流、滑雪体验,还第一次看到了长白山天池!超幸运...
人气 文章 关注 粉丝 冷依云 关注 共 篇文章 原创 我的友情链接 阅读:185 发布于:2017-11-22 23:08:21 评论0 原创 AVR系列之TWI功能测试 阅读:4222 发布于:2009-09-01 22:19:11 评论1 原创 AVR系列之PWM测试 阅读:693 发布于:2009-09-01 11:36:24 评论0 ...
视频课 免费课 排行榜 短视频 直播课 软考学堂 全部课程 软考 华为认证 厂商认证 IT技术 PMP项目管理 免费题库 在线学习 文章 资源 问答 课堂 专栏 直播 51CTO 鸿蒙开发者社区 51CTO技术栈 51CTO官微 51CTO学堂 51CTO博客 CTO训练营 鸿蒙开发者社区订阅号 51CTO软考 51CTO学堂APP 51CTO学堂企业版APP 鸿蒙开发者...
安装成功后,就可以运行某抑云软件了,然后,根据下图进行软件设置。 设置完毕后,把某依云软件重启,你就会发现和之前的不一样了,原来灰色的现在已经点亮,尽情的享受吧。 软件获取 隐藏内容 VIP高速下载 资源下载 投诉 VIP可高速下载,永久VIP可进专属群,享受群内福利。 下载地址 夸克 密码:无 本站所有资源均...
全本资源在线阅读《思念晚晚》夏依云周明宇 《思念晚晚》小说由作者杳杳文化所写,情节波澜起伏,细节描写的惟妙惟肖,小说的主人公是夏依云周明宇,讲述了:「从前是我不对,总觉得秦晚晚就是我的毕生所爱,没有得到他令我魂牵梦萦,现在我想清楚……... 《思念晚晚》小说试读...
谁言不同赏,俱是醉花间“。北宋张耒《春词》亦云:“霭霭芳园谁氏家,朱门横锁夕阳斜”。曾有博客巧妙地把它延伸写成一段优美的散文诗:“一边走,一边想,到门外蓦然回首,一天已过去。冷月斜照,角落另几扇院门上,有生了锈的铁锁跃入眼帘。一时恍惚,刚刚一个我,到底闯进了哪嘲哪代被尘封的琵琶笙歌中呢?“...
'给定一个正整数 n,将其拆分为至少两个正整数的和,并使这些整数的乘积最大化。 返回你可以获得的最大乘积。'示例 1:'输入: 2'输出: 1'解释: 2 = 1 + 1, 1 × 1 = 1。'示例 2:' '输入: 10'输出: 36'解释: 10 = 3 + 3 + 4, 3 × 3 × 4 = 36。Sub main() ...