求一道VB題目急求

時間 2022-01-15 06:15:14

1樓:匿名使用者

按照你的意思,相當於把陣列按正序和反序分別輸出。編寫程式如下:

dim a(1 to 20) as integer,i as integer

for i=1 to 20

a(i)=inputbox("請輸入第"+str(i)+"個數:")next i

for i=1 to 20

print a(i);

next i

print

for i=20 to 1 step -1print a(i);

next i

print

2樓:匿名使用者

private sub form_click()dim a(1 to 20)

for i = 1 to 20

a(i) = val(inputbox(""))next i

print "原來的陣列是:"

for i = 1 to 20

print a(i);

next i

for i = 0 to 9

t = a(i + 1): a(i + 1) = a(20 - i): a(20 - i) = t

next i

print

print "調換後的陣列是:"

for i = 1 to 20

print a(i);

next i

end sub

你怎麼問兩遍???

3樓:該使用者忘記取暱稱了

先用個迴圈

for i=1 to 10

temp=a(i) 'temp為臨時變數,需要自己定義的a(i)=a(20-i+1)

a(20-i+1)=temp

next

然後print a(1 to 20)

4樓:匿名使用者

太難了 估計等我博士畢業才能解決

5樓:匿名使用者

影子老爺的回答完全正確

求1道小學VB程式設計題目謝謝,急求!一道VB程式設計題 謝謝!

private sub form click dim i j s i 1,j 0 do while s 2000 j i j s s j i i 1 loop print n i print s s end sub 有點不記得了 大概是這樣的 你自己除錯一下哈!private sub form cl...

急求!一道VB程式設計題謝謝,10道VB題 急求答案!!!謝謝高手了

private sub procmin a as integer,byval amin as integer dim i amin0 for i lbound a to ubound a print a i amin0 a lbound a if a i amin0 then amin a i ne...

求解一道VB題目,一道vb題目求解。

由圖上 經執行所得值如下 a 3,2 的值是 1,a 1,2 的值是9,a 2,3 的值是 7.如下圖所示 我只能看懂vb vb的除錯那些不太熟。我用c語言寫了乙個一樣的程式,把每一步的計算過程輸出出來了,你看一下。下面是c語言的 有興趣你可以自己去執行一下看看。include int main 宣...