- 博客(4)
- 收藏
- 关注
RSS订阅原创 金箍棒变长
编程代码如下： Dim Step As Integer Private Sub Command1_Click() Timer1.Enabled = False Step = Step + 150 Line (1000, 1000)-(30 + Step, 1000), QBColor(Int(Rnd * 15)) End Sub Private Sub Timer1_Timer(
2012-05-22 20:41:23
397
原创 比较两个数的大小
Private Sub Command1_Click() Dim a As Integer, b As Integer a = Val(Text1.Text) b = Val(Text2.Text) If a > b Then Label3.Caption = a Else Label3.Caption = b End If End Sub
2012-05-22 19:52:30
279
原创 随机生成十个数并选出最大值
代码如下： Private Function max(a() As Integer) As Integer Dim i As Integer Dim maxa As Integer For i = LBound(a) To UBound(a) If a(i) > maxa Then maxa = a(i) max = maxa End If Next i End Functi
2012-05-22 19:49:49
1380
原创 动画设计
编写程序代码如下： Public TopBottom, LeftRight As String Private Sub Form_Click() If Timer1.Enabled = False Then Timer1.Enabled = True Else Timer1.Enabled = False End If End S
2012-05-22 19:47:18
206
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人