vb玩的表示先后顺序的关联词是什么，剧情关联吗

来源：蜘蛛抓取(WebSpider) 时间：2017-02-09 05:41 标签： gta剧情关联
下载作业帮安装包
扫二维码下载作业帮
1.75亿学生的选择
VB排序算法我现在想把一组没有顺序的TXT文件从小到大排序,如下,以大头的数字去排序2,.‘后面省略内容3,.5,.2,.5,.8,.3,.现在想得到以下排序结果,从小到大2,.‘后面省略内容2,.3,.3,.5,.5,.8,.如何实现
血影赤魂襘呅再
2,3,5,15,68,5513,5,6,87,2,8,9855,145,4,621,54,31,2,5,54,6345,668,123,54,64,12,54,5,46,5,12,5,56,1,2,54,11,2,45,41,235,1,56,31,45我把TXT中的内容写成这样,应该是合乎你要求的吧?然后代码如下：Option ExplicitDim Arry() As StringPrivate Sub Command1_Click()
Dim i As Long, j As Long
Dim x As String, y As String
ReDim Preserve Arry(i) As String
Open App.Path & "\111.txt" For Input As #1
While Not EOF(1)
Line Input #1, Arry(i)
ReDim Preserve Arry(i) As String
ReDim Preserve Arry(i - 1) As String
For i = 1 To UBound(Arry)
For j = 1 To UBound(Arry)
If j < UBound(Arry) Then
If Val(Arry(j)) > Val(Arry(j + 1)) Then
x = Arry(j)
y = Arry(j + 1)
Arry(j) = y
Arry(j + 1) = x
Open App.Path & "\222.txt" For Output As #1
For i = 1 To UBound(Arry)
Print #1, Arry(i)
Close #1End Sub经过上机测试,生成的222.TXT中的内容如下：1,2,45,41,232,3,5,15,68,552,5,54,6345,664,5,46,5,12,5,55,1,56,31,456,1,2,54,18,123,54,64,12,513,5,6,87,2,8,9855,145,4,621,54,31,首位是排好序的.
为您推荐：
其他类似问题
扫描下载二维码

我要回帖

更多关于 gta剧情关联 的文章

 

随机推荐