- 博客(7)
- 收藏
- 关注
RSS订阅原创 程序
Private Sub Command1_Click() Dim max As Integer, min As Integer, average As Single Dim x As Integer, i As Integer Randomize max = -100: min = 100 For i = 1 To 20 x = Int(90 * Rnd + 10) list1.Ad
2016-06-02 18:10:32
183
原创 16进制
Private SubCommand1_Click() Me.Font.Size = 70 Dim a As Integer Dim b As Integer Dim s As String Dim yushu As Integer a = 1230: b = 16 While a yushu = a Mod b s = f(yushu) &
2016-05-07 18:08:37
208
原创 16进制
Private SubCommand1_Click() Me.Font.Size = 70 Dim a As Integer Dim b As Integer Dim s As String Dim yushu As Integer a = 1230: b = 16 While a yushu = a Mod b s = f(yushu) &
2016-05-07 17:57:29
182
原创 16进制
Private SubCommand1_Click() Me.Font.Size = 70 Dim a As Integer Dim b As Integer Dim s As String Dim yushu As Integer a = 1230: b = 16 While a yushu = a Mod b s = f(yushu) &
2016-05-07 17:51:19
217
原创 2进制
Private Sub Command1_Click() Me.Font.Size = 60 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 String Di
2016-04-28 17:32:08
155
原创 2*1
Option Base 1 Private Sub Command1_Click() Me.Font.Size = 70 Dim n1() As Byte, n1len As Long Dim n2() As Byte, n2len As Long Dim yushu1 As Byte, yushu2 As Byte Dim shang As Byte Dim tempr
2016-04-14 17:39:30
248
原创 ...
Option Base 1 Private Sub Command 1-Click Cls Font.Size=30 Dim n As Integer Dim Size As Integer size= Int(Val(Me.text1.Text)) Dim sierdun(12) As Integer n=LBound (sierdun) While n sierd
2016-03-31 17:35:10
161
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人