給定一個數組a,有n個元素（1≤n≤100），有以下兩種操作：
操作1：在文本框中分別輸入L、R、T（1≤L≤R≤n），對數組下標為L到R之內（包含L和R）的每個元素增加T（1≤T≤100）
操作2：在文本框中輸入K（1≤K≤n），在標簽中輸出a（K）的值。
為了提高算法的效率，小明設計了如下算法，以n=10為例，如表所示。

數組下標	1	2	3	4	5	6	7	8	9	10
元素的值	7	12	3	6	7	11	8	24	9	5

①將n個元素依次分成段（表示對

n

石向下取整，每段的元素個數為，若最后有不足個元素，則自成一段。給每段設置一個標記，初始值都為0，如表所示。

數組下標	l	2	3	4	5	6	7	8	9	10
元素的值	7	12	3	6	7	11	8	24	9	5
段編號	第1段			第2段			第3段			第4段
段標記值	0			0			0			0

②對于操作1，輸入的L、R屬于同一段，則直接對a（L to R）的每個元素加上T．如輸入4，6，3，則第2段中的每個數加上3，操作后如表所示。

數組下標	1	2	3	4	5	6	7	8	9	10
元素的值	7	12	3	9	10	14	8	24	9	5
段編號	第1段			第2段			第3段			第4段
段標記值	0			0			0			0

③對于操作1，若輸入的L，R不屬于同一段，則對元素a（L）所在段中從a（L）開始到該段最后一個元素為止的每個元素加上T，并對元素a（R）所在段中從該段第一個元素開始到a（R）為止的每個元素加上T，對a（L）元素所在段的下一段開始到a（R）元素所在段的前一段為止的每個段標記值增加T，這些段中的元素保持不變。如在上表的基礎上再輸入1，8，2，則第1段的3個數和第3段中的前2個數都加上2，第2段的段標記位增加2，如表所示。

數組下標	1	2	3	4	5	6	7	8	9	10
元素的值	9	14	5	9	10	11	10	26	9	5
段編號	第1段			第2段			第3段			第4段
段標記位	0			2			0			0

④對于操作2，若輸入K的值為5，則輸出a（5）的值，a（5）的值為該數組元素的值+段標記值，即a（5）=12．程序運行界面如下。請回答下列問題：
（1）若數組元素為“3，2，6，8，7，9，3，4，7，9，6”，依次進行以下3次操作后第3段的標記值為

1

1

操作1：依次輸入1，11，1
操作1：依次輸入7，9，2
操作2：輸入8
（2）請在橫線處填入合適的代碼。
Const n=10
Dim a（1 To n）As Integer
Dim f（1 T on）As Integer'f數組元素依次表示每段的標記值
Dim bk As Integer'bk表示每段的元素個數
Function BL（x As Integer）As Integer'BL函數返回數組元素a（x）的段編號
BL=

①

①

End Function
Private Sub Form_Load （　　）
’讀取數據，并存儲到數組a中，代碼略
bk=Int（Sgr（n））
End Sub
Private Sub Command1_Click （　?。?br />Dim L As Integer,R As Integer,T As Integer,i As Integer
L=Val（Text1．Text）：R=Val（Text2．Text）：T=Val（Text3．Text）
If BL（L）=BL（R）Then
For i=L To R
a（i）=a（i）+T
Next i
EIse
For i=

②

②

a（i）=a（i）+T
Next i
For i=BL（L）+1 To BL（R）-1
f（i）=f（i）+T
Next i
For i=（BL（R）-1）*bk+1 To R
a（i）=a（i）+T
Next i
End If
End Sub
Private Sub Command2_Click  （　　）
Dim K As Integer
K=Val（Text4．Text）
Labe.15．Caption=“經過一系列操作后。a（“+Str（K）+“）的值為：“+

③

③

End Sub