求助数组交换
vb吧
全部回复
仅看楼主
level 3
青空迟逢 楼主
新人真什么都不会[泪]
求大佬帮帮忙
2021年06月18日 23点06分 1
level 11
余思培
你先想一下，如果现实需要你调换一串系着的20个物品，你要怎么调换？然后用VB实现就可以了
2021年06月19日 00点06分 2
青空迟逢
现实换物品知道 但是用代码我不会啊[泪]
2021年06月19日 00点06分
余思培
@青空迟逢 例如：现实你是不是也要先取(读取)前面/后面下来，先放在(保存在)桌上(临时变量)，然后再从后面对应位置取下来，直接系在前面位置，再把桌上的系在后面的位置上。这个操作要按顺序/不按顺序(不按顺序在此处不适合，但部分情况需要考虑不按顺序的情况)执行10次
2021年06月19日 01点06分
余思培
@青空迟逢 然后你把这个翻译成VB语言，如楼下
2021年06月19日 01点06分
level 11
余思培
'已知数组dwTarget()
'准备桌子(临时变量)
Dim t&, i&
'按顺序交换
For i = 1 to 10
　　'前序取
　　t = dwTarget(i)
　　'后序取并存前序
　　dwTarget(i) = dwTarget(21 - i)
　　'存后序
　　dwTarget(21 - i) = t
Next
2021年06月19日 01点06分 3
level 1
四月常青🌿
先这样然后那样
2021年06月19日 04点06分 4
璐村惂鐢ㄦ埛_0748V5Z馃惥
这个回答比较经典
2021年06月19日 10点06分
level 6
zhngheng4321
2021年06月19日 04点06分 5
level 10
涐吢铱舊囿儚
说个简单的方法，楼主参考一下。
[滑稽]
假设是数组 arrData()有20个元素，类型为Integer；
　元素下标是0到19，各个元素已经输入数据并赋值完成了。
按题意要求“对换值”，其实是把元素值“倒序”。
处理代码如下：
dim arrBuff() as Integer
dim i as Integer
arrBuff() = arrData()
for i=0 to 19
arrdata(i) = arrbuff(19-i)
next
2021年06月19日 05点06分 6
level 11
余思培
说个简单的方法，从前往后入栈，从前往后出栈，或者从前往后入队，从后往前出队[你懂的][滑稽]
2021年06月19日 05点06分 7
青空迟逢
我真的是个新手 代码我都不认识 出栈就更难了[泪]
2021年06月19日 06点06分
1