求一vb程式設計,編寫陣列,將資料系列最後元素移動到位置,其餘元素依次後移

2021-05-04 00:33:55 字數 1132 閱讀 3447

1樓:

把最後一個放到一個臨時變數,然後運用迴圈將倒數第二個賦給倒數第一個,倒數第三個賦給倒數第二個,。。。。。,最後把臨時變數賦給第一個元素。如果要我給出原始碼來就沒意思了。

2樓:匿名使用者

private sub form_load()'建立一個陣列

dim a(9) as integer

'初始化陣列

dim i as integer

for i = 0 to ubound(a)a(i) = i + 1

next

'插入操作

dim temp1 as integer, temp2 as integer '定義2個臨時變數

temp1 = a(ubound(a)) '臨時變數1初始值設定為最後一個值

for i = 0 to ubound(a)temp2 = a(i)

a(i) = temp1

temp1 = temp2

next

'測試結果

dim str as string

str = ""

for i = 0 to ubound(a)str = str & "第" & i + 1 & "項: " & a(i) & vbcrlf

next

debug.print str

end sub

3樓:手機使用者

private sub command1_click()dim a(10) as integer

dim i as integer

dim temp as integer

for i = 1 to 10

a(i) = i

print i;

next i

print

temp = a(1)

for i = 1 to 9

a(i) = a(i + 1)

print a(i);

next i

a(10) = temp

print a(10)

end sub

如果需要換成自己的資料,則需要把a(i)=i修改,例如a(i)=inputbox("請輸入資料:"),就可以了。

數字加密VB程式設計,VB中如何編寫一個加密程式

在窗體上有兩個控制元件,command1和text1 程式執行時在文字框中輸入四位數字,如果不是四位提示請輸入四位。如下 private sub command1 click dim a 4 as integer dim i as integer if len 4 then 如果輸入的不是四位數要求...

C語言程式設計 陣列的逆序輸出,求c語言大師,將一個陣列逆序輸出。

從最後一個元素,逆向遍歷到陣列的0元素,逐一輸出即可實現。1 建立陣列 2 輸入值 3 逆序遍歷輸出陣列。int main 擴充套件資料 將一個陣列逆序輸出。1 程式分析 用第一個與最後一個交換。2 程式源 define n 5 main i,temp printf original array f...

VB程式設計九九乘法表編寫,求高手解答,非常感謝

private sub form click for i 1 to 9 for j 1 to i print j i i j if j 2 and i 3 or i 4 thenprint end if next j print next i end sub 我下面給你的這個 是包括正三角列印乘法表...