比较大小（比较法） Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 10a(i) = 10 + Int(Rnd() * 1000)Print a(i);Next iPrintFor j = 1 To 9For i = j + 1 To 10 Other 2023-09-29 52 点赞 0 评论 78 浏览
