VB编程打字练习器的问题 就是我写了一个程序,是要字母从顶端掉下来 解决之后追加!

[复制链接]
查看11 | 回复1 | 2012-6-3 19:19:07 | 显示全部楼层 |阅读模式
Dim speed As IntegerSub init()Label3.Caption = Chr(Int(Rnd * 26) + 49)speed = 100Label3.Left = Int(Rnd * Frame1.Width)Label3.Top = Frame1.Top 'End SubPrivate Sub Command1_Click()initTimer1.Interval = 1000Timer2.Interval = 1000Timer1.Enabled = TrueTimer2.Enabled = TrueCommand1.Visible = FalseLabel4...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行