本高丽人提醒大家一个要注意的安全问题。
给出答案之前,很多自称大神的人都来挑战知识吧!
如下第一个循环语句中的
MsgBox(String.Join(Space(1),nList1(0)))这个值每次循环应该正确
显示为;
02030405060708091001
03040506070809100102
04050607080910010203
05060708091001020304
每次循环这样显示下去,可是如下代码的运行结果不是符合如上数据。
却是数据显示得乱七八道。
大家动动脑筋寻找答案吧!·是什么原因导致错误了?
让本大魔王见识几个自称的大神能过关本次考试呢
ModuleModule5
PrivateStructureStruct1
FriendDeQueue1AsString()
EndStructure
PrivateEnumMyEnum1AsInteger
IndexOf0=0
IndexOf1=1
EndEnum
FunctionMyFunc1()AsIEnumerable(OfString)
DimObj1AsStruct1
ReDimObj1.DeQueue1(0To10)
DimnList1(0To10)AsList(OfString)
nList1(0)={"01","02","03","04","05","06","07","08","09","10"}.ToList
DimTrue1(0To10)AsBoolean
DimList1AsNewList(OfString)
Forindex1=0To8
True1(0)=True
Obj1.DeQueue1(0)=nList1(0).First
nList1(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=1To8
True1(1)=True
nList1(1)=If(True1(0),nList1(0),nList1(1))
True1(0)=False
Obj1.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)))
Next
Next
ReturnList1
EndFunction
EndModule
分 -->
|