VB高手进，考试急用(高分，更高分)

来源：百度知道 编辑：UC知道 时间：2024/07/04 02:43:12
仿照Windows的扫雷游戏制作“扫雷”。
有简单一点的么？太长了不合格，老师让控制在五十行左右

代码我不想写,不过可以给你提点思路.用二维数组.如下:

Option Explicit

Dim a(10) As Variant
Private Const Pointer = 20
Dim last As Long

Private Sub Form_Load()
Dim i As Integer
Dim b(15) As Integer
Dim f As Double
Dim j As Integer
Dim k As Control
Dim l As Integer
Dim s As Integer

For i = 0 To 10
s = 0
For l = 0 To 15
Randomize
f = Rnd * 1

If last <= Pointer And s <= 3 Then
b(l) = Round(f)
Else
b(l) = 0
End If

If Round(f) > 0 Then
s = s + 1
End If

If s < 3 Then
If Round(f) > 0 Then
last = last + 1
End If
End If