vb中next没有for-中国广告知道网

已解决问题

谷歌用户在2018.03.03提交了关于“巴黎凯旋门vb中next没有for”的提问，欢迎大家涌跃发表自己的观点。目前共有2个回答，最后更新于2024-09-14T06:29:01。

DimtAsInteger

Fori=1To9

k=i

Forj=i+1To10

Ifa(k)<a(j)Thenk=j

Ifa(k)<>a(j)Then

t=a(k):a(k)=a(j):a(j)=t

List1.AddItemStr(a(i))

EndIf

Nexti

EndSub

PrivateSubForm_Load()

n=10

Fori=1To10

a(i)=Int(100*Rnd)

List1.AddItemStr(a(i))

Nexti

EndSub

希望大家能够帮助她。

详细问题描述及疑问：

DimtAsInteger

Fori=1To9

k=i

Forj=i+1To10

Ifa(k)<a(j)Thenk=j

Ifa(k)<>a(j)Then

t=a(k):a(k)=a(j):a(j)=t

List1.AddItemStr(a(i))

EndIf

Nexti

EndSub

PrivateSubForm_Load()

n=10

Fori=1To10

a(i)=Int(100*Rnd)

List1.AddItemStr(a(i))

Nexti

EndSub

期待您的答案，你就是当代的活雷锋,太感谢了！