用VB如何设计打字程序啊，各位大哥大姐帮帮忙啊。

command1 frame1 (label1……label6 timer1 timer2)

'窗体代码,测试好的,大概就是这样 稍微改下就可以实现你所说的功能

Option Explicit

Dim score As Integer

Dim speed As Integer

Sub init()

Label1.Caption = Chr(Int(Rnd * 26) + 49) ' / 设定Label1随机显示的字母

speed = Int(Rnd * 100 + 100) '/ 设定Label1随机显示字母的速度

Label1.Left = Int(Rnd * Frame1.Width) '/ 设定Label1代表字母出现的左边位置

Label1.Top = Frame1.Top '/ 设定Label1代表字母出现的顶部位置

End Sub

Sub init1()

Label6.Caption = Chr(Int(Rnd * 26) + 97) '/ 设定Label2随机显示的字母

speed = Int(Rnd * 100 + 100) '/ 设定Label2随机显示字母的速度

Label6.Left = Int(Rnd * Frame1.Width) ' / 设定Label2代表字母出现的左边位置

Label6.Top = Frame1.Top ' / 设定Label2代表字母出现的顶部位置

End Sub

Private Sub Command1_Click()

init ' /调用init子程序

Timer1.Enabled = True '/ 激活Time1控件

Timer2.Enabled = True '/ 激活Time2控件

Command1.Visible = False

Label5.Caption = 200

Label4.Caption = 0

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)

If Chr(KeyAscii) = Label1.Caption Then ' /校验键盘输入字符和Label1显示的字符

init

score = score + 1 ' / 得链纳败分加1

Label4.Caption = score

End If

If Chr(KeyAscii) = Label6.Caption Then ' /校验键盘输入字符和Label2显示的字符

init1

score = score + 1

Label4.Caption = score '/ Label4控件显示得分情况

End If

End Sub

Private Sub Form_Load()

Randomize

Timer1.Enabled = False '/ Time1控件失效

Timer2.Enabled = False '/ Time2控件失效

End Sub

Private Sub Timer1_Timer()

Label1.Top = Label1.Top + speed

If Label1.Top >Frame1.Height Then ' /第一个字母超出屏幕范围的时候调用init子程棚颤序重新出现一个字母

init

End If

Label6.Top = Label6.Top + speed

If Label6.Top >Frame1.Height Then'/第二个字母超出屏幕范围的时候调用init1子程序重新出现一个字母

init1

End If

End Sub

Private Sub Timer2_Timer()

Label5.Caption = Val(Label5.Caption) - 1 '/ 扣除剩余个数中的一个

If Val(Label5.Caption) <= 0 Then

Timer1.Enabled = False '/ 剩余个数小于等于0的时候结束练习

Label1.Caption = "" ' / 不显示字母

Label6.Caption = ""

Select Case score

Case Is <= 80

MsgBox vbCrLf + "别放弃，再来一次！" '/ 显示信息框

Case Is <120

MsgBox vbCrLf + "成绩不错，加油！"

Case Is <150

MsgBox vbCrLf + "再努力做的更好一茄并些！"

Case Is >180

MsgBox vbCrLf + "好厉害！最高分呀！"

End Select

Command1.Visible = True

Label4.Caption = 0

Label5.Caption = 200

Timer1.Enabled = False

Timer2.Enabled = False

End If

End Sub

第一步，新罩弊建一个工程，在Form1中加一个文本框和一个Timer控件，名字保持滚锋默认。文本框的Multiline属性设置为True，ScrollBars设为2

第二步，右键大闷晌单击Form1的空白处，单击【查看代码】

第三步，将下面的代码复制进去

Dim strText As String

Dim i As Long

Private Sub Command1_Click()

Timer1.Interval = 200

Text1.Text = ""

i = 1

Timer1.Enabled = True

End Sub

Private Sub Form_Load()

strText = "你好，这个Demo演示了如何用Timer控件进行模仿打字机效果" &vbNewLine &vbNewLine &"演示完毕"

Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

Text1.SelText = Mid(strText, i, 1)

i = i + 1

If i >Len(strText) Then

Timer1.Enabled = False

End If

End Sub

一个CheckBox控件（check1)、一个按钮（command1）、两个文本框（text1 和 text2）、一个计时器（timer1）。

添加以下代码：

Option Explicit

Dim i As Integer

Private Sub Command1_Click()

Timer1.Enabled = True

Text2.Text = ""

i = 0

End Sub

Private Sub Form_Load()

Me.Caption = "文字消庆雹打印机"

Me.Width = 10000

Me.Height = 2500

Check1.Caption = "循环"

Check1.Move 500, 1300, 2000

Command1.Caption = "开始"

Command1.Move 4000, 1400, 2000, 400

Text1.Move 500, 500, 9000, 300

Text1.Text = "Visual Basic 联机帮助中没有找到指拿帆定的关键字，可能是您拼写有误、选择了错误的差裤文本、或者不是的关键字。"

Text2.Move 500, 1000, 9000, 300

Text2.Text = ""

Timer1.Enabled = False

Timer1.Interval = 200

End Sub

Private Sub Timer1_Timer()

i = i + 1

If i >Len(Text1.Text) Then

If Check1.Value = 1 Then

Command1_Click

Else

Timer1.Enabled = False

End If

Else

Text2.Text = Left(Text1.Text, i)

End If

End Sub