loverain520的专栏

原创 扫雷程序“布雷”代码（vb）

dim a(10,10),b(100) as longFor i = 1 To 10    For j = 1 To 10        a(i, j) = "0"    Next jNext iFor k = 1 To 20 ²¼À×10:     a1 = Int(Rnd * 10) + 1        b1 = Int(Rnd * 10) + 1        If a(a1, b1)