houluxia的博客

原创 冒泡排序法

Me.Font.Size = 6 Dim a(10) As Integer For i = 1 To 10 a(i) = 10 + Int(Rnd() * 100) Print a(i) Next i Print For i = 2 To 10 If a(1) swap a(1), a(i) End If Next i Print For i = 1 To 10

原创 选择排序法

Private Sub Command1_Click() Me.Font.Size = 10 Dim a(10) As Integer Dim i As Integer Dim j As Integer For i = 1 To 10  a(i) = 10 + Int(Rnd() * 100)  Print a(i)  Next i  Print For i = 1 To 9

原创 2016.5.07

Private Sub Command1_Click() Me.Font.Size = 30 Dim a As Integer, b As Byte Dim s As String Dim yushu As Byte a = 1230 b = 16 While a yushu = a Mod b s = f(yushu) & s a = a \ b Wend Print

原创 2.16.4.28.3

Private Function shiliujinzhi(m As Byte) As String   Dim n As Byte   n = m   Const shiliu As Byte = 16   Dim returns As String   Dim shang As Byte   Dim yushu(1 To 8) As Byte   Dim i As Byte  

原创 2016.4.28.2

Private Sub Command1_Click() Me.Font.Size = 30 Print erjinzhi(230) End Sub Private Function erjinzhi(m As Byte) As String   Dim n As Byte   n = m   Const er As Byte = 2    Dim returns As Str

原创 2016.4.28

Private Sub Command1_Click() Me.Font.Size = 30 Dim n As Byte n = 23 Const er As Byte = 2 Dim shang As Byte Dim yushu(1 To 5) As Byte   Dim i As Byte i = 5 shang = n \ er yushu(i) = n Mod er

原创 2016.04.21

Private Sub Command1_Click() Dim a As Byte Dim b As String Dim c As Byte b = Mid(Me.Text1.Text, 1, 1) a1 = Int(Val(b)) b = Mid(Me.Text1.Text, 2, 1) a2 = Int(Val(b)) b = Mid(Me.Text1.Text, 3,

原创 7*8

原创 阶乘

原创 看不懂的作业

虽然做了，但表示看不懂

原创 VB

慢慢来总会做出来的

原创 作业

终于完成一点了

原创 VB作业1

痛苦