Question

Vb中生成一个一维数组

Vb中生成一个一维数组，由15个10～99之间的随机奇数组成，并在标签1中显示。单击命令按钮，将该数组中的数据按从大到小的顺序排列，并显示在标签2中 求详细编程

Answer 1

Dim fileName As String Dim startnumber%,endnumber% Const MyFile = 1 Dim i% Dim T() Open fileName For Input As #MyFile '打开文件 Input #MyFile,startnumber ,endnumber '读文件 Redim T(endnumber-startnumber) For i = startnumber To endnumber Input #MyFile, T(i) Next i Close #MyFile '关文件