Fori= 1 To 9 Forj=i+ 1 To 10 If a (i>a(j Then t=a (i): a(i=a(j: a (i) Next j Next Print"排序后的结果为 Fori= 1 To 10 Print a (i) Next i End sub 请单属标左键换页
For i = 1 To 9 For j = i + 1 To 10 If a（i）> a（j）Then t = a（i）：a（i）= a（j）： a（j）= t Next j Next i Print "排序后的结果为" For i = 1 To 10 Print a（i）， Next i End Sub
【例75】随机产生10个两位整数,找出其中最大 值、最小值。 分析:该问题可以分为两部分处理:一是产生10 个随机整数,并保存到一维数组中;二是对这10个整 数求最大、最小值 程序代码为: Private Sub Command1 Click O Dim min %, max%, i%, a(10) As Integer R anatomize 请单属标左键换页
【例7.5】随机产生10个两位整数，找出其中最大 值、最小值。 分析：该问题可以分为两部分处理：一是产生10 个随机整数，并保存到一维数组中；二是对这10个整 数求最大、最小值。 程序代码为： Private Sub Command1_Click（） Dim min%，max%，i%，a（10）As Integer Randomize