Sub Game()
Dim name As String, Exp As Integer, level As Integer, HP As Integer, ATK As Single, DEF As Single
name = InputBox("名字", "name", "player")
level = 1
Exp = 0
If level = 1 Then *1级
Randomize
HP = Int(Rnd * 300) + 100 *300以内随机HP
ATK = Rnd * 5
DEF = Rnd
End If
Label1.Caption = name *显示血、等级等
Label2.Caption = level
Label3.Caption = Exp
Label4.Caption = HP
Label5.Caption = ATK
Label6.Caption = DEF
End Sub
Private Sub Form_Click()
Call Game
End Sub
Private Sub Command1_Click()
Dim Exp1 As Integer, a, c, HP1 As Integer, ATK1 As Single, DEF1 As Single, a2
Exp1 = Val(Label3.Caption)
HP1 = Val(Label4.Caption)
ATK1 = Val(Label5.Caption)
DEF1 = Val(Label6.Caption) *从窗体中提取数据
Randomize
HP2 = Int(Rnd * 200) + 50
ATK2 = Int(Rnd * 3)
DEF2 = Int(Rnd) *生成敌人
Do Until HP2 <= 0 *敌人死亡
If HP1 <= 0 Then
Exit Do *玩家死亡
Else *继续回合
Randomize
a = Int(Rnd * 2 * ATK2)
a2 = Int(Rnd * 2 * ATK1)
If a > DEF1 Then *防止回血
HP1 = HP1 - a + DEF1
Else
HP1 = HP1 - a
End If
c = MsgBox("我方血量:" & HP1, , "") *显示
If a2 > DEF2 Then
HP2 = HP2 - a2 + DEF2
Else
HP2 = HP2 - a2
End If
c2 = MsgBox("敌方血量:" & HP2, , "")
Exp1 = Int(Exp1 + a / 10)
End If
Loop
Label3.Caption = Exp1 *经验取回
End Sub

这是第一个界面代码：
Private Sub Command1_Click()
Form2.Show
End Sub
Private Sub Command2_Click()
End
End Sub

好像很好玩的样纸~楼主做好发我玩玩撒