求一vb程序设计代码

来源：百度知道 编辑：UC知道 时间：2024/06/27 21:37:49
谁能提供一个wumpus的vb程序代码，要求要有一共25个frame排成正方形，中间有一个怪兽，怪兽上下左右四个frame要有提示，还有2个陷阱，陷阱周围四个frame也要有提示（陷阱和怪兽都不需要是随机分配的，固定在一个位置就行）碰到怪兽和陷阱游戏结束，走到另一端的出口游戏胜利

窗体上放一个Frame1，并把它的Index属性改为0

添加代码

Dim p&, gs&, xj&

Private Sub Form_Load()
Frame1(0).Move 0, 0, 1200, 1200
Frame1(0).Caption = ""
Me.Move 3000, 3000, 1200 * 5 + 120, 1200 * 5 + 600
For i = 1 To 24
Load Frame1(i)
Frame1(i).Move 1200 * (i Mod 5), 1200 * (i \ 5)
Frame1(i).Visible = True
Next
Me.KeyPreview = True
Call ReSet
End Sub

Sub ReSet()
Frame1(p).BackColor = Me.BackColor
Frame1(gs).Caption = ""
Frame1(xj).Caption = ""
Frame1(0).Caption = "入口"
Frame1(24).Caption = "出口"
p = 0
Randomize
gs = (Rnd * 100) Mod 23 + 1
redo:
xj = (Rnd * 100) Mod 23 + 1
If xj = gs Then GoTo redo
Frame1(gs).Caption = "怪兽"
Frame1(xj).Caption = "陷阱"
Frame1(p).BackColor