- 博客(12)
- 收藏
- 关注
RSS订阅原创 二维数组m*n的鞍点
Option Base 1Dim anma() As IntegerDim m As Byte, n As BytePrivate Sub Command1_Click() Cls Me.Font.Size = 30 m = 5: n = 6 ReDim anma(m, n) Dim i As Byte, j As Byte
2016-06-16 13:22:17
356
原创 排序并计时
Private Sub Command1_Click() Open "D:\ccc\ccc.txt" For Output As #1 Write #1, "start", Time Dim a(100) As Integer Dim i As Integer For i = 1 To 100 a(i) = 10 +
2016-05-12 18:08:33
499
原创 230 二进制
Private Sub Command1_Click()Me.Font.Size = 30Print erjinzhi(230)End SubPrivate Function erjinzhi(m As Byte) As StringDim n As Byten = mConst er As Byte = 16Dim returns As StringDim s
2016-05-07 18:01:16
368
原创 16进制
Private Sub Command1_Click() Me.Font = 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
2016-05-07 17:08:37
242
原创 二进制
Private Sub Command1_Click() Me.Font.Size = 20 Print erjinzhi(230) End SubPrivate Function erjinzhi(m As Byte) As String Dim n As Byte n = m Const er As Byte = 2 Dim returnS
2016-04-28 17:47:29
257
原创 十进制到16进制
Private Sub Command1_Click()Me.Font.Size = 20 Dim n As Byte n = 23 Const er As Byte = 16 Dim shang As Byte Dim yushu(1 To 2) As Byte Dim i As Byte i = 2 shang
2016-04-28 17:46:45
276
原创 1x1
Option Base 1Private 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 Dim shang As Byte Di
2016-04-14 16:40:08
428
原创 九种算法
1Private Sub Command1_Click()ClsDim n As Integer, s As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n Print a(n)n = n + 1Wendn =
2016-04-13 21:56:17
317
原创 给15个数排序（2）
Private Sub Command1_Click()ClsDim n As IntegerDim s(15) As Integern = 1While n s(n) = Int(Rnd * 1000) n = n + 1WendDim t As Integerm = 1While m n = 1 While n
2016-03-31 17:20:54
318
原创 比较两个数的大小
比较a,b的大小在command1中进行编辑：Private Sub Command1_Click() Cls Me.Font.Size = 50 Dim a As Integer Dim b As Integer Dim swap As Integer a = Int(Rnd * 1000) b
2016-03-28 14:16:58
469
1
原创 比较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:43:23
292
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人