xjwldlover xjwldlover
关注数: 0 粉丝数: 25 发帖数: 853 关注贴吧数: 3
重新24点算法 operArr = Split(InputBox("请输入进行演算的数字,以英文逗号分割","24点游戏","例如:2,4,5,9"),",") operGoal = InputBox("请输入想要演算的结果","24点游戏","例如:24") Call final(operArr,operGoal) '========================================================================== ' ' 计算函数final(a,Goal) ' 参数:a 被计算的数字数组 ' Goal 要求的计算结果 ' ' 示例: ' a = Array(2,4,5,9) 'Goal = 24 'Call final(a,Goal) ' '========================================================================== Function final(a,Goal) ' 取乘数 For i = 0 To UBound(a) ' 取被乘数 For j = 0 To UBound(a) ' 取运算符 For k = 1 To 4 ' 数字不能重复,且不能为0 If i <> j And a(i) <> "0" And a(j) <> "0" Then ' 被除数不能为0 If k <> 4 Or Eval(a(j)) <> 0 Then tempExpre = "(" & a(i)& oper(k) & a(j) & ")" tempArr = a x = min(i,j) y = max(i,j) ' 使用第一次预算结果替换成数,被乘数替换成0 tempArr(x) = tempExpre tempArr(y) = "0" finalFlag = True ' 如果除了数组的第一个不是0,其他都是0,则证明已经将列出的数字全部使用了 For l = 0 To UBound(tempArr) If tempArr(l) <> "0" And l <> x Then finalFlag = False End If Next If finalFlag = True Then FinalExpre = tempArr(0) ' 如果全部使用了数字,判断最后结果是否等于目标值 If Eval(FinalExpre) = CSng(Goal) Then ' WScript.Echo FinalExpre If InStr(FinalExpre ,"+") Then If InStr(FinalExpre ,"-") Then If InStr(FinalExpre ,"*") Then If InStr(FinalExpre ,"/") Then WScript.Echo FinalExpre & "------------------------------------" End If End If End If End If ' WScript.Echo FinalExpre End If Else ' 如果数组未全部使用,则回溯新生成的数组 Call final(tempArr,Goal) End If End If End If Next Next Next End Function '取运算符函数 Function oper(operNum) Select Case operNum Case 1 oper = "+" Case 2 oper = "-" Case 3 oper = "*" Case 4 oper = "/" End Select End Function '取最大值函数 Function max(i,j) If i > j Then max = i Else max = j End If End Function '取最小值函数 Function min(i,j) If i > j Then min = j Else min = i End If End Function
为剧中人正名----个人想法 张仲平---一个家庭事业都能兼顾的人。对社会关系的把握通透圆润、能坚持自己的原则和底线。大家诟病他在什么地方,1,狡诈,2,花,不专情。狡诈这一点,试问别人都不遵从规则、都在和你玩心眼的时候,你来坚持正直,毫不徇私情?去车站买票,加入所有人都在蜂拥挤到售票口,你一个人会排队?那你就神圣了,个人能做到不破坏规则,这就是坚持原则,这就值得学习。自己不插队,但也应减少插队的人对自己的影响,这就是张仲平的行事原则。 徐艺----很多人骂,说他无脑、忘恩负义。说到底,也是两点。一是年轻气盛,而是没有原则。可以说,徐艺所有事情的出发点,都是一个优秀人才的出发点,他不甘于平庸、有远大的报复,相比于绝大数人更值得夸赞的是,他敢于付诸行动,在这看网文的,试问有几个没想法,但有几个在做?第二点,徐艺没有原则,忘恩负义、无视传统道德,没有诚信。一个年轻人,如果有一个机会可以让你插一下队就获得别人一生都无法达到的高度和地位,有几个人可以阻挡这种诱惑?插队当然是错的,但并不至于千刀万剐。偷大蒜的人判杀头的罪,这不合适吧。 曾真---有些疑惑为什么那么多人讨厌她,能干,20多岁却能独挡一面,特别是在新闻领域,这是一个很难的事情;善良,通过熊猫血和左达事件可以略观一二吧。很多人讨厌她在与,“小三”,对吧。小三是什么,喜欢上一个已婚男人的女人,这个有问题吗?喜欢一个人是没有错的,不管对方是什么人。绝大数人第一眼看到“小三”就开口骂了,但自己连小三是什么都不知道,破坏别人家庭?破坏?这个我有些无语,别人喜欢就是破坏了?这与结婚就不允许离婚是一样的道理。我们应该约束的应该是对于物质和放纵的诱惑,而不应该是对于好事物的向往。有多少人在骂丛林早该离婚,有多少人在骂曾真对张仲平的感情?爱恨,应该有原则,看到大多数的评论都是没有原则的骂仗。曾真,在我看来是歌敢爱敢恨的好女孩,即使和张仲平无法在一起,很悲剧,仍然支持她,她知道自己想要的感情,也能面对这结果,一个不敢面对自己感情的人是懦弱的。但不支持张仲平接受她的感情,他既想兼顾家庭又想有一些无关责任的邂逅,张仲平在感情才是真的放纵了~
我也来推荐不YY的小说,都是自己看过的 高手寂寞---与非网游小说的唯一区别就是人可以复活,一句话,只有偏执狂才会站在最顶端。 紫川---大家都有一个梦想,即使我是错的,也不会停留 九把刀杀手系列---轻松惬意的杀手生活,可以死亡,但不可以无趣。 猎命师---九把刀作品,最长的一部,设定很扯淡,也可以说很个性,但是任务性格描写非常好,每个人都是他自己。 英雄---看完你必定支持其中至少一位角色,形色的人生,形色的遭遇。大坑,谨防! 此间的少年---有趣而伤逝的青春,叹吧~ 全职高手---主角很牛,但众星闪耀,没有人是别人的装饰 流氓高手---就是搞笑,YY,不死扣细节的话,会让你很开心 弹痕---强大的单兵,非常的阅历。看的很过瘾,肯定YY了,但是不太过分 冰是睡着的水---平缓的口气、心碎的经历、值得尊敬的对手。喜欢YY就别看了,整部小说就是一潭静水,很想看,但不会让你激情。 新武侠系列---步非烟、苍月、时未寒。建议每位只看一部即可,会感觉很有味道。多了就感觉风格单一了。 《天行健》---唯刀百辟、唯心不易。一部小说看完,对这句话会有非凡的印象。 山河英雄志---地理、军事、人情,感觉作者写这本书花费了大量的心思啊,感觉挺好的。 这些都是我感觉非常好的小说,估计你看过不少,希望有帮助。对我来说,主角魅力无穷,同一时期内高手都是他朋友、对手总被踩的小说都是YY,不YY的太难找了
在我们国家,有资格说出‘支持民族工业’的团体和人并不多 国家没资格,对于物价、商品质量、服务、规则都搞不定的人让你吃亏去买能要你命的假货,你会心甘情愿吗? 企业没资格,观国企、私企在销售大好时很少有想到提供更好更优惠的商品和服务,往往都是在想尽办法的攫取利益,利用国内的收益填补国外的漏洞,美其名曰发展,在遇到困难时告诉你‘支持国货,振兴中华’吧,想到铁道部、石油石化等等的这种,有种大海的感觉没?当然,好的企业也是有的,但是很少,作用不大。当好坏参半时,往往都是不好的处于主导地位。 很难说,有钱人往往经历了前面的压榨国人的阶段,如果不问根源,可以说他们有资格;官员教授这种中高阶层,说什么好呢,一方面他们不做事,只靠收取保护费和接客过日子,过好日子。在面上,他们也可以说支持民族工业;然后就是小蓝白领、小工、农民、民工这些人了,他们可以问心无愧的说支持国货,但会有些缺心眼,自己没从这些东西上获得利益一直在买赔钱货,还癫癫的说‘我快乐’,真这样就脑子有问题,更多的是不得不。 总结,一个国家的发展在自我建立基本完善的时候,衡量其发展的应该是进出口贸易中获利的差额。在贸易中一直赔钱,国家GDP却一直飙升,要么是国家本来就很落后、自我功能迫切需要完善,要么就是对国内的人压榨的太厉害了。一个出口1000亿美元粮食的国家,去取笑一个输出800亿技术的国家贸易落后,这会不会比《笑林》里的笑话更好笑?
车羊问题变异-及原理简单分析     非常6+1,有10个同样造型的彩蛋,其中一个有大奖,其余都是空的。李咏让你选择两个,然后他将剩余8个中的彩蛋打掉7个没奖的。问你是否愿意用两个彩蛋换剩余的一个? 不换的话,中奖的几率多少;换的话,中奖的几率多少? 分析:①选择两个后,彩蛋被分为两组           A组2个:几率2/10 , B组8个:几率8/10。           :此时生成的是AB组的固有概率,不会因为一个球的砸开影响整组的获奖概率。但不能把同一组的砸的一个不剩,这是01有无的本质问题,这样会导致以组为单位的概率转移,使B组的概率增加到A组,获奖几率就变成1了。        ②李咏砸掉B组中的7个无奖彩蛋          A组两个:几率2/10, B组1个:几率8/10            :此时砸掉无奖彩蛋(同组不砸光),AB组的固有概率是不会发生改变的,只是B组内概率发生改变,总体的概率转移到B组剩余的一个彩蛋。                       分歧:      ①有人反驳说B组开始几率不应该是简单的8个1/10相加,请参照互斥事件的定义。      ②最大分歧在于,很多人认为B组砸彩蛋时概率变化会影响到A组。李咏从B组砸蛋时,全部为B组内的确定事件,只会是B组内的彩蛋中奖几率发生改变,不会影响到AB组的概率。         确定性事件发生时,会将自身发生的概率明确分摊到同组的其他事件上面。                      此题还可以延伸到,李咏把B组砸到剩余两个,这时嘉宾换一个彩蛋的获奖几率?      发明车羊问题的人,不是一个很有趣的人,就是个大骗子!
1 下一页