- 博客(13)
- 收藏
- 关注
RSS订阅原创 16
Private Sub Command1_Click()Me.Font.Size = 25Print shiliujinzhi(230)End SubPrivate Function shiliujinzhi(m As Long) As StringDim n As Byten = mConst shiliu As Long = 16Dim shang As Lon
2016-04-28 17:17:55
193
原创 二进制（150）
Private Sub Command1_Click()Me.Font.Size = 25Print erjinzhi(150)End SubPrivate Function erjinzhi(m As Byte) As StringDim n As Byten = mConst er As Byte = 2Dim shang As ByteDim yushu(
2016-04-28 16:52:59
1099
原创 二进制（23）
Private Sub erjinzhi_Click()Me.Font.Size = 25Dim n As Byten = 23Const er As Byte = 2Dim shang As ByteDim yushu(1 To 5) As ByteDim i As Bytei = 5shang = n \ eryushu(i) = n Mod erW
2016-04-28 16:37:11
391
原创 三个数乘一位数
Private Sub cmdmulti_Click()ClsDim c As ByteDim a() As ByteDim b As StringDim changdu As Long, i As Longchangdu = Len(Text1.Text)ReDim a(changdu)For i = 1 To changdub = Mid(Me.Text1.
2016-04-21 17:42:13
248
原创 是失误
Private Sub Command1_Click()Dim n1() As Byte, n1len As LongDim n2() As Byte, n2len As LongDim yushu As ByteDim shang As ByteDim tempResult As Byten1len = Len(Me.Text1.Text)n2len = Len(Me
2016-04-14 17:41:11
194
原创 for each
Option ExplicitPrivate Sub Command1_Click()ClsDim arr(5) As IntegerDim i As ByteDim tFor i = 1 To 5arr(i) = iNextFor Each t In arrPrint tNextEnd Sub
2016-04-14 17:31:21
223
原创 两个一位数相乘
Private Sub Command1_Click()ClsDim n1 As Byte, n1len As LongDim n2 As Byte, n2len As LongDim yushu As ByteDim shang As ByteDim tempResult As Byten1 = Int(Val(Me.Text1.Text))n2 = Int(Va
2016-04-14 17:08:06
439
原创 十个数有序排列
Option Base 1Private Sub Command1_Click()Dim n As IntegerDim sierdun(10) As Integern = 1While n sierdun(n) = Int(Rnd * 1000)n = n + 1WendDim swap As Integerm = LBound(sierd
2016-03-31 17:46:45
278
原创 十个数无序排列
Private Sub Command1_Click()Dim n As IntegerDim sierdun(10) As Integern = 1While n sierdun(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n Print sierdun(n)n = n + 1WendEnd Sub
2016-03-31 17:13:00
419
原创 十个数中最小的数
Option Base 1Private Sub Command1_Click()ClsDim n As IntegerDim sierdun(10) As Integern = 1While n sierdun(n) = Int(Rnd * 1000)n = n + 1WendDim swap As Integern = 1While n If
2016-03-31 17:02:23
365
原创 3个数排序
Private Sub Command1_Click()ClsMe.Font.Size = 24Dim a As IntegerDim b As IntegerDim c As Integera = Int(Rnd * 1000)b = Int(Rnd * 1000)c = Int(Rnd * 1000)If a Call swap(a, b)E
2016-03-24 17:44:15
299
原创 3个数排序
Private Sub Command1_Click()ClsMe.Font.Size = 24Dim a As IntegerDim b As IntegerDim c As Integera = Int(Rnd * 1000)b = Int(Rnd * 1000)c = Int(Rnd * 1000)If a Call swap(a, b)E
2016-03-24 17:42:48
206
原创 排15个数
Private Sub Command1_Click()ClsMe.Font.Size = 24Dim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim f As IntegerDim g As IntegerDim h As IntegerDi
2016-03-24 17:35:13
248
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人