- 博客(8)
- 收藏
- 关注
RSS订阅原创 乘法
Private Sub Command1_Click()Dim c1 As ByteDim c2 As ByteDim a() As ByteDim b As StringDim changdu As Long, i As Longchangdu = Len(text1.Text)ReDim a(changdu)For i = 1 To changdu b
2016-04-21 17:24:10
202
原创 排序
Private Sub Command1_Click()ClsDim n As IntegerDim sierdun(5) As Integern = 1While n sierdun(n) = Int(Rnd * 1000)n = n + 1WendDim t As Integer, m As Integerm = 1While m n = 1
2016-04-07 17:12:14
153
原创 十个随机数求和
Private Sub Command1_Click()Dim i As IntegerDim a(10) As IntegerRandomizeFor i = 1 To 10a(i) = Int(Rnd * 1000) + 1Sum = Sum + a(i)Next iPrint SumEnd Sub
2016-04-07 17:09:33
319
原创 十个随机数求和
Dim a(10) As IntegerRandomizeFor i = 1 To 10a(i) = Int(Rnd * 100) + 1Sum = Sum + a(i)Next iPrint Sum / 10End Sub
2016-04-07 16:55:59
273
原创 作业
ClsDim n As Integer, x As Integerx = Int(Val(Me.text1.Text))Dim a() As IntegerReDim a(x)n = LBound(a)While n a(n) = Int(Rnd * 1000)n = n + 1WendDim m As Integer, t As Integerm =
2016-03-31 17:40:36
156
原创 排序玩粗来了
Private Sub Command1_Click()ClsDim n As IntegerDim sierdun(5) As Integern = 1While n sierdun(n) = Int(Rnd * 1000)n = n + 1WendDim t As Integer, m As Integerm = 1While m n = 1
2016-03-31 17:15:14
181
原创 这次比上次就easy多了
Private Sub Command1_Click()ClsDim n As IntegerDim sierdun(15) As Integern = 1While n sierdun(n) = Int(Rnd * 1000)n = n + 1Wendn = 1While n Print sierdun(n)n = n + 1Wen
2016-03-31 16:42:32
126
原创 比较15个数的大小
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-28 14:32:56
261
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人