- 博客(10)
- 收藏
- 关注
原创 A+
Private Sub Command2_Click() p = "" For i = 1 To 9 For j = 1 To 10 - i If a(j) t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next j For i = 1 To 10
2016-05-07 18:09:18 184
原创 坚持
Private Sub Command1_Click() Me.Font.Size = 70 'Print Hex(230) Dim a As Integer Dim b As Integer Dim s As String Dim yushu As Byte a= 1230: b = 16 While a yush
2016-05-07 17:54:42 138
原创 heheda~
今天没有可描述的心情,。但是我想对自己说,要坚持! Private Sub Command1_Click() Me.Font.Size = 70 'Print Hex(230) Dim a As Integer a= 230 Dim b As Integer b= 2 Dim yushu01 As Byte yushu01 = a Mod
2016-05-07 17:48:15 388
原创 原创
Private Sub Command1_Click() Dim c1 As Byte Dim c2 As Byte Dim a() As Byte Dim b As String Dim changdu As Long, i As Long changdu = Len(Text1.Text) ReDim a(changdu) For i =
2016-04-21 17:08:39 164
原创 嗯呢。
要一直敲一直敲。。。好累! Private Sub Command1_Click() Me.Font.Size = 70 Dim n1() As Byte, n1Len As Long Dim n2() As Byte, n2Len As Long Dim yushu As Byte, yushu2 As Byte Dim shang As Byte
2016-04-14 17:30:48 235
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人