简易vb扫雷代码.docVIP

Dim X As Integer, total% Private Sub Command1_Click() Randomize Dim k As Integer, m As Integer w = Form1.Width h = Form1.Height * 0.9 X = Val(InputBox(请输入行列数)) For i = 1 To X For j = 1 To X k = (i - 1) * X + j Load Label1(k) Label1(k).Caption = Label1(k).Visible = True Label1(k).Width = w \ X Label1(k).Height = h \ X Label1(k).Top = h / X * (i - 1) Label1(k).Left = w / X * (j - 1) If (i + j) Mod 2 = 0 Then Label1(k).BackColor = QBColor(12) Else Label1(k).BackColor = QBColor(15) End If Label1(k).FontSize = 260 \ X Label1(k).Tag = IIf(Int(Rnd * 20 + 1) Mod 19 = 1, ○, ) If Label1(k).Tag = ○ Then total = total + 1 Label1(k).Alignment = 2 Next j Next i Label1(0).BackColor = QBColor(0) For i = 1 To X For j = 1 To X If j + 1 = X And i 1 Then If Label1((i - 2) * X + j + 1).Tag = ○ Then m = m + 1 End If If j + 1 = X And i + 1 X Then If Label1(i * X + j + 1).Tag = ○ Then m = m + 1 End If If i + 1 = X And j 1 Then If Label1(i * X + j - 1).Tag = ○ Then m = m + 1 End If If i 1 And j 1 Then If Label1((i - 2) * X + j - 1).Tag = ○ Then m = m + 1 End If If j + 1 = X Then If Label1((i - 1) * X + j + 1).Tag = ○ Then m = m + 1 End If If i + 1 = X Then If Label1(i * X + j).Tag = ○ Then m = m + 1 End If If j 1 Then If Label1((i - 1) * X + j - 1).Tag = ○ Then m = m + 1 End If If i 1 Then If Label1((i - 2) * X + j).Tag = ○ Then m = m + 1 End If Label1((i - 1) * X + j).ToolTipText = m m = 0 Next Next End Sub Private Sub Form_Load() Label1(0).Visib