vb打字游戏代码
1、双击Form1窗口，并选择“通用”对象，输入下面的通用代码: Option Explicit
Dim score As Integer /定义变量
Dim speed As Integer /定义变量
2、编写init子程序(用于设置第一个出现的字母)
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
3、编写init1子程序(用于第二个出现的字母)
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
4、双击“开始”按钮并输入下列代码:
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
5、双击Form1窗口，并选择“KeyPress”对象，输入下面的用代码: 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
6、双击Form1窗口，并选择“Load”对象，输入下面的用代码: Private Sub Form_Load()
Randomize
Timer1.Enabled = False /Time1控件失效 Timer2.Enabled = False /Time2控件失效 End Sub
7、双击Timer1控件并输入下列代码:
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
8、双击Timer2控件并输入下列代码:
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 python和vb的代码可以通用吗
End If
End Sub
2、添加一个Frame控件，将它的Caption属性设置为空，并且将BorderStyle属性设置为“0-None”，然后
在这个Frame中添加1个Label控件，将Visible设为False。 3、在Form1窗口中添加4个Label控件，其中两个Label控件的Caption属性分别设置为“得分”和“剩余”，
另外两个Label控件Caption属性设置为“0”和“200”。
4、在Frame区域中再添加一个Label控件(这个与之前那个是不同的)。 5、在Form1窗口中添加一个Command Button控件，将它的Caption属性更改为“开始”。 6、添加2个Timer控件，并将它的interval属性分别设置为100和1000。

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。