15.小明設(shè)計(jì)了一個(gè)算法,來(lái)實(shí)現(xiàn)10個(gè)11-99之間隨機(jī)數(shù)字的升序排序,并去掉重復(fù)數(shù)字。程序設(shè)計(jì)思想如下:a(1)~a(10)用于存放原數(shù)據(jù),b(1)~b(num) 用于存放排序完成后的結(jié)果,對(duì)于每個(gè)待排數(shù)字a(i),先在b數(shù)組中查詢(xún)是否存在,如不存在,則放入到b數(shù)組中。程序運(yùn)行界面如圖所示。 VB代碼實(shí)現(xiàn)如下: Const n=10 Dim a(1 To 100)As Integer Dim b(1 To 100)As Integer Private Sub Form_Load( ?。?br />’隨機(jī)生產(chǎn)10個(gè)11-99之間的數(shù)字,并依次存儲(chǔ)在數(shù)組a中,代碼略 End Sub Private Sub Command1_Click( ) Dim num As Integer,L As Integer,R As Integer,i As Integer Dim m As Integer,f As Boolean num=1:b(1)=a(1) For i=2 To n b(num+1)=a(i)+1 f=False For j=1 To num+1 If a(i)<b(j) Then Exit For ElseIf a(i)=b(j) Then ① End If Next j If Not f Then For k= j+1 To num b(k+1)=b(k) Next k ② num=num+1 End If Next i 根據(jù)如上代碼,請(qǐng)回答下列問(wèn)題: (1)若要清除文本框Text1中的內(nèi)容,能實(shí)現(xiàn)該功能的語(yǔ)句是
16.小王計(jì)劃使用VB制作一個(gè)掃雷小游戲,他首先需要生成一個(gè)“雷區(qū)”: ①生成n*n的矩陣,其中計(jì)劃埋雷m 個(gè),n和m 的數(shù)據(jù)分別從text1和text2中獲取(n<=10,m<=n) ②隨機(jī)位置埋好地雷后(埋雷位置用X表示且埋雷位置不重復(fù)),未埋雷的位置顯示該位置周?chē)蝗Φ乩椎臄?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=
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 根據(jù)上述代碼,完成下列問(wèn)題: (1)上圖框中位置未埋雷,且數(shù)字被遮擋,請(qǐng)問(wèn)該位置中應(yīng)填寫(xiě)的數(shù)字是