朱科技的个人资料

wps中这段VB代码每行都是什么意思 Sub MYCMB() Const t = 5, Z = 8 '从8个数字中取5个进行组合 Dim CNO, q(), CM(), CM2() st = Timer '为保证速度，用数组存储结果 ReDim q(1 To t) ReDim CM(1 To WorksheetFunction.combin(Z, t)) nq 1, 1, t, Z, CNO, q(), CM() '转二维数组，以便EXCEL存放 ReDim CM2(1 To CNO, 1 To t) For i = 1 To CNO For j = 1 To t CM2(i, j) = CM(i)(j) Next j Next i '输出结果到表格 Cells(1, t + 2) = "组合数" Cells(1, t + 3) = CNO If CNO > 65536 Then CNO = 65536 Range(Cells(1, 1), Cells(CNO, t)) = CM2 Cells(2, t + 2) = "运行时间(秒)" Cells(2, t + 3) = Timer - st End Sub '递归函数 Sub nq(n, s, x, E, CNO, q(), CM()) For i = s To E - x + n q(n) = i If n = x Then '当前组合的数字已经选完 CNO = CNO + 1 CM(CNO) = q Else nq n + 1, i + 1, x, E, CNO, q(), CM() End If Next i End Sub

小伙伴在干吗呢

手机上更新后发送到车机功能去哪里了

在嘉兴玩几天，有小伙伴吗

excel多条件格式怎么设置：A2等于晚上，C2:AI2的时间小于1830 excel多条件格式怎么设置：A2等于晚上，C2:AI2的时间小于1830字体变色

如何让代码执行2次在退出 @echo off title 获取网络时间 cd /d "%tmp%" ( echo With CreateObject("Microsoft.XMLHTTP"^) echo .open "GET", "http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Ftime.tianqi.com%2F&urlrefer=3b558ba07eab28549f9e609d72516592", False echo .send echo s = Split(.responseText, "var timestamp = "^&""""^)^(1^) echo s = Split(s,""""^)^(0^) echo s = left(s,10^) echo End With echo WSH.Echo DateAdd("s", s * 1, "1970-1-1 8:00"^) )>getTime.vbs for /f "tokens=1*" %%i in ('cscript //nologo gettime.vbs') do date %%i & time %%j echo 设置完成！

如何让代码执行2次，怎么改 @echo off title 获取网络时间 cd /d "%tmp%" ( echo With CreateObject("Microsoft.XMLHTTP"^) echo .open "GET", "http://tieba.baidu.com/mo/q/checkurl?url=http%3A%2F%2Ftime.tianqi.com%2F&urlrefer=3b558ba07eab28549f9e609d72516592", False echo .send echo s = Split(.responseText, "var timestamp = "^&""""^)^(1^) echo s = Split(s,""""^)^(0^) echo s = left(s,10^) echo End With echo WSH.Echo DateAdd("s", s * 1, "1970-1-1 8:00"^) )>getTime.vbs for /f "tokens=1*" %%i in ('cscript //nologo gettime.vbs') do date %%i & time %%j echo 设置完成！

设置电脑22:00自动关机，有程序运行时先关掉程序在进行关机怎么写代码

word定位到每页第二行最后地方然后把字体大小调整为30并换行，怎 word定位到每页第二行最后地方然后把字体大小调整为30并换行，怎么批量操作 http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fzhidao.baidu.com%2Fquestion%2F1244978765840086779.html%3Fentry%3Dqb_uhome_tag&urlrefer=b10e690981600a0f77a3879357627a45

电脑从1一直往上增加数字，点击鼠标左键自动退出，怎么写代码？电脑从1一直往上增加数字，点击鼠标左键自动退出，怎么写代码？

商南更换“过期身份证”必须要本人到场吗

新年快乐，大兄弟们

商南鹿城中学

高德，反馈3天了，怎么还不处理呢

高德地图4008100080是不是骗人的，打了4次电话，邮件高德地图4008100080是不是骗人的，打了4次电话，邮件发过一次也不回邮件，问题还没解决

分享贴子分享贴子

汽车上（吉利远景X3)，原来删除过，现在一打开就是这个界面，相当于废了，升级又出现激活码的页面，我又删除了，**咋办啊

把EXCEL数据逐个写入到别的软件中，如何实现？

EXCEL中单元格E列有内容F列就显示当前时间，时间不变，用VB？ EXCEL中单元格E列有内容F列就显示当前时间，时间不能经常变，用VB？

EXCEL中一维数组如何去重？数组的结果：重庆-金华-金华-杭州要显示成：重庆-金华-杭州

EXCEL中A列不重复的合并显示在B2一个单元格，不加辅助列怎么完成 EXCEL中A列不重复的合并显示在B2一个单元格，不加辅助列怎么完成

圆通速递吧吧主竞选：NO.0001号候选人

你们都多大了呀

谁能告诉我12306车次时间表在哪个路径输入车次查询，显示所有站点的到达时间与出发时间信息

EXCEL查找是否包含关键字 http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fzhidao.baidu.com%2Fquestion%2F2016916930573611788.html%3Fentry%3Dqb_uhome_tag&urlrefer=ff6c2015121a52feb840b1e3ed11e3a1 同时在C69与H69查找否包含关键字（"海宁市盐仓","桐乡市崇福","嘉善县大舜"），J69显示对应的{"盐仓","崇福","大舜"}

我发表了一篇图片贴，大伙来看看吧~

回商南后发现路上的车不喜欢超车，就喜欢开远光灯，我远近灯光提示对方竟然没用

我晚上到西安，可撩

有木有明天溜冰的小姐姐啊，一起啊有木有明天溜冰的小姐姐啊，一起啊

明天有没有去市区风池溜冰的啊，一起啊明天有没有去市区风池溜冰的啊，一起啊

送餐超时，会有什么结果啊

18点左右到南洋职业学院送美团，感觉大门好大啊

交朋友，都可以的那种交朋友，都可以的那种

交友啊，无聊时可以聊天微信号zkj接着5730然后76908

图标中1和2表示什么，请第司机解释下

科目三红灯路口，给个提示吧科目三考试还未到达十字路口看到红灯，现在行驶25码的速度3档 ———————————————————————————— 1，是直接“踩离合与刹车”直到与前车的保险杠重合停车？ 2，还是轻点刹车在踩离合由3档降到2档接着“踩离合与刹车”直到与前车的保险杠重合停车？

酷狗音乐有TV版的吗，放在投影仪上用摇控器

EXCEL中日期格式的时间前面加2个负号得出小数?怎么来的 A1 日期时间：2018/8/6 5:04:43 B1 输入公式：=--A1 B1得出的结果是小数：43318.21161 请问怎么计算来的？百度提问：http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fzhidao.baidu.com%2Fquestion%2F1052413161027922459.html&urlrefer=238a12311a854b7ae1764e223bc89ad8

求小于7点的最大一条数据

显示小于7点最大的一条数据 http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fpan.baidu.com%2Fs%2F1HxMUwtUi4V9X1eXIlp0iSQ&urlrefer=c7d89acc50e666180a1a9106b027f77e

excel2016录制宏代码制作工资条与wps录制宏制作工资条录制宏VB的动作一样，excel2016可以达到正确结果但wps就不能达到正确结果，主要目的就是想了解问题出现在哪里?

WPS如何利用VB制作工作条录制宏的结果怎么执行都不对

逐步解释每行意思 Option Explicit Sub 合并A列到B列() Dim i, j, v i = 1 While Cells(i, 1) <> "" v = Cells(i, 1) j = i + 1 While Cells(j, 1) = v j = j + 1 Wend j = j - 1 Cells(i, 2) = Cells(i, 1) If i <> j Then Cells(i, 2).Resize(j - i + 1, 1).Merge End If i = j + 1 Wend End Sub

能分配一个对象不，快点分配啊，

裙子呢

能见度小于50米，到底怎么样的速度行驶？限速30公里/小时(情形之一包括能见度50米),又有一个能见度小于50米时车速不得超过20公里/小时，怎么理解？

EXCEL在“名称”第一次出现后面显示“对应值”第一次不为0的值

EXCEL中提取对应数据中第一条不等于0的数据

EXCEL中2行数据同时存在，依次排列出来

春天到了，都出来吧

曹操的"平黄巾，定河北，征乌桓，收荆州，天下九州，得其六" 地名都是指的哪里,求学习

曹操的"平黄巾，定河北，征乌桓，收荆州，天下九州，得其六" 其中的地名都是指哪里

一人饮洒醉

陈亦迅，王菲，谢霆锋KTV

O3单元格的值，自动计算出3个数，也就是（A*B*C)/8000=O3单元格 O3单元格的值，自动计算出3个数，也就是（A*B*C)/8000=O3单元格的值，要算出A与B与C,分别显示在P3 Q3 R3

根据内容计算出乘数与被乘数,如内容 http://tieba.baidu.com/mo/q/checkurl?url=https%3A%2F%2Fzhidao.baidu.com%2Fquestion%2F140249835204143365.html&urlrefer=ee3c9c37bb0cf1f6b546b277d9e3ef89 我要自动生成3个自然数除以9000得出的结果是9.8 A*B*C/9000=9.8 也就是我只有结果9.8，想要随机A与B与C这3个自然数

A列等于张三对应的B列所有内容在E2单元格排列显示出来,B列有空值