1樓：匿名使用者
很容易實現！！
var n as integer
m=a(1）
for i =1 to 9
n=a(i)
a(i)=a(i+1)
a(i+1)=n
next
..........
下面是我在電子**中進行的測試：
dim a(10) as integer
sub yu()
for i = 1 to 10
a(i) = i
cells(i, 1) = a(i)
next
dim n as integer
for i = 1 to 9
n = a(i)
a(i) = a(i + 1)
a(i + 1) = n
next
for i = 1 to 10
cells(i, 3) = a(i)
next
end sub
測試結果：
測試前 測試後
1 2
2 3
3 4
4 5
5 6
6 7
7 8
8 9
9 10
10 1
****************************************
您的問題==我的課題 奉獻知識==輝煌生命黑龍江省 張志晨
****************************************
vb程式設計 將一維陣列中10個元素向左迴圈移n位 怎麼改
2樓：匿名使用者
迴圈移位的關鍵要素，首先就是將迴圈的次數n模掉陣列的長度，即：求出真實的迴圈移位的次數為：n mod (ubound - lbound + 1)，減少無用功！
然後一個o(n)迴圈搞定就是了
3樓：匿名使用者
dim varray(0 to 100) '假如這是你要移動的陣列'呼叫這個函式（過程）可以迴圈位移n位。
private sub arraymleft(byval n as long)
dim i as long, j as longdim u as long, l as longdim vtemp
u=ubound(varray) 'u為陣列上限l=lbound(varray) 'l為陣列下限for j=1 to n
vtmp=varray(l) '記錄第一個元素for i=l to u-1
varray(i)=varray(i+1) '每一個單元都copy第i+1個單元
next i
varray(u)=vtmp '將第一個元素賦值到最後一個陣列單元next j
end sub
這個函式（過程）的優點是可讀性比較好，但缺點是效率較低，希望能理解這裡的意思，根據實際具體情況改進一下，讓它只迴圈一次即可獲得最終結果。
編一vb程式，將一堆陣列中的元素向左迴圈移位，移位次數由鍵盤輸入
求一vb程式設計，編寫一個陣列，將一個資料系列最後一個元素移動到第一個位置，其餘元素依次後移
4樓：
把最後一個放到一個臨時變數，然後運用迴圈將倒數第二個賦給倒數第一個，倒數第三個賦給倒數第二個，。。。。。，最後把臨時變數賦給第一個元素。如果要我給出原始碼來就沒意思了。
5樓：匿名使用者
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
vb程式設計 將一維陣列中10個元素向右迴圈移n位
6樓：匿名使用者
打比方你陣列有二十個資料a(20)··你要把前面10個一道後面10個··
private sub form_click()dim i as integer,n as integern=10
for i = 1 to n
a(i+10)=a(i)
next i
end sub
7樓：
我還沒弄懂 抱歉幫不上忙
編一程式，將一維陣列中元素向右迴圈移位，移位次數鍵盤輸入。
8樓：陽光上的橋
這樣的程式很好編寫，你以後讓人寫程式的時侯指明語言，因為許多語言有現成的這類函式，比如php和perl都有，核心部分無需程式設計的，就是寫個輸入/輸出。
補充：完蛋的是我沒有vb的環境可以除錯，寫出的程式可能沒辦法執行，今天晚上我下個教程看看，明天給你吧。
編寫一個移一個元素的函式，需要移動多個的時侯多次呼叫這個函式即可:
sub shift_left()
dim temp i
temp=a(1)
for i=2 to 10
a(i-1)=a(i)
next i
a(10)=temp
end sub
9樓：槍鋒戰士
具體的思路是定義一個跟陣列元素相同的變數temp。temp=a(10),a(10)=a(9),......a(1)=a(0),a(0)=temp。如此一次就是迴圈移動一次。
將一個10個元素的陣列迴圈右移一位，若原陣列中「1,2,3,4,5,6,7,8,9,10」，迴圈右移一位後「10,1,2，3,
10樓：
看起來是吧每一個值連線成一個字元竄了，不用管它。a()陣列中已經是換位過後的值。
11樓：聽不清啊
text1 = text1&str(a(k))就是把a(k)變為字串再連線到text1的後面。因為原先text1沒有賦過值，所以就是把所有的a(1)..a(10)前後連線起來。
a(1) = t
因為t就是原來的a(10)，經過
for k=10 to 2 step -1a(k) = a(k-1)
next
原來的a(1)..a(9)現已移動到a(2)..a(10)，到此，已經完成了「將一個10個元素的陣列迴圈右移一位」，最後，
for k = 1 to 10
text2 = text2&str(a(k))就是就是把迴圈後的a(1)..a(10)前後連線起來變為字串連線到text2中。
vb編寫程式計算分段函式，VB編寫程式，計算分段函式
在窗體上放一個命令按鈕，將 複製到窗體裡，程式執行單擊一次命令按鈕可輸入一次n的值 如下 private sub command1 click dim n,y as single n inputbox 請輸入n的值 select case n case is 0 y 2 n 5 case 0 y 0...
輸入33的陣列,編寫程式實現,使用二維陣列程式設計實現,鍵盤輸入九9個整數,按33的矩陣輸出,並分別求出
分數有點高,不做都不行。include stdio.h void main void printf 對角線元素權和 d n sum1 printf 對角線上行 列下標均為偶數的各元素的積 d n sum2 printf 對角線上其值最大的元素值 d 行 d,列 d n max,k,k 輸入3 3的陣...
如何用vb編寫程式判斷數是完全平方數
思路 1 判斷值是否copy大於等於0 2 開平方這個數 3 判斷開平方後取整和開平方後的數是否相等,如果相等是完全平方數,否則不是 例子 dim a,b for a 1 to 100 if a 0 then b sqr a if int b b then 完全平方數 else 不是完全平方數 en...