问题描述
本高丽人提醒大家一个要注意的安全问题。给出答案之前，很多自称大神的人都来挑战知识吧！如下第一个循环语句中的MsgBox(String.Join(Space(1),nList1(0)))这个值每次循环应该正确显示为；02030405060708091001030405060708091001020405060708091001020305060708091001020304每次循环这样显示下去，可是如下代码的运行结果不是符合如上数据。却是数据显示得乱七八道。大家动动脑筋寻找答案吧！·是什么原因导致错误了？让本大魔王见识几个自称的大神能过关本次考试呢ModuleModule5PrivateStructureStruct1FriendDeQueue1AsString()EndStructure<Flags()>PrivateEnumMyEnum1AsIntegerIndexOf0=0IndexOf1=1EndEnumFunctionMyFunc1()AsIEnumerable(OfString)DimObj1AsStruct1ReDimObj1.DeQueue1(0To10)DimnList1(0To10)AsList(OfString)nList1(0)={"01","02","03","04","05","06","07","08","09","10"}.ToListDimTrue1(0To10)AsBooleanDimList1AsNewList(OfString)Forindex1=0To8True1(0)=TrueObj1.DeQueue1(0)=nList1(0).FirstnList1(0).RemoveAt(MyEnum1.IndexOf0)nList1(0).Add(Obj1.DeQueue1(0))List1.Add(String.Join(Space(1),nList1(0)))MsgBox(String.Join(Space(1),nList1(0)))Forindex2=1To8True1(1)=TruenList1(1)=If(True1(0),nList1(0),nList1(1))True1(0)=FalseObj1.DeQueue1(1)=nList1(1).Item(MyEnum1.IndexOf1)nList1(1).RemoveAt(MyEnum1.IndexOf1)nList1(1).Add(Obj1.DeQueue1(1))List1.Add(String.Join(Space(1),nList1(1)))NextNextReturnList1EndFunctionEndModule
解决方案
本帖最后由 office_2007 于 2015-03-25 10:07:27 编辑
解决方案二：
不知所云。
解决方案三：
真恶心，想骗答案不说，还高丽人，大魔王
解决方案四：
看不懂……真心看不懂……请写个C#版本
解决方案五：
引用3楼starfd的回复:
看不懂……真心看不懂……请写个C#版本
我特别照顾酷爱vb.net的`人。
解决方案六：
够中二……这是那啥……得那啥
解决方案七：
引用2楼rtdb的回复:
真恶心，想骗答案不说，还高丽人，大魔王
我的身份就是高丽人。对你来说有什么不舒服呢？好奇怪。从你的反应中我看出你是一个极危险的极端主义倾向者。像你这样的人对于其他民族或其它国家甚至整个世界来说都没有什么意义，你面对的是总是敌人。为什么呢因为，你的标准是只要不是,同属>，才是敌人！！！这样愚蠢的人手里总是闹出祸乱。阿门！
解决方案八：
这是人身攻击贴外加自我感觉良好贴完毕
解决方案九：
补补历史吧哥们，还高丽人……
解决方案十：
结帖率：76.19%
解决方案十一：
本大魔王最近时间很忙，很难抽出宝贵时间来照顾大家。本大魔王今天既然特别驾到这里，愿意直接踢给答案！既然没一个人敢露面跟本大魔王挑战，我很理解，这是正常。倒计时24：00
解决方案十二：
我时间很忙，简单演讲如下；如下代码中的错误位置在于If函数本身。是难以察觉的潜在BUG。因为，If函数的返回类型是Object类型，这一点大家要注意。如果，If函数通过判断表达式返回两者中的任意对象类型时，两者对象类型为同一个类型时发生BUG。其中有一个对象返回的时候没有返回的对象也被改变数据，这时候发生两者完全同步更新。因为，微软对If函数的内部代码设计中只作了引用处理，没有处理实例化。所以，VB.NET中操作对象类型时必须处理实例化。只要这样返回正常。如下代码中作了实例化处理，发帖中的代码比较一下，有什么不同。然后，请运行看看，结果有什么不同。下课！ModuleModule5PrivateStructureStruct1FriendDeQueue1AsString()EndStructure<Flags()>PrivateEnumMyEnum1AsIntegerIndexOf0=0IndexOf1=1EndEnumFunctionMyFunc1()AsIEnumerable(OfString)DimObj1AsStruct1ReDimObj1.DeQueue1(0To10)DimnList1(0To10)AsList(OfString)nList1(0)={"01","02","03","04","05","06","07","08","09","10"}.ToListDimTrue1(0To10)AsBooleanDimList1AsNewList(OfString)Forindex1=0To8True1(0)=TrueObj1.DeQueue1(0)=nList1(0).FirstnList1(0).RemoveAt(MyEnum1.IndexOf0)nList1(0).Add(Obj1.DeQueue1(0))List1.Add(String.Join(Space(1),nList1(0)))MsgBox(String.Join(Space(1),nList1(0)))Forindex2=1To8True1(1)=TruenList1(1)=If(True1(0),NewList(OfString)(nList1(0)),NewList(OfString)(nList1(1)))True1(0)=FalseObj1.DeQueue1(1)=nList1(1).Item(MyEnum1.IndexOf1)nList1(1).RemoveAt(MyEnum1.IndexOf1)nList1(1).Add(Obj1.DeQueue1(1))List1.Add(String.Join(Space(1),nList1(1)))NextNextReturnList1EndFunctionEndModule
解决方案十三：
不知所云呀。飘过了。
解决方案十四：
简单的事情复杂化，小牛牛。你那不过是吧一个字符串头三个元素插入到屁股后面作为一个新行。
解决方案十五：
啥JB玩意...能好好说话不?
解决方案：
看了你其他的帖子原来是病人最后的遗愿啊....真可怜..不知道你现在病好了没有