通过VB编写程序，单击开始，实现一个小球从高处落下，碰到地面后d起到原来高度的一半，再次落下......

Dim h As Integer, h0 As Integer, d As Integer, n As Integer

Private Sub Command1_Click()

Timer1Enabled = True

Command1Enabled = False

End Sub

Private Sub Form_Load()

Shape1Shape = 3

Shape1FillStyle = 0

Shape1FillColor = vbYellow

d = 1

Timer1Interval = 50

Timer1Enabled = False

h = Shape1Top

h0 = h

End Sub

Private Sub Timer1_Timer()

If d = 1 Then

If Shape1Top < Form1Height - 1500 Then

Shape1Top = Shape1Top + 50

Else

d = 0

h = Form1Height - 1500 - (Form1Height - 1500 - h) / 2

End If

Else

If Shape1Top > h Then

Shape1Top = Shape1Top - 50

Else

d = 1

n = n + 1

If n > 10 Then Timer1Enabled = False

End If

End If

End Sub

1、d子拿在手上的位置就是将食指和中指弯曲，中指朝里，食指向外，然后用食指、中指第一节指弯和拇指中间的指节骨夹住d珠，然后用拇指中间的指节骨用力向外拨，d珠就会直射而出了。

2、打d珠，又叫“d玻璃球”、“d球儿”、“打珠子”、“打玻璃珠”，一种流行于20世纪下半叶的儿童游戏。d玻璃球，应该是一项世界性儿童游戏，各国儿童都会玩儿。

balls balls={156,220};

相当于

struct balls

{ int x;

int y;

} balls[]={ {156,220} };

typedef balls ba; //这个定义已经完成，后面语句与此无关，不需要大括号

帮你改好了

出错的原因是shuiping,chuizhi=1不能放在timer里面，要不然每次timer后都会变回来

还有貌似你有几句话是没用的啊，我给你删掉了

Dim Shuiping As Integer, Chuizhi As Integer

Private Sub Form_Load()

Shuiping = 1

Chuizhi = 1

End Sub

Private Sub Timer1_Timer()

Shape1Left = Shape1Left + Shuiping 50

Shape1Top = Shape1Top + Chuizhi 50

If Shape1Left >= Form1ScaleWidth - Shape1Width Or Shape1Left <= 0 Then Shuiping = -Shuiping

If Shape1Top >= Form1ScaleHeight - Shape1Height Or Shape1Top <= 0 Then Chuizhi = -Chuizhi

End Sub

以上就是关于通过VB编写程序，单击开始，实现一个小球从高处落下，碰到地面后d起到原来高度的一半，再次落下......全部的内容，包括:通过VB编写程序，单击开始，实现一个小球从高处落下，碰到地面后d起到原来高度的一半，再次落下......、打d珠小球的技巧 打d珠介绍、小球无规则反d的程序 其中的某些问题等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！