我现在有VB做扫雷，大体易出来，在布雷拿老运行不过去，哪位大师给改改

推荐回答

这是我的一段布雷的代码，你看看能不能帮到你。ReDim tp(1 To nandu ^ 2)ReDim tpp(1 To nandu ^ 2)For i = 1 To nandu ^ 2 tp(i) = i Next i For i = 1 To leishu Randomize rod = Int((nandu ^ 2 - i) * Rnd + 1) tpp(i) = tp(rod) tp1 = tp(nandu ^ 2 - i + 1): tp(nandu ^ 2 - i + 1) = tp(rod): tp(rod) = tp1 Next i For i = 1 To leishu xd = (tpp(i) - 1) Mod nandu + 1 yd = (tpp(i) - 1) \ nandu + 1 lei(xd, yd) = True Next i