打字测试软件程序设计步骤

打字测试软件程序设计步骤:

1、启动VB，新建标准EXE工程，在窗体右下角箭头处按住鼠标左键拉大Form1窗体，在右边的Form1属性中把Caption改为“打字测试软件”。

2、在左侧的工具箱中点击文本框控件TextBox，在中间的窗体上方拖动形成一个大的文本框，在右边的属性中把Text改为空，即删除原来的Text1，把多行属性MultiLine改为True。

3、在左侧的工具箱中点击命令按扭CommandButton,在中间的窗体下方拖动形成一个命令按扭，在右边的属性中把名称改为begin,把Caption改为“开始”。

4、同样添加“结束”命令按扭：在左侧的工具箱中点击命令按扭CommandButton,在中间的窗体下方拖动形成一个命令按扭，在右边的属性中把名称改为end,把Caption改为“结束”。

5、在左侧的工具箱中点击标签控件Label，在中间的窗体下方拖动形成一个标签，在右边的属性中把Caption改为“打字速度”。

6、在左侧的工具箱中点击文本框控件TextBox，在中间的窗体下方拖动形成一个文本框，在右边的属性中把Text改为空，即删除原来的Text1。

7、在左侧的工具箱中点击标签控件Label，在中间的窗体下方拖动形成一个标签，在右边的属性中把Caption改为“字/分钟”。

8、双击中间的窗体，出来程序代码窗口，把原来的代码删除，把老师给你的代码复制上去。

9、点击文件菜单，生成工程1.exe，输入自己的名字，保存在桌面。

10、作业提交：在桌面右下角“极域电子教室”图标上右键“作业提交”。


程序代码：

Dim dtmBeginTime As Date, dtmEndTime As Date

Private Sub begin_Click()
dtmBeginTime = Time()
End Sub

Private Sub end_Click()
Dim intTimeCost As Integer, intWordCount As Integer
dtmEndTime = Time()
intTimeCost = DateDiff("s", dtmBeginTime, dtmEndTime)
intWordCount = Len(Text1.Text)
Text2.Text = CInt(intWordCount / (intTimeCost / 60))
End Sub

使用自己制作的打字测试软件来测试自己的打字速度步骤：
1、双击启动自己做的打字测试软件，调整好输入法，点击“开始”命令，计时开始
2、在上面的文本框中输入要打的短文，输完后点击“结束”命令，看看自己的打字速度是多少。