随机产生n个10-100之间的整数，用过程实现冒泡排序的升序排列。并将排序结果保存在数据文件data.dat中

如题所述

Dim a(1 To 1000) As Integer Dim n As Integer Dim i As Integer Dim j As Integer Dim t As Integer n = InputBox("请输入需要产生的随机数个数1-1000") For i = 1 To n a(i) = Int(Rnd() * 90 + 10) Next i For i = 1 To n For j = i + 1 To n If a(i) > a(j) Then t = a(i) a(i) = a(j) a(j) = t End If Next j Next i Open App.Path + "\data.dat" For Output As #1 For i = 1 To n Print #1, a(i) Next i Close #1

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/pqfqvffqfm2q8f8v7v7.html