臺州中學(xué)20xx學(xué)年第一學(xué)期第四次統(tǒng)練試題-資料下載頁
2025-06-07 18:13本頁面
【正文】 的記錄有3條，分別為（1，4），（6，2），（10，3）．現(xiàn)在某旅客退掉5號房間，則登記的記錄變成 （2）請在劃線處填入合適的代碼。Const n = 5000Dim a(0 To n) As Integer 39。a(i)保存第i條記錄的開始房間號Dim b(0 To n) As Integer 39。 b(i)保存第i條記錄的房間數(shù)Dim c As Integer, k As Integer, sp As Integer 39。k為原始記錄數(shù)39。 讀取原始k條記錄的數(shù)據(jù)，依次存入a(1),b(1),a(2),b(2)…a(k),b(k),代碼略39。為了程序處理方便，虛設(shè)了下面2條記錄 a(0) = 0 : b(0) = 0: sp = k + 1 ： a(sp) = 10000 ： b(sp) = 0Private Sub Command1_Click()Dim i As Integerc = Val(Text1Text) 39。c為退掉的房間號i = 1Do While a(i) c 39。查找房間c，應(yīng)該登記在某位置 i = i + 1Loopi = i 139。下面為處理退房登記問題If a(i) + b(i) = c Then If ① Then 39。第4種情況，上下靠 b(i) = b(i) + 1 + b(i + 1) For j = i + 1 To sp 1 a(j) = a(j + 1) : b(j) = b(j + 1) Next j sp = sp 1 Else 39。第1種情況，上靠 b(i) = b(i) + 1 End IfElseIf c + 1 = a(i + 1) Then 39。第2種情況，下靠 a(i + 1) = c : b(i + 1) = b(i + 1) + 1Else 39。第3種情況，上下不靠 For j = ② a(j) = a(j 1) : b(j) = b(j 1) Next j a(i + 1) = c : b(i + 1) = 1 : sp = sp + 1End If‘下面為輸出登記的記錄，不包括虛設(shè)的兩條記錄For i =1 to ③ List3．AddItem 第 amp。 Str(i) amp。 記錄（ amp。 Str(a(i)) amp。 ， amp。 Str(b(i)) amp。 )Next iEnd Sub
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號-1