VB程式編寫 某陣列有元素,元素的值由鍵盤輸入,要求將前元素與後元素對換。高分懸賞

時間 2021-07-21 03:33:35

1樓:匿名使用者

private sub command1_click()dim str as string

dim arr(1 to 20) as stringfor i = 20 to 1 step -1arr(i) = inputbox("請輸入第 " & (21 - i) & "個數")

str = str & arr(i) & " "

next

print "交換前: " & vbcrlf & strprint "交換後: "

for i = 1 to ubound(arr)print arr(i) & " ";

next

end sub

2樓:匿名使用者

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

for i = 1 to 20

a(i) = val(inputbox("請你輸入第" & i & "個數"))

next i

print "交換前的數為"

for i = 1 to 20

print a(i);

if i mod 10 = 0 then printnext i

for i = 1 to 10

b = a(i): a(i) = a(21 - i): a(21 - i) = b

next i

print "交換後的數為"

for i = 1 to 20

print a(i);

if i mod 10 = 0 then printnext i

end sub

private sub form_load()me.autoredraw = true

end sub

3樓:匿名使用者

dyeb @@@cfsx 19d si

4樓:古龍珈藍玉

vb程式設計的輸入編寫的時候要注意寫作速度,元素,v的輸入

vb程式設計:某陣列中有10個元素,元素的值由鍵盤輸入,要求將前5個元素與後5個元素對換,

5樓:良陣

dim a() as integer 』原來的陣列dim b() as integer '換後的陣列dim i as integer

for i=0 to 4

b(i)=a(9-i)

b(9-i)=a(i)

next i

你要怎麼樣輸入輸出資料?是一個一個輸,輸10次還是一個textbox中輸入10個數中間用空格隔開

輸出,是在另一個textbox中顯示還是msgbox彈出來顯示

6樓:匿名使用者

private sub command1_click()dim a(1 to 10) as integerdim i as integer, tmp as integerfor i = 1 to 10

a(i) = inputbox("input number")print a(i);

next

print

for i = 6 to 10

tmp = a(i - 5)

a(i - 5) = a(i)

a(i) = tmp

next

for i = 1 to 10

print a(i);

next

7樓:匿名使用者

直接伸手啊,把你會的**拿出來,我幫你發言

(1/2)用vb程式程式設計:從鍵盤上輸入10個整數,並放入一個一維陣列中,然後將其前5個元素與後5個元素對換... 40

8樓:司寇忻

private sub command1_click()

dim tmp as string, tmp1 as string, a() as string

me.cls

tmp = text1.text

if not isnumeric(tmp) then goto outerr

a = split(tmp, ",")

if ubound(a) <> 9 then msgbox "請輸入十個整數!", vbinformation, "提示": exit sub

for i = 0 to 4

tmp1 = a(i)

a(i) = a(9 - i)

a(9 - i) = tmp1

next i

for i = 0 to 9

if int(val(a(i))) = val(a(i)) then

me.print a(i) & ",";

else

me.print a(i) & "(不是整數)";

end if

next i

exit sub

outerr:

a = split(tmp, ",")

for i = 0 to ubound(a)

if not isnumeric(a(i)) then me.print vbcrlf & a(i) & "不是整數"

next i

end sub

private sub text1_change()

dim a() as string

a = split(text1.text, ",")

if a(ubound(a)) <> "" then label1.caption = "共輸入:" & ubound(a) + 1 & "個數"

end sub

9樓:櫻雪殤

option base 1

private sub form_click()dim a%(10)

for i = 1 to 10

a(i) = inputbox("輸入第" & i & "個元素值:")

print a(i);

next i

print

for i = 1 to 5

temp = a(i): a(i) = a(11 - i): a(11 - i) = temp

next i

for i = 1 to 10

print a(i);

next i

end sub

用vb編寫求元素的一維陣列A,使用INPUTBOX函式賦值,輸出最小元素的值及其下標

尤在尤存 一樓有問題.dim a 19 as double for i 0 to 19 a i inputbox 請輸入一個數 next dim min1 as double 記錄最小值dim min2 as integer 記錄下標min1 a 0 min2 0 要賦初值for i 1 to 19...

c程式 將陣列的所以元素列印出來

劉培鑫 你的陣列是string型別嗎,是的話 如下 string str new string foreach string sss in str for int i 0 i 注 array是int float string 等基本型別的陣列.如果是自定義型別則輸出type.tostring 引入一...

vb用氣泡排序法實現對陣列中含有元素隨機

這個要動態演示排序過程麼?還是直接顯示排序的結果? private sub command1 click dim a 1 to 10 i j,s as integerrandomize for i 1 to 10 隨機10個產生1 100的整數 a i int rnd 100 1next i for...