- 博客(6)
- 收藏
- 关注
RSS订阅原创 选择排序法
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-05-07 17:38:09
161
原创 将1230用十六进制表示
Private Sub Command1_Click() 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(yush
2016-05-07 17:09:56
454
原创 十进制换化为二进制
Private Sub Command1_Click() Me.Font.Size = 30 Dim n As Byte n = 23 Const er As Byte = 2 Dim shang As Byte Dim yushu(1 To 5) As Byte Dim i As Byte i = 5 sh
2016-04-28 16:40:56
379
原创 九种求和方法
（一） Option ExplicitPrivate Sub Command1_Click()Dim i As IntegerDim a(10) As IntegerDim sum As IntegerRandomizeFor i = 1 To 10 a(i) = Int(Rnd * 1000) + 1 sum = sum + a
2016-04-14 17:30:33
216
原创 2*1的运算
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 yushu1 As Byte, yushu2 As Byte Dim shang As B
2016-04-14 17:18:22
283
原创 给15个数排序
2016-03-25 18:37:14 Private Sub Command1_Click() Cls Me.Font.Size = 50 Dim a As Integer Dim b As Integer Dim c As Integer Dim d As Integer Dim e As Int
2016-03-28 14:31:18
283
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人