Private Sub command1_Click() Dim i%, j%, t%
Dim a%(50), b%(50) WindowState = 2 Cls command1.Move 10000, 800 FontSize = 15 Randomize For i = 1 To 50
a(i) = Int(Rnd * 100 + 1) b(i) = i Next i For i = 1 To 49 For j = i + 1 To 50 If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t t = b(i): b(i) = b(j): b(j) = t End If Next j Print: Print Next i For i = 1 To 50 Print Format(b(i), "(!@@)"); Format(a(i), "!@@"); If i Mod 5 = 0 Then Print Next i End Sub 好晕 怎么都打不出来结果！！！！！！
2004-12-24 17:51
Private Sub command1_Click() Dim i%, j%, t%
Dim a%(50), b%(50) WindowState = 2 Cls command1.Move 10000, 800 FontSize = 15 Randomize For i = 1 To 50
a(i) = Int(Rnd * 100 + 1) b(i) = i Next i For i = 1 To 49 For j = i + 1 To 50 If a(i) > a(j) Then t = a(i): a(i) = a(j): a(j) = t t = b(i): b(i) = b(j): b(j) = t End If Next j Print: Print '这里打了好多换行，下面打印的东西全看不到，屏蔽这一行就可以了。 Next i For i = 1 To 50 Print Format(b(i), "(!@@)"); Format(a(i), "!@@"); If i Mod 5 = 0 Then Print Next i End Sub
2004-12-25 12:56
