跪求基于vb程序的射击小游戏，最好是本人做的，悬赏50，给最好的，有的请发到邮箱562889947@qq.com

我自己做的

Dim x11 As Double

Dim x22 As Double

Dim y11 As Double

Dim y22 As Double

Dim m As Boolean

Dim j As Integer

Dim l As Integer

Private Sub Command1_Click()

Timer1Interval = 100

Command1Visible = False

End Sub

Private Sub Form_Load()

MsgBox "在窗体里点击左键不放来改变射击方向，释放左键后射击"

End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Dim temp As Double

If Line1X1 < Line1X2 Then

Line1Y1 = Line1Y2 - Line1X2 (Line1Y2 - Line1Y1) / (Line1X2 - Line1X1)

Line1X1 = 0

For i = 0 To 6

temp = Line1X2 - (Line1X2 - Line1X1) (Line1Y2 - Shape1(i)Top) / (Line1Y2 - Line1Y1)

If temp >= Shape1(i)Left And temp <= Shape1(i)Left + Shape1(i)Width Then

m = True

j = i

l = Shape1(i)Left

MeCaption = Split(MeCaption, "分")(0) + 1 & "分"

Exit For

End If

Next

Timer2Interval = 500

Else

Line1Y1 = Line1Y2 - (Form1Width - Line1X2) (Line1Y2 - Line1Y1) / (Line1X1 - Line1X2)

Line1X1 = Form1Width

For i = 0 To 6

temp = Line1X2 + (Line1X1 - Line1X2) (Line1Y2 - Shape1(i)Top) / (Line1Y2 - Line1Y1)

If temp >= Shape1(i)Left And temp <= Shape1(i)Left + Shape1(i)Width Then

m = True

j = i

l = Shape1(i)Left

MeCaption = Split(MeCaption, "分")(0) + 1 & "分"

Exit For

End If

Next

Timer2Interval = 500

End If

End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then

Line1X1 = X

x11 = Line1X1

x22 = Line1X2

y11 = Line1Y1

y22 = Line1Y2

End If

End Sub

Private Sub Timer1_Timer()

Shape1(0)Left = IIf(Shape1(0)Left >= Form1Width, 0, Shape1(0)Left + 100)

Shape1(1)Left = IIf(Shape1(1)Left >= Form1Width, 0, Shape1(1)Left + 150)

Shape1(2)Left = IIf(Shape1(2)Left >= Form1Width, 0, Shape1(2)Left + 200)

Shape1(3)Left = IIf(Shape1(3)Left >= Form1Width, 0, Shape1(3)Left + 160)

Shape1(4)Left = IIf(Shape1(4)Left >= Form1Width, 0, Shape1(4)Left + 90)

Shape1(5)Left = IIf(Shape1(5)Left >= Form1Width, 0, Shape1(5)Left + 210)

Shape1(6)Left = IIf(Shape1(6)Left >= Form1Width, 0, Shape1(6)Left + 260)

End Sub

Private Sub Timer2_Timer()

Line1X1 = 4080

Line1X2 = 4080

Line1Y1 = 3960

Line1Y2 = 4680

Timer2Interval = 0

End Sub

Private Sub Timer3_Timer()

If m = True Then Shape1(j)Top = Shape1(j)Top + 100: Shape1(j)Left = l

If Shape1(j)Top > Form1Height + 200 Then m = False

End Sub

小程序，支付宝小程序提供了一系列的游戏可以赚钱，其中包括：

1 打鱼游戏：这是一款支付宝小程序中最受欢迎的游戏，玩家可以通过打鱼来赚钱。

2 跑酷游戏：这是一款受欢迎的支付宝小程序游戏，玩家可以通过跑酷游戏来赚钱。

3 射击游戏：这是一款支付宝小程序中受欢迎的射击游戏，玩家可以通过射击游戏来赚钱。

4 拼图游戏：这是一款支付宝小程序中受欢迎的拼图游戏，玩家可以通过拼图游戏来赚钱。

5 竞猜游戏：这是一款支付宝小程序中受欢迎的竞猜游戏，玩家可以通过竞猜游戏来赚钱。

以上就是关于跪求基于vb程序的射击小游戏，最好是本人做的，悬赏50，给最好的，有的请发到邮箱562889947@qq.com全部的内容，包括:跪求基于vb程序的射击小游戏，最好是本人做的，悬赏50，给最好的，有的请发到邮箱562889947@qq.com、什么游戏可以赚钱提到支付宝、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！