7个数字里面随机抽取5个数字出来判断是否都是123456类型 _ 综合讨论 - 按键精灵论坛
腾讯微博：
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.2.5软件大小：62.5M更新时间：06-06
软件版本：1.3.0软件大小：29.2M更新时间：09-14
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 357|回复: 4
jianglei1052
我自己写的一段脚本，感觉还是太多了 有没有跟简单的方法Dim d1, d2, z1, z2, z3, z4, z5, i, bb, cc, jd1 = 7d2 = 2z1 = 11z2 = 6z3 = 10z4 = 9z5 = 8Dim a(6)Dim b(5)a(0) = d1a(1) = d2a(2) = z1a(3) = z2a(4) = z3a(5) = z4a(6) = z5For i = 0 To UBOUND(a)bb = a(i)cc = a(i) + 4If i=0 then b(0) = a(1)
b(1) = a(2)
b(2) = a(3)
b(3) = a(4)
b(4) = a(5)
b(5) = a(6) End IfIf i=1 then b(0) = a(0)
b(1) = a(2)
b(2) = a(3)
b(3) = a(4)
b(4) = a(5)
b(5) = a(6) End IfIf i=2 then b(0) = a(0)
b(1) = a(1)
b(2) = a(3)
b(3) = a(4)
b(4) = a(5)
b(5) = a(6) End IfIf i=3 then b(0) = a(0)
b(1) = a(1)
b(2) = a(2)
b(3) = a(4)
b(4) = a(5)
b(5) = a(6) End IfIf i=4 then b(0) = a(0)
b(1) = a(1)
b(2) = a(2)
b(3) = a(3)
b(4) = a(5)
b(5) = a(6) End IfIf i=5 then b(0) = a(0)
b(1) = a(1)
b(2) = a(2)
b(3) = a(3)
b(4) = a(4)
b(5) = a(6) End IfIf i=6 then b(0) = a(0)
b(1) = a(1)
b(2) = a(2)
b(3) = a(3)
b(4) = a(4)
b(5) = a(5) End IfFor 4If bb + 1 = b(0) Then
bb = bb + 1ElseIf bb + 1 = b(1) then
bb = bb + 1&&&&ElseIf bb + 1 = b(2) Then bb = bb + 1&&&&ElseIf bb + 1 = b(3) Then&&&& bb = bb + 1&&&&ElseIf bb + 1 = b(4) Then&&&& bb = bb + 1&&&&ElseIf bb + 1 = b(5) Then bb = bb + 1&&&&&&&&&&&&End If&&&&NextTracePrint bbIf bb = cc Then &&&&TracePrint &有五连号&&&&&Exit ForElse &&&&TracePrint &no&End If&&&&Next
按键14周年庆纪念勋章按键14周年庆纪念勋章（360天）按键精灵开发者6级（新浪V认证）通过新浪微博加V后自动发放，并替换普通的认证6级勋章。 潜水员按键潜水员勋章按键明星按键明星勋章骨灰级按键用户3年以上的按键论坛用户按键会员（月）按键会员绑定账号后自动赠送论坛GG按键论坛男性用户勋章学有所成学有所成勋章，新手步入按键学堂的第一枚勋章
简单来说就是判断是否连号……split把字符串分割成数组，遍历数组，判断后一个是不是等于前一个加一（或者减一），循环到倒数第二个数为止，代码就不上了
我又回来了……
按键精灵开发者1级可通过提升认证等级来升级勋章：
回复 Function 排序(Oldlist)
Dim px, NewList
Set Px = CreateObject(&scriptcontrol&)
Px.Language = &JScript&
Px.addcode &function sortnumber(a,b){return a-b};function sort(x){var d,b=x.split(',');d=b.sort(sortnumber);d=d.join(',');return(d);}&
Set sort = Px.eval(&sort&)
排序 = sort(Oldlist)
End Function
按键X开拓者勋章最先体验按键精灵X，且提交有效反馈的奖励勋章剑侠勋章剑侠世界公测活动勋章过大年勋章俩小福娃给大家拜年啦！年全勤论坛连续打卡签到365次以上（365天）月全勤论坛自然月（如8.1-8.31）签到满勤，系统会在月底自动判断发放。天使勋章天使一样的用户按键明星按键明星勋章按键精灵开发者6级可通过提升认证等级来升级勋章：论坛GG按键论坛男性用户勋章小红帽对论坛提出良好建议（可向管理员申请）发帖高手鼓励积极回复，但注意不要灌水哦
Randomize a=&1234567&For i = 7 To 3 Step - 1 &&&&p = int(i * rnd + 1)&&&&temp = mid(a, p, 1)&&&&TracePrint temp&&&&a = Replace(a, temp, &&)NextTracePrint aIf a = &12& or a = &17& or a = &67& Then &&&&MessageBox &是5连号&End If
小龟跑的快
按键精灵开发者4级可通过提升认证等级来升级勋章：小红帽对论坛提出良好建议（可向管理员申请）
你的脚本逻辑有问,判断那么多,...For i = 0 To UBOUND(a)I是的值是从第0个数开始的,那么,A(0)=7那么B(0)就等于A(1)也就等于2.下面的判断就没用了,一直到If bb + 1 = b(0) Then 此时,B(0)=2,那么BB等于1,这里判断了6次,每次,BB的值自增加1,BB又回到7值,回到了原点....要说简化了,定义一个数组就好了Dim b(5)a = array(7, 2, 11, 6, 10, 9, 8)扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
下载作业帮安装包
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
十位上是5,个位上是7
十位上是5,个位上是7的数是（&&& ）.
扫二维码下载作业帮
拍照搜题，秒出答案，一键查看所有搜题记录
为您推荐：
其他类似问题
扫描下载二维码}