如何使用VB6.0设计一个d球的游戏,

加一个picture1,timer1

Option Explicit

Private Const BallR = 200

Private Const BallD = 2 * BallR + 1

Private CurX As Single

Private CurY As Single

Private OldX As Single

Private OldY As Single

Private VelX As Single

Private VelY As Single

Private Xmax As Single

Private Ymax As Single

Private Sub DrawBall()

OldX = CurX

OldY = CurY

Me.picture1.FillColor = &HEE00CC

Me.picture1.FillStyle = 6

Me.picture1.Cls

picture1.Circle (CurX, CurY), BallR, vbRed

End Sub

Private Sub Form_Load()

Width = (Width - ScaleWidth) + picture1.Width

Height = (Height - ScaleHeight) + picture1.Height

Xmax = picture1.ScaleWidth - BallR

Ymax = picture1.ScaleHeight - BallR

Randomize

CurX = Int((Xmax - BallR + 1) * Rnd + BallR)

CurY = Int((Ymax - BallR + 1) * Rnd + BallR)

OldX = CurX

OldY = CurY

VelX = Int((40 - 20 + 1) * Rnd + 20)

VelY = Int((40 - 20 + 1) * Rnd + 20)

DrawBall

Timer1.Interval = 10

Timer1.Enabled = True

End Sub

Private Sub timer1_Timer()

CurX = CurX + VelX

If (CurX >Xmax) Then

CurX = Xmax

VelX = -VelX

'Beep

ElseIf (CurX <BallR) Then

CurX = BallR

VelX = -VelX

'Beep

End If

CurY = CurY + VelY

If (CurY >Ymax) Then

CurY = Ymax

VelY = -VelY

'Beep

ElseIf (CurY <BallR) Then

CurY = BallR

VelY = -VelY

'Beep

End If

DrawBall

End Sub

计算器是我们工作和学习的好帮手。今天教大家怎么使用VB来制作一款简单的小程序，矩形面积计算器。

首先在新建工程界面选择标准EXE后点击打开按钮。然后将Form1属性窗口中的Caption值设置为：矩形面积计算器。

在对象窗口中可以调节计算器界面的大小。

在工具箱中选择Label工具，并在窗体设计器窗口中创建三个Label。

然后分别将Label1和Label2属性窗口中的Caption值设置为长和宽，将Label3属性窗口中的Caption值设置为空。

在工具箱中选择TextBox工具，并在窗体设计器窗口中创建两个TextBox。

其中Text1对应的是Label1，Text2对应的是Label2。然后将Text1和Text2属性窗口中的Text值设置为空。

在工具箱中选择CommandButton工具，并在窗体设计器窗口中创建一个CommandButton。

然后将Command1属性窗口中的Caption值设置为计算。

左键双击计算（Command1）d出代码窗口，将以下代码复制粘贴到代码窗口中，并覆盖原有代码。

Private Sub Command1_Click()

a = Val(Text1.Text)

b = Val(Text2.Text)

s = a * b

Label3.Caption = "矩形的面积为：" &s

End Sub

代码输入完成后，单击工具栏中的启动进行测试。

测试无误后，点击菜单栏中的文件，然后选择生成工程1.exe。选择存储路径和设置文件名后，单击确定按钮。

然后就可以在计算机上打开计算器啦！

点击关注，有更多计算机小技巧等着您，谢谢您的支持！

看你代码 你已经将scores 定义为全局变量 但是你给scores赋值 是不是有条件的 如果没有满足条件 没有执行到 scores = socres + 1 这句代码 自然不会加分 你应该逐个排除你if 条件语句 比如你是用多个条件  你可以先注释掉多个条件的其中一个 或者 多个 逐步排除法 看哪个条件不满足 从而调整你的代码

---