VB程序:字母从窗体上掉下来，在键盘上按下相应的字母后就消失了。这个打字游戏程序怎么写？

Dim nDownspeed为整数的下降速度

Dim字符串作为整数的下降字符。

二等兵袁环()

使不规则化

标签为1

。AutoSize = True

。Left = Int(Rnd *(我。宽度标签1。宽度))

。Top = 0

以…结尾

sString = 97 + Int(Rnd * 26)

Label1。Caption = Chr(sString)

末端接头

私有子窗体_按键(KeyAscii为整数)

如果KeyAscii = sString，则

打电话给袁环

如果…就会结束

末端接头

私有子窗体_Load()

我。宽度= 6000

我。高度= 6000

定时器1。间隔= 100

nDownspeed = 50

打电话给袁环

Label1。FontSize = 23

末端接头

私有子定时器1_Timer()

如果Label1。Top & lt我。那么高度* 0.6

Label1。Top = Label1。Top + nDownspeed

其他

MsgBox“你输了，点击重来”

打电话给袁环

如果…就会结束

末端接头