- 博客(21)
- 收藏
- 关注
原创 对9种方法的十个数求和的总结
快期末了,看看自己一个学期都学了点啥。。。。。。Private Sub Command1_Click()ClsFont.Size = 70Dim i As IntegerDim a(10) As IntegerDim sun As IntegerRandomizeFor i = 1 To 10a(i) = Int(Rnd * 1000) + 1sun =
2016-05-12 18:12:18
668
原创 16进制2
Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As Stringa = 1230: b = 16While a yushu = a Mod bIf yushu s = yushu & sElses = Chr(yushu + 55) & sEnd Ifa = a \
2016-05-07 17:36:33
187
原创 16进制1
Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim s As StringDim yushu As Bytea = 1230: b = 16While a yushu = a Mod bs = yushu & sa = a \ bWendPrint sEnd Sub
2016-05-07 16:59:55
387
原创 把230转换成16进制
Private Sub command1_click()Print Hex(230)End SubPrivate Function shiliujinzhi(m As Byte) As StringDim n As Byten = mConst shiliu As Byte = 16Dim shang As ByteDim returns As StringDi
2016-04-28 17:40:31
953
原创 255以内的数转换成二进制
Private Sub Command1_Click()Me.Font.Size = 60Print erjianzhi(230)End SubPrivate Function erjianzhi(m As Byte) As StringDim n As Byten = mConst er As Byte = 2Dim returns As StringDim
2016-04-28 16:56:54
3876
原创 三位数乘以一位数
Private Sub command_Click()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,
2016-04-21 17:33:57
250
原创 9个循环6
Dim n As IntegerDim a(10) As IntegerDim sum As IntegerPrivate Sub Command1_Click()sum = 0n = 1Do Until n > 10Randomizea(n) = Int(Rnd * 1000)sum = sum + a(n)n = n + 1LoopPrint s
2016-04-14 17:34:53
174
原创 9个循环5
Dim n As IntegerDim a(10) As IntegerDim sum As IntegerPrivate Sub Command1_Click()sum = 0n = 1DoRandomizea(n) = Int(Rnd * 1000)sum = sum + a(n)n = n + 1Loop While n Print sum
2016-04-14 17:31:07
233
原创 9个循环4
Dim n As IntegerDim a(10) As IntegerDim sum As IntegerPrivate Sub Command1_Click()sum = 0n = 1Do While n Randomizea(n) = Int(Rnd * 1000)sum = sum + a(n)n = n + 1LoopPrint sum
2016-04-14 17:26:39
185
原创 9个循环3
Dim n As IntegerDim a(10) As IntegerDim sum As IntegerPrivate Sub Command1_Click()sum = 0For n = 1 To 10Randomizea(n) = Int(Rnd * 1000)sum = sum + a(n)Next nPrint sumEnd Sub
2016-04-14 17:22:10
227
原创 9个循环2
Private Sub Command1_Click()Dim sum As IntegerDim n As IntegerDim a(10) As IntegerRandomizeFor n = 1 To 10a(n) = (Rnd * 1000)sum = sum + a(n)Next nPrint sumFor n = 1 To 10Print a
2016-04-14 17:16:32
149
原创 9个循环1
Private Sub Command1_Click()Dim n As IntegerDim a(10) As Integern = 1While n a(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n Print a(n)n = n + 1WendSum = 0n = 1While n
2016-04-14 17:09:58
225
原创 9个循环7
Private Sub Command1_Click()Dim i As IntegerDim s As IntegerDim sum As Integersum = 0Do While i a = Int(Rnd * 1000)sum = sum + ai = i + 1LoopMsgBox "10个随机数的和为:" & sumEnd
2016-04-07 17:44:44
280
原创 9个循环8
Private Sub Command1_Click()ClsFont.Size = 70Print f(100)End SubPrivate Function f(x As Integer) As LongIf x = 1 Thenf = xElsef = x + f(x - 1)End IfEnd Function
2016-04-07 17:20:21
225
原创 9个循环9
Private 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 + 1Wends = 0
2016-04-07 17:12:59
257
原创 9个循环2
Option Explicit Private Sub Command1_Click()Dim i As IntegerDim a(10) As IntegerDim sum As IntegerRandomizeFor i = 1 To 10a(i) = Int(Rnd * 1000) + 1sum = sum + a(i)Next iPrint su
2016-04-07 17:10:12
144
原创 9个循环1
Dim sum As IntegerDim i As IntegerDim a As IntegerPrivate Sub Command1_Click() sum = 0 For i = 1 To 10 Randomize a = Int(1000 * Rnd) sum = sum + a Msg
2016-04-07 17:06:15
259
原创 最小一个数在最后
Private Sub Command1_Click()ClsFont.Size = 30Dim n As IntegerDim sierdun(15) As Integern = 1While n sierdun(n) = Int(Rnd * 1000)n = n + 1WendDim swap As Integern = 1While n I
2016-03-31 17:48:11
144
原创 出现15个数
Private Sub Command1_Click()ClsFont.Size = 30Dim n As IntegerDim sierdun(15) As Integern = 1While n sierdun(n) = Int(Rnd * 1000) n = n + 1Wendn = 1While n Print sierdun(
2016-03-31 17:24:59
217
原创 15个数排序
Private Sub cmdSort_Click()ClsMe.Font.Size = 50Dim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim f As IntegerDim g As IntegerDim h As IntegerDim
2016-03-24 17:56:05
156
原创 排序了
Private Sub cmdSort_Click()ClsMe.Font.Size = 50Dim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerDim e As IntegerDim f As IntegerDim g As IntegerDim h As IntegerDim
2016-03-24 17:48:32
188
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人