Question

有谁会用vb做警察抓小偷的游戏的 会的话发到我邮箱yashay@163.com 谢谢！！

或者用vb做一个拯救苹果的那个游戏 帮帮忙。。最好能在这两天弄好
能运行吗 大哥 我试试+

Answer 1

是这个吗

Module Module1

Public Delegate Sub 偷东西事件句柄(ByVal sender As 小偷, ByVal e As 偷东西事件参数)

Public Class 偷东西事件参数
Public 偷的东西 As String
Public 偷的地点 As String
Public 被偷的人 As String
End Class

'警察类
Public Class 警察
Public Sub New()
Console.WriteLine("便衣警察在盯梢......")
Console.WriteLine()
'输出迟缓1秒
System.Threading.Thread.Sleep(1000)
End Sub

Public Sub 抓小偷(ByVal sender As 小偷, ByVal e As 偷东西事件参数)
Console.WriteLine()
Console.WriteLine("警察:小毛贼，哪里跑，......")
System.Threading.Thread.Sleep(3000)
Console.WriteLine("(小偷被抓。)")
Console.WriteLine()
System.Threading.Thread.Sleep(1000)
Console.WriteLine("警察:什么名字？")
System.Threading.Thread.Sleep(1000)
Console.WriteLine("小偷:" & sender.姓名)
System.Threading.Thread.Sleep(1000)
Console.WriteLine("警察:偷了什么？")
System.Threading.Thread.Sleep(1000)
Console.WriteLine("小偷:" & e.偷的东西)
System.Threading.Thread.Sleep(1000)
Console.WriteLine("警察:在哪里偷的？")
System.Threading.Thread.Sleep(1000)
Console.WriteLine("小偷:" & e.偷的地点)
System.Threading.Thread.Sleep(1000)
Console.WriteLine("警察:偷了谁的？")
System.Threading.Thread.Sleep(1000)
Console.WriteLine("小偷:" & e.被偷的人)
System.Threading.Thread.Sleep(1000)
Console.WriteLine("警察:蹲局子去！15天。")
Console.WriteLine()
End Sub
End Class

'小偷类
Public Class 小偷
Private _姓名 As String

Public Property 姓名() As String
Get
Return _姓名
End Get
Set(ByVal Value As String)
_姓名 = Value
End Set
End Property

Public Sub New(ByVal 姓名 As String)
Console.WriteLine("生成小偷 (小偷" & 姓名 & "上车了)")
Me.姓名 = 姓名
Console.WriteLine()
System.Threading.Thread.Sleep(1000)
End Sub

Public Event 偷东西事件 As 偷东西事件句柄

Public Sub 偷东西(ByVal 偷的东西 As String, ByVal 偷的地点 As String, ByVal 被偷的人 As String)
System.Threading.Thread.Sleep(2000)
Console.WriteLine("小偷：嘿嘿...今天偷了" & 偷的东西)
System.Threading.Thread.Sleep(1000)
Console.WriteLine("（小偷窃喜，正欲溜之大吉......）")
Console.WriteLine()
System.Threading.Thread.Sleep(1000)
Dim e As New 偷东西事件参数
e.偷的东西 = 偷的东西
e.偷的地点 = 偷的地点
e.被偷的人 = 被偷的人
RaiseEvent 偷东西事件(Me, e)
End Sub
End Class

'主程序
Sub Main()

Dim 张三 As 小偷 = New 小偷("张三")
Dim 李四 As New 警察
Console.WriteLine("公交车上，人很多，警察小偷都有，......（有好戏看了）。")
'警察开始监视小偷，若偷即抓
AddHandler 张三.偷东西事件, AddressOf 李四.抓小偷
张三.偷东西("一部手机。", "公交车上。", "一名女士。")
Console.ReadLine()
End Sub

End Module

Answer 2

请查收