VB打字程序

最新推荐文章于 2021-07-22 17:00:04 发布

hongdongyu

最新推荐文章于 2021-07-22 17:00:04 发布

阅读量815

点赞数

分类专栏： VB

本文链接：https://blog.csdn.net/hongdongyu/article/details/9468699

版权

这个VB程序设计了一个打字挑战游戏。程序初始化时，字母会在随机位置出现，玩家需要在限定时间内正确输入，根据输入正确次数评估成绩并给予反馈。通过两个计时器控制字母移动和时间减少，游戏结束时会显示评价并允许玩家重新开始。

摘要由CSDN通过智能技术生成

Option Explicit
Dim score As Integer
Dim speed As Integer

Sub init()
Label1.Caption = Chr(Int(Rnd * 25) + 65) '大写英文字母
speed = Int(Rnd * 50 + 50) '速度随机
Label1.Left = Int(Rnd * Frame1.Width) '左侧位置随机
Label1.Top = Frame1.Top 'top，left属性为器件顶端，左侧和容器边缘的距离
End Sub

Sub init1()
Label6.Caption = Chr(Int(Rnd * 25) + 97) 'chr转为对应的asc码
speed = Int(Rnd * 50 + 50)
Label6.Left = Int(Rnd * Frame1.Width)
Label6.Top = Frame1.Top
End Sub

Private Sub Command1_Click()
init
Timer1.Enabled = True
Timer2.Enabled = True
Command1.Visible = False
Label5.Caption = 20
Label3.Caption = 0
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = Label1.Caption Then
init
score = score + 1
Label3.Caption = score