代码错在哪里了？

答案:6 悬赏:0 手机版

解决时间 2021-04-24 19:23

提问者网友：箛茗
2021-04-24 09:35

模块： text1.text Command1

Private Sub Command1_Click()
hong1 = "1" Or "2" Or "3" Or "4" Or "5" Or "6" Or "7" Or "8" Or "9" Or "10" Or "11" Or "12" Or "13" Or "14" Or "15" Or "16" Or "17" Or "18" Or "19" Or "20" Or "21" Or "22" Or "23" Or "24" Or "25" Or "26" Or "27" Or "28" Or "29" Or "30" Or "31" Or "32" Or "33"
hong2 = "1" Or "2" Or "3" Or "4" Or "5" Or "6" Or "7" Or "8" Or "9" Or "10" Or "11" Or "12" Or "13" Or "14" Or "15" Or "16" Or "17" Or "18" Or "19" Or "20" Or "21" Or "22" Or "23" Or "24" Or "25" Or "26" Or "27" Or "28" Or "29" Or "30" Or "31" Or "32" Or "33" And hong2 <> hong1
hong3 = "1" Or "2" Or "3" Or "4" Or "5" Or "6" Or "7" Or "8" Or "9" Or "10" Or "11" Or "12" Or "13" Or "14" Or "15" Or "16" Or "17" Or "18" Or "19" Or "20" Or "21" Or "22" Or "23" Or "24" Or "25" Or "26" Or "27" Or "28" Or "29" Or "30" Or "31" Or "32" Or "33" And hong3 <> hong1 And hong3 <> hong2
hong4 = "1" Or "2" Or "3" Or "4" Or "5" Or "6" Or "7" Or "8" Or "9" Or "10" Or "11" Or "12" Or "13" Or "14" Or "15" Or "16" Or "17" Or "18" Or "19" Or "20" Or "21" Or "22" Or "23" Or "24" Or "25" Or "26" Or "27" Or "28" Or "29" Or "30" Or "31" Or "32" Or "33" And hong4 <> hong1 And hong4 <> hong2 And hong4 <> hong3
hong5 = "1" Or "2" Or "3" Or "4" Or "5" Or "6" Or "7" Or "8" Or "9" Or "10" Or "11" Or "12" Or "13" Or "14" Or "15" Or "16" Or "17" Or "18" Or "19" Or "20" Or "21" Or "22" Or "23" Or "24" Or "25" Or "26" Or "27" Or "28" Or "29" Or "30" Or "31" Or "32" Or "33" And hong5 <> hong1 And hong5 <> hong2 And hong5 <> hong3 And hong5 <> hong4
hong6 = "1" Or "2" Or "3" Or "4" Or "5" Or "6" Or "7" Or "8" Or "9" Or "10" Or "11" Or "12" Or "13" Or "14" Or "15" Or "16" Or "17" Or "18" Or "19" Or "20" Or "21" Or "22" Or "23" Or "24" Or "25" Or "26" Or "27" Or "28" Or "29" Or "30" Or "31" Or "32" Or "33" And hong6 <> hong1 And hong6 <> hong2 And hong6 <> hong3 And hong6 <> hong4 And hong6 <> hong5
lan = "1" Or "2" Or "3" Or "4" Or "5" Or "6" Or "7" Or "8" Or "9" Or "10" Or "11" Or "12" Or "13" Or "14" Or "15" Or "16"
Text1.Text = hong1 And hong2 And hong3 And hong4 And hong5 And hong6 And lan
End Sub

每次的运行结果都是31...错在了哪里？

最佳答案

五星知识达人网友：西风乍起
2021-04-24 09:58

你写这样的代码，一是可以累死自己，二是可以累死别人，三来累死电脑的CPu

全部回答

1楼网友：独行浪子会拥风
2021-04-24 15:46

好疯狂的VB代码啊看着眼晕

2楼网友：拜訪者
2021-04-24 14:20

算双色球啊，这代码写的也太笨拙了吧~~

3楼网友：鱼忧
2021-04-24 12:53

我刚自学的，是C还是VB、不太难的C代码可以懂！但是，不好意思了，

4楼网友：鱼忧
2021-04-24 11:48

楼主不但写着累，看起来也累！直接Random产生随机数，Dim a As Random Dim b As Inter，b＝a.Next(33) Dim c As Inter，c＝a.Next(34)b<>c，其他同理。我两个星期前才开始自学，可能有些错误，望楼主参考，有问题请提出

5楼网友：思契十里
2021-04-24 10:11

吓到了，这是basic语言吗

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息