- 博客(7)
- 收藏
- 关注
RSS订阅原创 程序
Private Sub Command1_Click()Dim max As Integer, min As Integer, average As SingleDim x As Integer, i As IntegerRandomizemax = -100: min = 100For i = 1 To 20x = Int(90 * Rnd + 10)list1.Ad
2016-06-02 18:10:32
157
原创 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
187
原创 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
150
原创 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
177
原创 2进制
Private Sub Command1_Click()Me.Font.Size = 60Print erjinzhi(230)End SubPrivate Function erjinzhi(m As Byte) As StringDim n As Byten = mConst er As Byte = 2Dim returns As StringDi
2016-04-28 17:32:08
129
原创 2*1
Option Base 1Private Sub Command1_Click()Me.Font.Size = 70Dim n1() As Byte, n1len As LongDim n2() As Byte, n2len As LongDim yushu1 As Byte, yushu2 As ByteDim shang As ByteDim tempr
2016-04-14 17:39:30
226
原创 ...
Option Base 1Private Sub Command 1-ClickClsFont.Size=30Dim n As IntegerDim Size As Integersize= Int(Val(Me.text1.Text))Dim sierdun(12) As Integern=LBound (sierdun)While nsierd
2016-03-31 17:35:10
134
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人