急急急~~~~!我这有一个vb的课程设计,是关于俄罗斯方块的,但有错误,有那位能帮我改一下,谢谢了啊!

来源:百度知道 编辑:UC知道 时间:2024/05/27 00:39:06
Private Sub cmdPause_Click()
If TetrisBox1.Playing Then
TetrisBox1.PauseGame (True)
cmdPause.Caption = "继 续"
Else
TetrisBox1.PauseGame (False)
cmdPause.Caption = "暂 停"
End If
End Sub

Private Sub cmdStart_Click()
TetrisBox1.Speed = txtSpeed.Text
TetrisBox1.ClearBox
TetrisBox1.StartGame
txtSpeed.Enabled = False
cmdStart.Enabled = False
cmdPause.Enabled = True
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Select Case KeyCode
Case vbKeyLeft
TetrisBox1.MoveLeft
Case vbKeyRight
TetrisBox1.MoveRight
Case vbKeyDown
TetrisBox1.MoveDown
Case vbKeyUp
TetrisBox1.Rotate
End Select
End Sub
Private Sub TetrisBox1_Lines(ByVal iNumberOfLines As Integ

分客户端和服务器端
设计方式两有两类
一类是出卷评分都由服务器端完成,客户端仅进行考试,问题是要把所有的操作结果保存到服务器
二类是出卷评分功能由客户端完成,服务器端仅起收集成绩之用.

如果当年我没在VB课上玩扫雷的话没准能帮你........