题目

小王计划使用VB制作一个扫雷小游戏，他首先需要生成一个“雷区”： ①生成n*n的矩阵，其中计划埋雷m个，n和m的数据分别从text1和text2中获取（n<=10，m<=n） ②随机位置埋好地雷后（埋雷位置用X表示且埋雷位置不重复），未埋雷的位置显示该位置周围一圈地雷的数量。 程序代码如下： Dim flag(0 To 200) As Boolean, a(0 To 200) As String Dim n As Integer, m As Integer Private Sub Command1_Click( )     Dim s As String, x As Integer, k As Integer     Dim i As Integer, j As Integer     Randomize     n = Val(Text1.Text): m = Val(Text2.Text)     ‘初始化数组flag中各元素均为False，数组a中各元素值为字符"0"，代码略     For i = 1 To m         x = Int(Rnd * (n ^ 2)) + 1         If flag(x) = True Then i = i - 1 Else flag(x) = True     Next i     For k = 1 To n * n         If flag(k) = True Then             a(k) = "X"         Else             For i = (k - 1) \ n To (k - 1) \ n + 2                 For j =    ①                       If i = 0 Then Exit For                     If flag((i - 1) * n + j) = True And j >= 1 And j <= n Then                         a(k) =    ②                       End If                 Next j             Next i         End If     Next k     For i = 1 To n * n           ‘在列表框list1中输出矩阵         s = s + "   " + a(i)         If    ③    Then             List1.AddItem s             s = ""         End If     Next i End Sub 根据上述代码，完成下列问题： （1） 上图框中位置未埋雷，且数字被遮挡，请问该位置中应填写的数字是 （2） 请在划线处填上合适的代码。 ① ② ③  答案： 【1】3 【1】(k - 1) Mod n To (k - 1) Mod n + 2或其他等价答案【2】Chr(Asc(a(k)) + 1)或其他等价答案【3】i Mod n = 0 或其他等价答案

查看本题答案和解析