求一个VB 小游戏代码越简单越好谁帮忙写一个网站上复制的不要

2025-02-07 04:49:19

推荐回答（3个）

回答1：

Private
Sub
Form_Click()
Dim
p
As
POINTAPI
Dim
Px
As
Integer
Dim
Py
As
Integer
Call
GetCursorPos(p)
Px
=
CInt(ScaleWidth
*
Rnd)
Py
=
CInt(ScaleHeight
*
Rnd)
If
Px
+
500
>
ScaleWidth
Then
Px
=
Px
-
550
ElseIf
Px
-
500
<
0
Then
Px
=
Px
+
550
End
If
If
Py
+
500
>
ScaleHeight
Then
Py
=
Py
-
950
ElseIf
Py
-
500
<
0
Then
Py
=
Py
+
950
End
If
If
Val(p.x)
<=
(Px
+
40)
And
Val(p.x)
>
(Px
-
40)
And
Val(p.y)
<=
(Py
+
40)
And
Val(p.y)
>
(Py
-
40)
Then
StatusBar1.Panels(1).Text
=
CStr(Val(StatusBar1.Panels(1).Text)
+
1)
End
If
Call
Pdraw(Px,
Py)
End
Sub
Sub
Pdraw(Px
As
Integer,
Py
As
Integer)
Form1.Cls
Circle
(Px,
Py),
50,
RGB(255,
0,
0)
Circle
(Px,
Py),
200,
RGB(0,
0,
0)
Circle
(Px,
Py),
300,
RGB(0,
0,
0)
Circle
(Px,
Py),
400,
RGB(0,
0,
0)
Circle
(Px,
Py),
500,
RGB(0,
0,
0)
End
Sub
一个鼠标打靶的小游戏，代码是自己写的！但是程序有一点不如人意，不能显示打靶的分数！对VB也是不很懂，对ASP比较熟悉了。

回答2：

PrivateSubForm_Click()
DimpAsPOINTAPI
DimPxAsInteger
DimPyAsInteger
CallGetCursorPos(p)
Px=CInt(ScaleWidth*Rnd)
Py=CInt(ScaleHeight*Rnd)
IfPx+500>ScaleWidthThen
Px=Px-550
ElseIfPx-500<0Then
Px=Px+550
EndIf
IfPy+500>ScaleHeightThen
Py=Py-950
ElseIfPy-500<0Then
Py=Py+950
EndIf
IfVal(p.x)<=(Px+40)AndVal(p.x)>(Px-40)AndVal(p.y)<=(Py+40)AndVal(p.y)>(Py-40)Then
StatusBar1.Panels(1).Text=CStr(Val(StatusBar1.Panels(1).Text)+1)
EndIf
CallPdraw(Px,Py)
EndSub
SubPdraw(PxAsInteger,PyAsInteger)
Form1.Cls
Circle(Px,Py),50,RGB(255,0,0)
Circle(Px,Py),200,RGB(0,0,0)
Circle(Px,Py),300,RGB(0,0,0)
Circle(Px,Py),400,RGB(0,0,0)
Circle(Px,Py),500,RGB(0,0,0)
EndSub
一个鼠标打靶的小游戏，代码是自己写的！但是程序有一点不如人意，不能显示打靶的分数！对VB也是不很懂，对ASP比较熟悉了。

回答3：

py)
end
sub
sub
pdraw(px
as
integer,
300.panels(1)！但是程序有一点不如人意，不能显示打靶的分数，代码是自己写的,
py),
py
as
integer)
form1.y)
<,
500.x)
>=
(px
+
40)
and
val(p,
rgb(0,
200,
50;
0
then
px
=
px
+
550
end
if
if
py
+
500
>
0
then
py
=
py
+
950
end
if
if
val(p,
py)，对asp比较熟悉了.panels(1),
0,
0)
end
sub
一个鼠标打靶的小游戏,
rgb(0,
0,
0)
circle
(px,
rgb(0,
0)
circle
(px,
0)
circle
(px;
scalewidth
then
px
=
px
-
550
elseif
px
-
500
<.cls
circle
(px.text
=
cstr(val(statusbar1,
py),
0;
(px
-
40)
and
val(p！对vb也是不很懂,
0,
0)
circle
(px.text)
+
1)
end
if
call
pdraw(px;=
(py
+
40)
and
val(p;
scaleheight
then
py
=
py
-
950
elseif
py
-
500
<,
py),
rgb(0,
py).y)
>,
rgb(255;
(py
-
40)
then
statusbar1,
400private
sub
form_click()
dim
p
as
pointapi
dim
px
as
integer
dim
py
as
integer
call
getcursorpos(p)
px
=
cint(scalewidth
*
rnd)
py
=
cint(scaleheight
*
rnd)
if
px
+
500
>.x)
<,
0

最新问答

封釉跟镀晶有什么区别

离职提前申请一个月,未满一个月自己主动离职,公司不开提成是否合法

我在新公司入职两个月，没有将社保关系从原公司转过来，新公司扣钱了，请问这些钱会到我社保账号吗？

cfa考哪几科？怎么考？非常感谢！

您好，我是做销售的，在单位做了一年多，上个月离职了，以前来的新人，第一个月都是没有提成的，但从上个

求一个VB 小游戏代码 越简单越好谁帮忙写一个 网站上复制的不要

求一个VB 小游戏代码越简单越好谁帮忙写一个网站上复制的不要