Question

2, 编写一个vb应用程序,完成在A数组中查找56,删除67,和插入102的功能.假设A数组11，12，34，43，56，65

Answer 1

dim a(),i,n,x，k
a=array(11,12,34,45,56,65)
n=ubound(a)       '获得数组上界
x=102
for k = 0 to n      '查找插入位置
 if x<a(k) then exit for
next k
redim preserve a(n+1)        '数组增加一个元素
for i=n to k steo -1            '数组元素后移一位，腾出位置
 a(i+1)=a(i)
next i   
a(k)=x                       '数x插入在对应的位置，使数组保持有序
for i = 0 to n+1            '显示插入后的各数组元素
  print a(i)
 next i

不知道你的查找56要以什么方式显示，而你数组中又没有67，所以简单做个插入程序做示范好了，另外两个都要更容易些。

Answer 2

这都是基本功吧，看看书，书上都有