- 博客(9)
- 收藏
- 关注
RSS订阅原创 选择排序法
Private Sub Command1_Click()Dim a(10) As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 10a(i) = Int(Rnd * 100)Print a(i);Next iPrint For i = 1 To 9For j = j + 1 To 10If a
2016-05-07 18:16:27
181
原创 冒泡排序法
Dim a(10) As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 10a(i) = Int(Rnd * 100)Print a(i);Next iPrint For i = 1 To 9For j = 1 To 10 - iIf a(j) swap a(j + 1), a(j)End
2016-05-07 18:15:46
197
原创 16进制
Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As Stringa = 230b = 16Dim yushu As Byteyushu = a Mod bs = yushu & sa = a \ bWhile a yushu = a Mod bIf yushu
2016-05-07 18:14:44
197
原创 二进制
Private Sub Command1_Click()Print erjinzhi(230)End SubPrivate Function erjinzhi(m As Byte) AsStringDim n As Byten = mConst er As Byte = 2Dim returnS As StringDim shang As ByteDim yus
2016-04-28 16:51:38
273
原创 10的阶乘
Private Sub Command1_Click() Print 阶乘(10)End SubPrivate Function 阶乘(n As Integer) As LongIf n = 1 Then 阶乘 = 1Else 阶乘 = n * 阶乘(n - 1)End IfEnd Function
2016-04-14 17:05:36
380
原创 10个随机数的和
Private 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(i) Next i Print sum End Sub
2016-04-14 16:34:52
349
原创 随机显示15个数
Private Sub Command1_Click()Dim n As IntegerDim sierdun(15) As Integern = 1While n sierdun(n) = Int(Rnd * 1000) n = n + 1 Wend n = 1 While n Print sierdun(n) n = n + 1
2016-03-31 17:18:57
310
原创 15个数字的排序
Private Sub Command1_Click()ClsDim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim f As IntegerDim g As IntegerDim h As IntegerDim i As IntegerDim
2016-03-31 16:31:22
989
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人