做不出来了 周一没答案就费了`

Question

有些朋友会说自己动手丰衣足食 但实在没时间了  周一让教
创建一百万个数字 保存到一个文件夹里  从文件夹里随机抽取十万个数字 按从大到小或从小到大排列  保存到另外一个文件夹里  如果要是用QB啥的买也可以     

Answer 1

用mdb文件可以的话，5000QB楼下接活。

Answer 2

给你段写100万随机数到文件的例子
Dim i As Long, s As String, s_com(1 To 1000000) As StringFor i = 1 To 1000000
    s_com(i) = Left(Rnd, 7) 
Next is = Join(s_com)MsgBox sIf Dir(App.Path & "\一百万数字.txt") <> "" Then Kill App.Path & "\一百万数字.txt"
Open App.Path & "\一百万数字.txt" For Append As #1
    Print #1, s
Close #1

Answer 3

ReDim Idt(1 To variable2) As Long
p1 = FreeFile
Open App.Path & "\" & doNotFile For Random As p1
    For i = 1 To variable2
        Get p1, , Idt(i)
    Next
能接上吗？
Open App.Path & "\" & doNotFile For Random As p1
    For i = 1 To variable2
“/”里打一百万数字.txt                ？？？？？

Answer 4

古人有一字之师的说法，在这里教你一招半式，也算为师了。
天地君亲师，既然自己的老师都成万恶的了，那我们这些人又算啥？
CSDN有自己的游戏规则，不做作业，毕业设计要出钱，这是规矩。
对于骂自己老师的人，我们只有围观了

Answer 5

路过，做个好人。
准备控件Command1、ListView1(加载部件 Microsoft Windows Common Controls 6.0)Private Sub Command1_Click()
    ListView1.View = lvwReport
    ListView1.ColumnHeaders.Add , , "序号"
    ListView1.ColumnHeaders.Add , , "随机值"
    
    StartT$ = Now: Dim i&, s$, s1$(1 To 1000000)
    Randomize
    For i = 1 To 1000000
        s1(i) = Int(Rnd * 100) + 1 '随机数自己调整【默认1-100】
    Next i
    
    Open "d:\100万随机文件.txt" For Output As #1
    Print #1, Join(s1, vbCrLf)
    Close #1
    
    For i = 1 To 100000
        Dim lstItem As ListItem
        Set lstItem = ListView1.ListItems.Add(, "", Form1.ListView1.ListItems.Count + 1)
        lstItem.SubItems(1) = Format(s1(Int(Rnd * 10) + 10 * (i - 1) + 1), "000") '000根据随机数调整
        Set lstItem = Nothing
    Next i
    ListView1.SortKey = 1
    ListView1.SortOrder = 0 '排序【默认0从小到大，1反之】
    ListView1.Sorted = True
    
    For i = 1 To ListView1.ListItems.Count
        s = s & ListView1.ListItems(i).ListSubItems(1) & vbCrLf
    Next i
    
    Open "d:\10万随机排序文件.txt" For Output As #1
    Print #1, s
    Close #1
    
    MsgBox "耗时：" & DateDiff("s", StartT, Now) & " 秒"
End Sub
在我的机器上耗时70-90秒之间。

Answer 6

呵呵，少了个处理，补充一下。Private Sub Command1_Click()
    ListView1.View = lvwReport
    ListView1.ColumnHeaders.Add , , "序号"
    ListView1.ColumnHeaders.Add , , "随机值"
    
    StartT$ = Now: Dim i&, s$, s1$(1 To 1000000)
    Randomize
    For i = 1 To 1000000
        s1(i) = Int(Rnd * 100) + 1 '随机数自己调整【默认1-100】
    Next i
    
    Open "d:\100万随机文件.txt" For Output As #1
    Print #1, Join(s1, vbCrLf)
    Close #1
    
    For i = 1 To 100000
        Dim lstItem As ListItem
        Set lstItem = ListView1.ListItems.Add(, "", Form1.ListView1.ListItems.Count + 1)
        lstItem.SubItems(1) = Format(s1(Int(Rnd * 10) + 10 * (i - 1) + 1), "000") '000根据随机数调整
        Set lstItem = Nothing
    Next i
    ListView1.SortKey = 1
    ListView1.SortOrder = 0 '排序【默认0从小到大，1反之】
    ListView1.Sorted = True
    
    For i = 1 To ListView1.ListItems.Count
        s = s & Val(ListView1.ListItems(i).ListSubItems(1)) & vbCrLf
    Next i
    
    Open "d:\10万随机排序文件.txt" For Output As #1
    Print #1, s
    Close #1
    
    MsgBox "耗时：" & DateDiff("s", StartT, Now) & " 秒"
End Sub