vb程序編寫（數組）

Private?Sub?Command1_Click()

Dim?i%,?m%,?j%,?s%,?u%

Dim?a?As?Variant

a?=?Array(23,?4,?14,?5,?57,?85,?43,?24,?78,?54)

u?=?UBound(a)

m?=?Val(InputBox("Input?a?number"))

For?i?=?1?To?u

If?a(i)?=?m?Then

If?i?=?u?Then

u?=?u?-?1

i?=?i?-?1

ReDim?Preserve?a(u)

Exit?For

End?If

u?=?u?-?1

For?j?=?i?To?u

a(j)?=?a(j?+?1)

Next

Exit?For

End?If

Next

If?i?>?u?Then

s?=?Val(InputBox("沒有這個數，妳想讓它成為第幾個數？"))

u?=?u?+?1

ReDim?Preserve?a(u)

For?i?=?u?-?1?To?s?Step?-1

a(i?+?1)?=?a(i)

Next

a(s)?=?m

End?If

For?i?=?1?To?u

Print?a(i);

Next