- 博客(10)
- 收藏
- 关注
RSS订阅原创 平行四边形
Private Sub Form_click()ClsPrintFor n = 1 To 8Print Tab(n + 20);For m = 1 To 10Print Spc(1); "*";Next mPrintNext nEnd Sub
2016-05-26 17:09:50
313
原创 选择排序法
Private Sub Command1_Click()Me.Font.Size = 10Dim a(10) As IntegerDim i As IntegerDim j As IntegerFor i = 1 To 10 a(i) = 10 + Int(Rnd() * 100) Print a(i) Next i PrintFor i = 1 To 9
2016-05-12 18:13:26
276
原创 冒泡排序法
Private Sub Command1_Click()Me.Font.Size = 6Dim a(10) As IntegerFor i = 1 To 10a(i) = 10 + Int(Rnd() * 100)Print a(i)Next iPrintFor i = 2 To 10If a(1) swap a(1), a(i)End If
2016-05-12 17:30:12
241
原创 十进制改为十六进制
Private Sub Command1_Click()Me.Font.Size = 50Dim n As Byten = 118Dim shang As ByteDim yushu(1 To 2) As ByteConst shiliu As Byte = 16Dim i As Bytei = 2shang = n \ shiliuyushu(i) =
2016-05-07 17:45:52
225
原创 十进制改成十六进制
Private Sub Command1_Click()Me.Font.Size = 40Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Bytea = 230b = 16While a yushu = a Mod b s = f(yushu) & s
2016-05-07 17:37:06
523
原创 230改为二进制
Private Sub Command1_Click()Dim n As Byten = 230Const er As Byte = 2Dim shang As ByteDim yushu(1 To 8) As ByteDim i As Bytei = 8shang = n \ eryushu(i) = n Mod erWhile shang i = i
2016-04-28 17:03:41
561
原创 三位数乘一位数
Dim a As ByteDim b As StringDim c As Byte b = Mid(Me.Text1.Text, 1, 1)a1 = Int(Val(b))b = Mid(Me.Text1.Text, 2, 1)a2 = Int(Val(b))b = Mid(Me.Text1.Text, 3, 1)a3 = Int(Val(b))b = Me
2016-04-21 17:34:14
350
原创 两个个位数之积
Private Sub Command1_Click()Me.Font.Size = 40Dim 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)
2016-04-14 17:11:02
320
原创 必须原创
太难了，真是太难了Private Sub Command1_Click()Font.Size = 30Dim n As IntegerDim slerdum(15) As Integern = 1While n slerdum(n) = Int(Rnd * 1000)n = n + 1WendDim s
2016-03-31 17:37:31
232
原创 纯原创
Private Sub Command1_Click()Font.Size = 30Dim n As IntegerDim slerdum(15) As Integern = 1While n slerdum(n) = Int(Rnd * 1000) n = n + 1Wend n = 1While n Print slerd
2016-03-31 16:49:17
190
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人