Heywinners-CSDN博客

原创平行四边形

Private Sub Form_click() Cls Print For n = 1 To 8 Print Tab(n + 20); For m = 1 To 10 Print Spc(1); "*"; Next m Print Next n End Sub

2016-05-26 17:09:50 308

原创选择排序法

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-05-12 18:13:26 271

原创冒泡排序法

Private Sub Command1_Click() 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

2016-05-12 17:30:12 235

原创十进制改为十六进制

Private Sub Command1_Click() Me.Font.Size = 50 Dim n As Byte n = 118 Dim shang As Byte Dim yushu(1 To 2) As Byte Const shiliu As Byte = 16 Dim i As Byte i = 2 shang = n \ shiliu yushu(i) =

2016-05-07 17:45:52 219

原创十进制改成十六进制

Private Sub Command1_Click() Me.Font.Size = 40 Dim a As Integer Dim b As Integer Dim s As String Dim yushu As Byte a = 230 b = 16 While a yushu = a Mod b s = f(yushu) & s

2016-05-07 17:37:06 511

原创 230改为二进制

Private Sub Command1_Click() Dim n As Byte n = 230 Const er As Byte = 2 Dim shang As Byte Dim yushu(1 To 8) As Byte Dim i As Byte i = 8 shang = n \ er yushu(i) = n Mod er While shang i = i

2016-04-28 17:03:41 555

原创三位数乘一位数

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, 1) a3 = Int(Val(b)) b = Me

2016-04-21 17:34:14 346

原创两个个位数之积

Private Sub Command1_Click() Me.Font.Size = 40 Dim n1 As Byte, n1Len As Long Dim n2 As Byte, n2Len As Long Dim yushu As Byte Dim shang As Byte Dim tempresult As Byte n1 = Int(Val(Me.Text1.Text)

2016-04-14 17:11:02 312

原创必须原创

太难了，真是太难了 Private Sub Command1_Click() Font.Size = 30 Dim n As Integer Dim slerdum(15) As Integer n = 1 While n slerdum(n) = Int(Rnd * 1000) n = n + 1 Wend Dim s

2016-03-31 17:37:31 228

原创纯原创

Private Sub Command1_Click() Font.Size = 30 Dim n As Integer Dim slerdum(15) As Integer n = 1 While n slerdum(n) = Int(Rnd * 1000) n = n + 1 Wend n = 1 While n Print slerd

2016-03-31 16:49:17 186

Heywinners的博客