计算机二级
VB数组和自定义类型练习题及答案
　　6.如下程序代码将任意一组数存入数组，从键盘接受一数据，将其插入数组中，插入位置也从键盘接受。
　　Dim A( )
　　Private Sub Form_Click( )
　　N=InputBox("
数据个数
:")　　N=N+1
　　&，nbsp；__
【11】__　　For I=1To N-1
　　A(I)=Val(InputBox("
原数据:"))
　　Next I
　　D=Val(InputBox("
插入数据
:"))
　　P=Val(InputBox("
插入位置
:"))
　　Do While P>N Or P<1
　　MsgBox"
位置越界
!"　　P=Val(InputBox("
插入位置
:"))
　　Loop
　　For I=N To P+1 Step -1
　　A(I)=A(I-1)
　　Next I
　　A(P)=D
　　For I=1 To N
　　Text1.Text=Text1.Text & Str(A(I))&""
　　Next I
　　End Sub
　　7.设在窗体上有一种文本框
Text1 ...