- 博客(5)
- 收藏
- 关注
原创 冒泡法排序
Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 10a(i) = 10 + Int(Rnd() * 1000)Print a(i);Next iPrintFor i = 1 To 9For j = 1 To 10 - i
2016-06-16 17:42:01
211
原创 选择法排序
Private Sub Command1_Click() Dim a(10) As Integer Dim i As Integer For i = 1 To 10 a(i) = 10 + Int(Rnd() * 100) Print a(i) Next i Print Dim j As Integer
2016-06-16 17:40:13
228
原创 十六进制
Private Sub Command1_Click()Me.Font.Size = 50Print shiliujinzhi(4545)End SubPrivate Function shiliujinzhi(m As Integer)As StringDim n As Integern = mConst shiliu As Byte = 16Dim return
2016-04-28 17:41:43
379
原创 2进制
Private Sub Command1_Click()Me.Font.Size = 60Print erjinzhi(23)End Sub Private Function erjinzhi(m As Byte) AsStringDim n As Byten = mConst er As Byte = 2Dim returns As StringDi
2016-04-28 17:41:05
202
翻译 随机数字的大小排列
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-27 16:00:23
407
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人