1樓：網海1書生
（1）text2中的內容是由手工輸入還是由電腦隨機生成？
（2）插入的位置如何界定？比如輸入1，是插入第一個元素的前面還是後面？
vb這樣在陣列中新增新資料？
2樓：匿名使用者
沒有好方法，只能用迴圈把插入點以後的所有元素後移一個，然後在插入點寫入新增的資料。
3樓：
給你一個方法，但是**來不及幫你寫了
1、陣列自己可以定義成不定大小的，也就是可以修改上限的，記住要設定成可以保留原資料的那種
2、將陣列的上限增加一個，原來有n個元素，現在修改為n+13、將需要插入位置及以後位置的資料用另外的陣列儲存4、將需要插入的資料賦值給原來陣列對應的位置，然後將儲存的資料重新賦值回來
（3和4步，可以不用新的陣列實現：將第n個資料賦值到第n+1個，第n-1個資料賦值到第n個、第n-2個資料賦值到第n-1個，依次類推，直到所有需要轉移的資料全部操作完畢既可）
vb中怎樣將新添元素加入陣列
4樓：想請教你們哈
例如陣列1到7位置存有數，要插入元素到陣列第5個位置，先把第7個，第6個，第5個依次後移1個位置，然後把要新添的元素賦到陣列第5個位置。
5樓：匿名使用者
使用vb的動態陣列：
dim d() as integer
dim n as integer
n=2redim d(n) as integer '元素下標增加到2
n = 100
redim d(n) as integer '元素下標增加到100
注意：用關鍵字preserve可以在擴大陣列規模的同時，保持原來陣列元素的資料不變！！！
n=2redim d(n) as integer '元素下標增加到2
d(0)=0:d(1)=1:d(2)=2
n = 100
redim d(n) as integer '元素下標增加到100
這樣，原來d(0)d(1)d(2)裡資料為0了
如果用redim preserve d(n) as integer
這樣，原來d(0)d(1)d(2)裡資料保持不變
vb編寫程式在一個已按升序排好的陣列中插入插入一個從鍵盤上輸入的數使程式仍
6樓：紅山人
你是焦挺嗎？朋友。很敬佩！
陣列元素的插入 vb
7樓：匿名使用者
redim preserve a(11)
a(11)=rnd
r=rnd
for i =1 to 10
if r>a(i) then
for k=10 downto i+1 doa(k+1)=a(k)
a(i+1)=r
vb怎麼在一個升序陣列中插入一個資料？
8樓：匿名使用者
修改一下吧。連看到都看不到麼？
9樓：己曼寒
陣列元素個數增加1
迴圈整個陣列元素 和這個要插入的陣列對比 如果 新資料大於原來的 則繼續和下一個原來的資料進行對比 如果新資料小於的話就將該原資料 包括後面的資料向後移動一位 然後插入新資料
在vb中如何在一個二維陣列中插入一整行資料？？？？
10樓：匿名使用者
dim a()
private sub command1_click()redim a(1 to 4, 1 to 4)print "插入前的陣列"
for j = 1 to 4
for i = 1 to 4
a(i, j) = i + j * 4
print tab(4 * i); a(i, j);
next i
next j
redim preserve a(1 to 4, 1 to 5)for j = 5 to 4 step -1for i = 1 to 4
a(i, j) = a(i, j - 1)next i
next j
for i = 1 to 4
randomize
a(i, 3) = int(rnd * 90) + 10next i
print "插入後的陣列"
for j = 1 to 5
for i = 1 to 4
print tab(4 * i); a(i, j);
next i
next j
end sub
VB在textbox中輸出陣列，VB給陣列賦值後如何在文字框Text裡輸出
private sub form load dim a 1 to 1000 as integer 在text的屬性欄設定這2個屬性 text1.scrollbars 2 vertical text1.multiline truetext1.text for i 1 to 1000 a i i tex...
vb怎麼用陣列記錄y座標，VB怎麼用陣列記錄x,y座標
更直接的方法 不用自定義型別,通過節點號來讀寫座標dim bs 1 to 25 as single i as long for i 1 to 25 bs i 第 i 個節點的x座標 h7fff 第 i 個節點的y座標 記錄座標，第 i 個節點的x和y座標你自己改 next i 下面公式是讀取座標的 ...
求VB陣列問題
在general中定義 dim a 10,10 as integer,b 10,10 as integer 設定 框picture1的autoredraw屬性為true,text1的mutiline屬性為true.private sub form activate 如果a已有值,則省略以下5行 fo...