十个随机数排列(vb代码)

  在VB中,通过编写程序代码,找出最大的数和最小的数很简单,三个数比较大小也很简单,前今天碰到了一个问题,就是,用VB制作一个小程序,实现十个随机数的排列。

  我查了一些资料,在网上找到了有几个很有趣的排列视频。叫做《舞动的排序算法》。看起来很有趣,也很形象,对这个问题很有帮助。地址如下:http://v.youku.com/v_show/id_XMzMyODk4NTQ4.html

http://v.youku.com/v_show/id_XMzMyODk5Njg4.html 

http://v.youku.com/v_show/id_XMzMyOTAyMzQ0.html

  具体的方法如下:

       打开VB6.0,在Form1中添加两个按钮Command1和Command2,将其Caption属性分别改为“产生十个随机数”和“排序”,添加一个Label控件在代码窗口中输入如下代码:

  Option Explicit


Dim c As Integer
Dim t As Integer
Dim flag As Integer
Dim a(9)
Dim p As String
Private Sub Command1_Click()
    Dim i As Integer
    p = ""
    Label1.Caption = ""
    a(0) = Int(100 * Rnd + 1)


    For i = 1 To 9
        c = Int(100 * Rnd + 1)
        flag = 1
        
        For t = 0 To i - 1
            If c = a(t) Then
            i = i - 1
            flag = 0
            Exit For
            End If
        Next t
        
        If flag = 1 Then
            a(i) = c
        End If
    Next i
    
    For i = 0 To 9
        p = p & "  " & a(i)
    Next i
    Label1.Caption = p
End Sub


Private Sub Command2_Click()
    p = ""


    Dim j As Integer
    Dim i As Integer
    Dim temp As Integer

 For i = 0 To 9
        p = p & "  " & a(i)
    Next i
    
    Label1.Caption = p
End Sub

第二种代码:

Option Explicit


Dim c As Integer
Dim t As Integer
Dim flag As Integer
Dim a(9)
Dim p As String
Private Sub Command1_Click()
    Dim i As Integer
    p = ""
    Label1.Caption = ""
    a(0) = Int(100 * Rnd + 1)


    For i = 1 To 9
        c = Int(100 * Rnd + 1)
        flag = 1
        
        For t = 0 To i - 1
            If c = a(t) Then
            i = i - 1
            flag = 0
            Exit For
            End If
        Next t
        
        If flag = 1 Then
            a(i) = c
        End If
    Next i
    
    For i = 0 To 9
        p = p & "  " & a(i)
    Next i
    Label1.Caption = p
End Sub


Private Sub Command2_Click()
    p = ""


    Dim j As Integer
    Dim i As Integer
    Dim temp As Integer
   '----------每次选最大-------
     For j = 0 To 9 - i
           If a(j) > a(j + 1) Then
            temp = a(j)
          a(j) = a(j + 1)
           a(j + 1) = temp
           End If
       Next j
   Next i

    For i = 0 To 9
        p = p & "  " & a(i)
    Next i
    
    Label1.Caption = p
End Sub

代码有很多种,这只是其中的一小部分,希望对您有用所帮助。

    

  

版权声明:本文为博主原创文章,未经博主允许不得转载。

posted on 2013-02-19 20:48  路春霞  阅读(804)  评论(0编辑  收藏  举报

导航