计算机二级VＢ数组和自定义类型练习题及答案

HＹPＥRＬIＮK计算机级别考试网更新：-12-30编辑:ｅvans

6.如下程序代码将任意一组数存入数组，从键盘接受一数据,将其插入数组中，插入位置也从键盘接受。

DimA(）

PrivａｔeSｕｂForｍ_Ｃｌｉck()

Ｎ=InputBoｘ(＂数据个数：＂)

N=N+１

,ｎbsｐ；__【1１】__

ForI=1ＴoN-1

Ａ（I）=Val（IｎputBox(原数据:）)

NｅxtI

Ｄ=Val(InputBoｘ(插入数据:＂))

P=Vaｌ（InpｕtBox(插入位置:＂）