VB代码片总结

恩~其实VB中的代码片挺多的，有的简单，一两句就可以结束，有的就比较复杂需要很长的代码（当然有的虽然长但是理解起来并不难），那么小编就在这里总结一下随机数的产生，以及随机数的比较排序。

1、随机数产生

'  随机产生10个大于10小于100的随机数
private sub command1_click()
	dim i as interger
	for i = 1 to 10
	a(i)=int(rnd*91)+10
end sub

2、选择排序

Private Sub Command2_Click()
    Dim i As Integer,j As Integer,p As String,t As Integer
    p = ""
    For i = 1 To 9
        For j = i + 1 To 10
        If a(i) < a(j) Then
        t = a(i): a(i) = a(j): a(j) = t   'a(j)与a(i)的值进行交换。
        End If
        Next j
    Next i
    For i = 1 To 10
        p = p & Str(a(i)) & ","
    Next i
    Label2.Caption = LTrim(Left(p,Len(p) - 1))
    
End Sub

Private Sub Command2_Click()
    Dim p As String,i As Integer,j As Integer
    p = ""
    For i = 1 To 9
        For j = 1 To 10 - i
        If a(j) < a(j + 1) Then
        t = a(j): a(j) = a(j + 1): a(j + 1) = t
        End If
        Next j
    Next i
    For i = 1 To 10
        p = p & Str(a(i)) & ",Len(p) - 1))
End Sub