多于的就不说了,只发重点,进入EXCEL,在菜单栏上单击"工具","宏","Visual Basic编辑器",在资源管理器上单击右键,"插入","用户窗体",
在窗体上添加一个图片框,在左边的属性框里找到"Picture",添加一张背景图,添加6个标签控件,标签1,2,3放在图片框上,作为显示字母的控件,标签4作为开始游戏按钮,标签5作为结束按钮,
图1
双击窗体,进入代码编辑框,编写以下代码:
Option Explicit
Dim lb(2) As MSForms.Label
Dim mPs As Integer
Dim mCorrect As Integer
Dim mError As Integer
Dim mStart As Boolean
Private Sub Label4_Click()
On Error GoTo net
mStart = True
Dim i As Integer
Do While (mStart False)
DoEvents
sleep 0.7
For i = 0 To 2
lb(i).Left = lb(i).Left - mPs
If lb(i).Left (0 - lb(i).Width) Then
lb(i).Left = UserForm1.Width
End If
Next i
Loop
net:
End Sub
Private Sub Label5_Click()
mStart = False
End Sub
图2
Private Sub UserForm_Initialize() '初始化'
Dim i As Integer
mPs = 5 ' 初始化移动速度
Set lb(0) = UserForm1.Label1 '初始化标签控件'
Set lb(1) = UserForm1.Label2
Set lb(2) = UserForm1.Label3
For i = 0 To 2
lb(i).Caption = Randchar
lb(i).Left = UserForm1.Width
Next i
Label6.Caption = "正确;" mCorrect " / " "错误:" mError
End Sub
Private Sub Initlabel(ByVal ascii As Integer)
Dim i As Integer
Dim b As Boolean
For i = 0 To 2
If ascii = Asc(lb(i).Caption) Then
mCorrect = mCorrect + 1
lb(i).Caption = Randchar
lb(i).Left = UserForm1.Width
b = True
GoTo net
End If
Next i
net:
If b = False Then
mError = mError + 1
End If
b = False
Label6.Caption = "正确;" mCorrect " / " "错误:" mError
End Sub
图3
'随机字母'
Private Function Randchar() As String
Dim i As Integer
i = Int(Rnd() * 26 + 97)
Randchar = Chr(i)
End Function
'延时
Private Sub sleep(ByVal value As Integer)
Dim tim As Long
tim = Timer + value
Do While Timer tim
DoEvents
Loop
End Sub
'键盘打字'
Private Sub UserForm_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
Initlabel KeyAscii
End Sub
Private Sub UserForm_Terminate()
mStart = False
End Sub
图4
编写完代码直接按F5运行,接着我们就能练习打字了,是不是很简单,
图5
本文TAG:指法练习小游戏
- 上一篇: 连连看小游戏下载(免费下载连连看)
- 下一篇: 傲天神器22米打金单职业版-无尽的黑暗噬魂-GOM引擎
猜你喜欢
- 2023-08-30传奇轻变攻速基址:里的这几个矿藏地图,你明白几个呢?
- 2022-02-22刺客信条3存档损坏_刺客信条起源怎么存档
- 2022-02-22psp碧之轨迹下载_碧之轨迹中文版iso
- 2022-02-21fifa15破解补丁_fifa15破解补丁怎么打
- 2022-02-21手机卡牌游戏(最火的手机卡牌游戏)
- 2022-02-21龙腾世纪起源_龙腾世纪起源自由爱mod
- 最近发表
- 标签列表
-
- 传奇手游私服 (7)
- 新开传奇手游网站 (7)
- 传奇单职业 (2)
- 传奇手游变态版 (1)
- 传奇发布网 (7)
- 传奇sf手游版 (1)
- 新开传奇 (1)
- 传奇私服 (1)
- 拳皇7k7k小游戏 (0)
- nitrome小游戏 (0)
- 最新传奇发布网 (0)
- 每日新开传奇网 (0)
- 找176复古传奇 (0)
- 超级变态热血传奇 (0)
- nba2k11最新名单 (0)
- 王者荣耀更新 (0)
- 王者荣耀体验服申请 (0)
- 英雄联盟出装顺序 (0)
- 三国志单机游戏 (0)
- 王者荣耀宫本武藏符文 (0)
- 梦幻西游109神器任务攻略 (0)
- 下载英雄联盟 (0)
- 机械公敌兰博出装 (0)
- 王者荣耀西施 (0)
- 王者荣耀无限火力 (0)
- 不知火舞王者荣耀 (0)
- 300英雄三笠出装 (0)
- 冒险岛2职业 (0)
- 龙将2官网 (0)
- 热血传奇怀旧版好玩吗 (0)
- 传奇超级 (0)
- 传奇师服 (0)
- 迷失传奇发布网 (0)
- 韩版传奇私服发布网 (0)
- 传世新开 (0)
- 传奇2外挂 (0)
- 传奇复古 (0)
- 单职业变态 (0)
- 传奇sf180 (0)
- 传世sf吧 (0)
- 传奇私服gm命令大全 (0)
- 传奇世界私服刷元宝 (0)
- dnf私服发布网 (0)
- 网页三国游戏排行榜 (0)
- 傲视千雄私服 (0)
- 热血传奇176客户端下载 (0)
- 最新机战私服 (0)
- 传奇吉吉免费版 (0)
- 蜘蛛纸牌游戏 (0)
- 最热门的网游排行榜 (0)
- 2d网游 (0)
- 网游私服排行榜 (0)
- moba网游 (0)
- 439小游戏 (0)
- 飞车小游戏 (0)
- 奥奇传说小游戏 (0)
- 龙斗士小游戏 (0)
- 下载手机游戏 (0)
- 维京神域之战 (0)
- 星际2单机 (0)
- 防守类单机游戏 (0)
- 灰烬攻略 (0)
- 战神3pc版 (0)
- 腐尸之屋 (0)
- 新神奇传说3秘籍 (0)
- 生化危机5怎么存档 (0)
- 三国群英传1单机版下载 (0)
- 捕鱼达人手机版 (0)
- 仙剑奇侠传游戏1 (0)
- 暴力摩托单机版下载 (0)
- fifa12下载 (0)
- 色单机游戏 (0)
- 三国志13修改器 (0)
- 梦幻西游单机版神剑情天3 (0)
- 对打单机游戏 (0)
- 三国群英传7补丁 (0)
- 最好单机游戏下载 (0)
- 流星蝴蝶剑秘籍大全 (0)
- 孢子 (0)
- 梦幻西游赚钱 (0)
- 梦幻西游答题 (0)
- 王者荣耀防沉迷 (0)
- 梦幻西游挖图技巧 (0)
- 梦幻岛游戏 (0)
- 轩辕剑网游官网 (0)
- 梦幻西游手游论坛 (0)
- 极道阴阳师 (0)
- 仙剑奇侠传3下载 (0)
- 七龙珠人物换装2 (0)
- 赛尔号手机版下载 (0)
- lol战队名字 (0)
- 黑湾海盗中文版 (0)
- 超级街霸4街机版 (0)
- 侵略行为 (0)
- 孤岛惊魂3结局 (0)
- 龙珠单机游戏大全 (0)
- 仙剑三游戏下载 (0)
- 策略单机游戏 (0)
- 家园2简体中文版 (0)
- 现代战争2 (0)