国产成人AV一区二区三区在线_国产成人精品无码免费看_国产成人无码无卡在线观看_国产精品成人A区在线观看_国产日韩精品欧美一区_国产亚洲精品自在久久蜜TV_久草热久草热线频97精品_久久久噜噜噜久久中文福利_久久婷婷五月综合色国产免费观看_日日狠狠久久偷偷色综合0,九一桃色在线观看,久久97精品久久久久久久不卡,国产成人精品亚洲精品

vb中next沒有for

訪客2024-11-27 17:09:021

Dim t As Integer

For i = 1 To 9

k = i

For j = i + 1 To 10

If a(k) < a(j) Then k = j

If a(k) <> a(j) Then

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

List1.AddItem Str(a(i))

End If

Next i

End Sub

Private Sub Form_Load()

n = 10

For i = 1 To 10

a(i) = Int(100 * Rnd)

List1.AddItem Str(a(i))

Next i

End Sub

你有

For j = i + 1 To 10

但沒有

next j

在

Next i

前面要加

Next j

的

Tags：vb

文章評論