xx年11月浙江省技術選考試題信息真題(文件)
【正文】 據相等，進行剔除處理 a(bottom)=a(j) bottom = bottom 1 End If Next j i = i + 1 Loop = For i = 1 To bottom = + Str(a(i)) Next i End Sub 17．【加試題】 由數組 a生成數組 b的方法描述如下： 1) 將數組 a中的 n個元素依次分割出若干個數據塊，每個數據塊有 m m個元素， m最大值為8，最小值為 2。以 3 3數據塊為例，轉換過程如下圖所示 : 轉換前元素次序 轉換前元素次序 12 67 34 42 19 77 54 22 83 12 42 54 67 19 22 34 77 83 第 8 頁 共 9 頁 小明依據上述描述設計了如下 VB程序。當前未分割數據的第 1個元素下標 Dim Left As Integer 39。讀取 n個轉換前的數據，依次存儲到 a(1)、 a(2)、?? a(n)中，代碼略 m = 8 Start = 1 Left = n Do While Left 3 If Left m * m Then m = ① Else pa = Start pb = Start For i = 1 To m * m b(pb) = a(pa) pb = pb + 1 If i Mod m = 0 Then ② Else pa = pa + m End If Next i ③ Start = Start + m * m End If Loop For i = Start To n b(i) = a(i) Next i 39。數組 a的下標 Dim pb As Integer 39。 （ 2）請在劃線處填入合適的代碼。 例如 n=140時，可依次分割出 3個數據塊，元素的個數分別為 64（ 8 8）、 64（ 8 8）、 9（ 3 3），剩余元素為 3個。獲取排序前數據依次存儲在數組 a中，并在文本框 Text1中顯示。 16． 【加試 題】 小李基于冒泡排序算法編寫了一個 VB程序 ，功能如下：在文本框 Text1中顯示 排序前的數據，單擊“排序”按鈕 Command1,在文本框 Text2中顯示 剔除 重復數據后的升 序排序結果。 (3) 測試場景時，背景畫面播放到第 25幀時變成另一 背景 畫面，為了使背景第 1幀到第 36 幀 一直顯示“背景”圖層第 1幀的內容，正確的操作是 。 Private Sub Command1_Click() Dim s As String, t As String, c As String Dim i As Integer, p As Integer s =
教學課件相關推薦
鄂ICP備17016276號-1