9.2016.物电学院 电气一班 辛雅松 15050341033

一。十进制化为十六进制

在左侧工具栏中，选择"Text"文本框图标，再在右侧Form1中空白区域选择大小适宜的区域，画出文本框。重复一次，再做出一个文本框。

在左侧工具栏中，选择按钮型图标“CommandButton”按钮，再在右侧Form1中空白区域选择大小适宜的区域，出现按钮型图标后，选中图标，在右下角，将表格中“Caption”后面的“Command1”改成“转换”，双击图标，输入如下

Private Sub Command1_Click()
    Me.Font.Size = 30
    Cls
    Dim x As Long
    x = Me.Text1.Text
    Dim n As Byte
    n = Me.Text2.Text
    Dim yushu As Long
    Dim s As String
    Dim yu As String
    While x <> 0
        yushu = x Mod n
        If yushu < 10 Then
            yu = yushu
        Else
            yu = Chr(yushu + 55)
        End If
        s = yu & s
        x = x \ n
    Wend
    Print s
End Sub
注 ：text1 输入要转换的十进制数， text2中要转换成几进制数就输入几。

二。选择排序法——排序十个随机数

在左侧工具栏中，选择按钮型图标“CommandButton”按钮，再在右侧Form1中空白区域选择大小适宜的区域，出现按钮型图标后，选中图标，在右下角，将表格中“Caption”后面的“Command1”改成“排序”，双击图标，输入如下

Private Sub Command1_Click()
    Cls
    Dim a(1 To 10) As Integer
    Dim i As Byte
    Dim j As Byte
    Dim t As Long
    
    For i = 1 To 10
        a(i) = 10 + Rnd() * 100
    Next i
    For i = 1 To 10
        Print a(i);
    Next i
    
    Print
    
    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
            End If
        Next j
    Next i
    For i = 1 To 10
        Print a(i);
    Next i
End Sub
注：假设第一个数最大，拿它依次与剩下九个数作比较，如果它大，则不变，如果它小，则两数位置对调，以此选出最大数，且最大数在第一位；然后再拿第二个数与剩下八个数依次比较，方法同上，选出第二大的数放在第二位，以此类推。

三。冒泡排序法——排序十个随机数

在左侧工具栏中，选择按钮型图标“CommandButton”按钮，再在右侧Form1中空白区域选择大小适宜的区域，出现按钮型图标后，选中图标，在右下角，将表格中“Caption”后面的“Command1”改成“排序”，双击图标，输入如下

Private Sub Command1_Click()
    Cls
    Dim a(1 To 10) As Integer
    Dim i As Byte
    Dim j As Byte
    Dim t As Long
    
    For i = 1 To 10
        a(i) = 10 + Rnd() * 100
    Next i
    For i = 1 To 10
        Print a(i);
    Next i
    
    Print
    
    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
        Print a(i);
    Next i
End Sub
注：冒泡法思想为小数沉底，大数上浮。即相邻两数作比较，大数放前，小数放后，以此将本轮最小数放在最后，下一轮比较次数 = 上一轮次数  - 1，以此将每轮最小数均放在最后，使得排序成功。