学过if,select case 语句。
题目为:
将一个数组中的元素逆序排列,即第一个元素和最后一个元素交换,第二个元素与倒数第二个元素交换以此类推,最终结果显示在窗体的Label控件中。元素交换时利用第一个临时变量保存元素值。
原数组为:9,6,7,2,3,5
逆序后数组为:5,3,2,7,6,9
用应该是用redim preserve ,split函数完成的。
学过if,select case 语句。
题目为:
将一个数组中的元素逆序排列,即第一个元素和最后一个元素交换,第二个元素与倒数第二个元素交换以此类推,最终结果显示在窗体的Label控件中。元素交换时利用第一个临时变量保存元素值。
原数组为:9,6,7,2,3,5
逆序后数组为:5,3,2,7,6,9
用应该是用redim preserve ,split函数完成的。
如果按你的程序修改 如下
Dim num1 As String = "9,6,7,2,3,5"
Dim a = num1.Split(",")
Dim num2 As String
num2 = a(5) & "," & a(4) & "," & a(3) & "," & a(2) & "," & a(1) & "," & a(0)
Me.Label1.Text = num1
Me.Label2.Text = num2
End Sub
以为你用定的累计+ 多点就多加在一起了 直接赋值就OK