vb课件vb第7章幻灯片.pptVIP

* Private Sub Command1_Click() Pos = Val(Text2.Text) If Pos = 0 Or Pos N Then MsgBox 位置越界，请重新输入 Text2.SetFocus Text2.SelStart = 0 Text2.SelLength = Len(Text2.Text) Else For I = Pos To N - 1 A(I) = A(I + 1) Next I N = N - 1 Text3.Text = For I = 1 To N Text3.Text = Text3.Text Str(A(I)) Next I End If End Sub * 【例7-5】将数Num插在数组A中指定的位置Pos 。 如果Pos≤0，则将Num插在第1个位置 如果Pos＞0，则将Num插在最后一个位置 分析: pos Num (1) 对数组中原Pos位置的元素到最后一个元素全部向后移动一个位置: A(N+1)=A(N) A(N)=A(N-1) ……