致新手：用VB6解决一些有趣的问题（二）

最新推荐文章于 2025-12-19 15:04:39 发布

最新推荐文章于 2025-12-19 15:04:39 发布 · 93 阅读

文章标签：

#游戏

本文介绍了一款基于VB的扫雷游戏实现方法，重点讲解了如何通过代码设置雷区的概率分布。文章提供了完整的代码示例，包括界面设计、用户交互逻辑及雷区概率设置等关键环节。

扫雷

演示如何实现概率的分配

Form1 里画一个 CommandButton

名称cmdMine ，Caption属性清空

Height 设为255， Width设为255

Index属性设为0

使用如下代码：

Option Explicit Private bGameOver As Boolean Private Sub cmdMine_Click(Index As Integer) If bGameOver Then Exit Sub Static c As Integer If cmdMine(Index).Tag = "1" Then MsgBox "你踩到地雷了死米嘎！" bGameOver = True Else cmdMine(Index).Visible = False c = c + 1 End If Me.Caption = "已经探测：" & CStr(c) & "个！" End Sub Private Sub Form_Load() Dim i As Integer, j As Integer, k As Integer Dim s As String InputHeight: s = InputBox("请输入雷区的高度(10 - 100)：", , "20") If CInt(s) < 10 Or CInt(s) > 100 Then MsgBox "请输入正确的数值！", vbCritical GoTo InputHeight End If i = CInt(s) InputWidth: s = InputBox("请输入雷区的宽度(10 - 100)：", , "20") If CInt(s) < 10 Or CInt(s) > 100 Then MsgBox "请输入正确的数值！", vbCritical GoTo InputWidth End If j = CInt(s) Me.Height = 240 + i * (375) '255 + 120 Me.Width = 240 + j * (375) For k = 1 To i * j - 1 Load cmdMine(k) If k Mod j Then cmdMine(k).Left = cmdMine(k - 1).Left + 375 If k >= j Then cmdMine(k).Top = cmdMine(k - j).Top + 375 cmdMine(k).Visible = True Next k InputPosible: s = InputBox("请输入雷区概率(1 - 99)：", , "20") If CInt(s) < 1 Or CInt(s) > 99 Then MsgBox "请输入正确的概率！", vbCritical GoTo InputPosible End If k = CInt(s) For i = 0 To cmdMine.UBound j = CInt(Rnd * 100) If j <= k Then cmdMine(i).Tag = "1" Else cmdMine(i).Tag = "0" Next i End Sub

给想设计小游戏的菜鸟很菜很菜很菜很菜很菜很菜很菜很菜很菜，比吃菜的小鸟还菜的菜鸟