vb中怎样在一列从小到大排列的两位数一维数组中插入一个两位数，并把结果显示，谢谢了

如题所述

举报该问题

第1个回答 2011-05-19

加入另一个一维数组，清空。
把原数组i=0 开始与要插入的2位数进行比较，＜=时，将原数组（i）直接接赋值到序号相同的新数组中（i）；
>时，将新数据赋值给新数组；
将原数组的(i)数据赋值给新数组（i+1），后面全部按此赋值。

第2个回答 2011-05-19

假设你的数组的下标的上界是n，责代码是
REDIM PRESERVE A(1 TO N+1)
FOR I=1 TO N+1
PRINT A(I)
NEXT I本回答被提问者采纳

相似回答

vb代码中,如何在一组排好序的数组中插入一个数,并按着原来的顺序排列...答：rem //numindex =要插入的位置 rem //source_array(),原始队列 rem //source_array_count=原始队列数据数量 dim abc(source_array_count+1) as integer '新建队列 dim i as integer '将后面的数据复制到新队列 for i= source_array_count to numindex step -1 abc(i+1)=source_array(i)...

vb数组排列 在其中插入一个数答：a(i + 1) = x a(i+1) = x 虽然回答了，而且输出结果也看不出什么错误，但这个程序本身是有错的，第一个数被吞掉了，如果要显示，还得改动其他地方还保留升序的

VB随机产生10个任意的两位正整数存放在一维数组中答：Picture1.Print "数组按从大到小排序:"For i = 1 To 10 Picture1.Print b(i);Next End Sub Private Sub Command5_Click()Dim x%, p%, i x = Val(InputBox("输入要插入的数据:"))p = 1 Do While x > a(p) And p <= 10 p = p + 1 Loop For i = 10 To p Step -1 ...

VB这样在数组中添加新数据?答：1、数组自己可以定义成不定大小的，也就是可以修改上限的，记住要设置成可以保留原数据的那种 2、将数组的上限增加一个，原来有n个元素，现在修改为n+1 3、将需要插入位置及以后位置的数据用另外的数组保存 4、将需要插入的数据赋值给原来数组对应的位置，然后将保存的数据重新赋值回来（3和4步，...

大家正在搜

vb输入五个数从小到大排序一排数字从小到大排列 vb三个数从小到大排序 vb中求三个数从小到大 vb数组从小到大排序把数字从小到大排列数量单位从小到大排列 1到9从小到大排列 1到5从小到大排列