怎么样才能把第1个数和最后一个交换

Question

在一个数组中,怎么样才能把第一个数和最后一个数换个位置.把第二个数和倒数第2个数换个位置...
怎么解决啊,谢谢

Answer 1

如果知道数组的个数的话
for i=0 to int(n/2)
a(i)=temp
a(i)=a(n-i)
a(n-i)=temp
next i

Answer 2

是不是把a(i)的值给temp
把a(n-1)的值给a(i)
然后把a(n-i0的值给temp啊

Answer 3

我现在决定,在100内随机生成15个数组,可是运行的时候说不对,代码如下
Private Sub Form_Load()
   Dim a(15) As Integer, i As Integer, x As Integer
   Randomize
   For i = 1 To 15
      a(i) = Int(100 * Rnd) + 1
      a(i) = Text.Text1
   Next i
End Sub
我找不出有什么错误的地方吗

Answer 4

晕了,倒数第3句是text1.text=a(i)
运行是可以了,但是它只输出一个数,我要15个,怎么回事啊

Answer 5

Private Sub Form_Load()
   Dim a(15) As Integer, i As Integer, x As Integer, temp As Integer
   Randomize
   For i = 1 To 15
      a(i) = Int(100 * Rnd + 1)
      Text1.Text = a(i)
      Next i
   For x = 0 To Int(7)
       a(i) = temp
       a(i) = a(15 - i)
       a(15 - i) = temp
   Next x
End Sub现在又说什么下标越界,我该怎么办啊

Answer 6

楼主不号意思
我写错了
不是a(i)=temp
是temp=a(i)才对你还是做在command cilk 里面号观察一点Private Sub Form_Load()
   Dim a(15) As Integer, i As Integer, x As Integer, temp As Integer
   Randomize
   For i = 0To 15
      a(i) = Int(100 * Rnd + 1)
      Text1.Text = a(i)
      Next i
  
 For x = 0 To Int(7)
        temp=a(x)
       a(x)= a(15 - x)
       a(15 - x)= temp
   Next x
End Sub
你刚才x的循环用了i了

Answer 7

例如数组为array（）
dim n as interger
dim m as intergere
dim i as interger
dim temp as string 
n=ubound(array)+1
m =int(n/2)
for i = 0 to m
   temp=array(i)
   array(i )=array(n-i-1)
   array(n-i-1)=temp
next i

Answer 8

Private Sub Form_Load()
   Dim a(15) As Integer, i As Integer, x As Integer, temp As Integer
   Randomize
   For i = 0To 15
      a(i) = Int(100 * Rnd + 1)
      Text1.Text = Text1.Text & " " & a(i)
      Next i
  
 For x = 0 To Int(7)
        temp=a(x)
       a(x)= a(15 - x)
       a(15 - x)= temp
   Next x For i = 0 To 15
    
      Text2.Text = Text2.Text & " " & a(i)
      Next iEnd Sub你多加一个text2吧 这样方便观察点

Answer 9

现在是15位了,可是最后一位它不调换啊,怎么办
 Dim a(15) As Integer, i As Integer, x As Integer, temp As Integer
   Randomize
   For i = 1 To 15
      a(i) = Int(100 * Rnd + 1)
      Text1.Text = Text1.Text & " " & a(i)
      Next i
  
 For x = 1 To Int(7)
        temp = a(x)
       a(x) = a(15 - x)
       a(15 - x) = temp
   Next x For i = 1 To 15
    
      Text2.Text = Text2.Text & " " & a(i)
      Next i

Answer 10

Private Sub Form_Load()
   Dim a(14) As Integer, i As Integer, x As Integer, temp As Integer
   Randomize
   For i = 0 To 14
      a(i) = Int(100 * Rnd + 1)
      Text1.Text = Text1.Text & " " & a(i)
      Next i
  
 For x =0 To 6
        temp=a(x)
       a(x)= a(14 - x)
       a(14 - x)= temp
   Next x For i = 0 To 14
    
      Text2.Text = Text2.Text & " " & a(i)
      Next iEnd Sub

Answer 11

都可以 但是vb的数组是从a(0)开始的 所以 我还是比较喜欢对齐 
我刚才也没有留意这个
QQ：25408974  可惜我上班是不能上的 ：（