小王計劃使用VB制作一個掃雷小游戲,他首先需要生成一個“雷區(qū)”: ①生成n*n的矩陣,其中計劃埋雷m 個,n和m 的數(shù)據分別從text1和text2中獲取(n<=10,m<=n) ②隨機位置埋好地雷后(埋雷位置用X表示且埋雷位置不重復),未埋雷的位置顯示該位置周圍一圈地雷的數(shù)量。 程序代碼如下: 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) ’初始化數(shù)組flag中各元素均為False,數(shù)組 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=
(k-1)ModnTo(k-1)Modn+2
(k-1)ModnTo(k-1)Modn+2
If i=0 Then Exit For If flag((i-1)*n+j)=True And j>=1 And j<=n Then a(k)=
Chr(Asc(a(k))+1)
Chr(Asc(a(k))+1)
End If Next j Next i End If Next k For i=1 To n*n’在列表框list1中輸出矩陣 s=s+““+a(i) If
iModn=0
iModn=0
Then List1.AddItem s s=““ End If Next i End Sub 根據上述代碼,完成下列問題: (1)上圖框中位置未埋雷,且數(shù)字被遮擋,請問該位置中應填寫的數(shù)字是
1.大部分社交軟件都有好友推薦的功能,當用戶 A 和用戶 B 的共同好友數(shù)量超過閾值 p 時,由系統(tǒng)向用戶 A 推薦用戶 B。 編寫 VB 程序,實現(xiàn)好友推薦功能。運行程序,列表框 Listl 中顯示用戶 id 及好友列表,在文本框 Textl 中 輸入推薦目標用戶 id,在文本框 Text2 中輸入閾值 p,點擊“推薦”按鈕,在列表框List2 中顯示用戶之間的關系,在標簽 Label5 中顯示向目標用戶推薦的好友列表。程序運行界面如圖: (1)根據如圖所示數(shù)據,若輸入用戶 id 為“3”,輸入閾值為“3”,則推薦好友為: