求一vb编程,编写一个数组,将一个数据系列最后一个元素移动到第一个位置,其余元素依次后移
发布网友
发布时间:2022-04-23 05:44
我来回答
共3个回答
热心网友
时间:2022-04-23 07:13
把最后一个放到一个临时变量,然后运用循环将倒数第二个赋给倒数第一个,倒数第三个赋给倒数第二个,。。。。。,最后把临时变量赋给第一个元素。如果要我给出源码来就没意思了。
热心网友
时间:2022-04-23 08:31
Private Sub Form_Load()
'创建一个数组
Dim a(9) As Integer
'初始化数组
Dim i As Integer
For i = 0 To UBound(a)
a(i) = i + 1
Next
'插入操作
Dim temp1 As Integer, temp2 As Integer '定义2个临时变量
temp1 = a(UBound(a)) '临时变量1初始值设置为最后一个值
For i = 0 To UBound(a)
temp2 = a(i)
a(i) = temp1
temp1 = temp2
Next
'测试结果
Dim str As String
str = ""
For i = 0 To UBound(a)
str = str & "第" & i + 1 & "项: " & a(i) & vbCrLf
Next
Debug.Print str
End Sub
热心网友
时间:2022-04-23 10:06
Private Sub Command1_Click()
Dim a(10) As Integer
Dim i As Integer
Dim temp As Integer
For i = 1 To 10
a(i) = i
Print i;
Next i
Print
temp = a(1)
For i = 1 To 9
a(i) = a(i + 1)
Print a(i);
Next i
a(10) = temp
Print a(10)
End Sub
如果需要换成自己的数据,则需要把a(i)=i修改,例如a(i)=InputBox("请输入数据:"),就可以了。
求一vb编程,编写一个数组,将一个数据系列最后一个元素移动到第一个...
'创建一个数组Dim a(9) As Integer'初始化数组Dim i As IntegerFor i = 0 To UBound(a)a(i) = i + 1Next'插入操作Dim temp1 As Integer, temp2 As Integer '定义2个临时变量temp1 = a(UBound(a)) '临时变量1初始值设置为最后一个值For i = 0 To UBound(a) temp2 = a(i) a(i) = temp...
vb 将一个数据系列最后一个元素移动到第一个位置其他元素依次移动
Private Function ReSort(ByVal strExp As String, intR As Integer)Dim str As String str = strExp ReSort = Right(str, intR) & Mid(str, 1, Len(str) - intR)End Function Private Sub Command1_Click()Debug.Print ReSort("2 8 3 5 4 7", 1)End Sub ...
...大数组元素,并将最大数组元素与数组最后一个元素交
如图所示,望采纳。。。
VB 如何“干掉”一维数组的最后一个元素。
redim preserve mArr(1 to 4)前提是在指定这个数组是,应该是可变的,如 dim mArr(), 而不能是 mArr(1 to 5)
vb编程 一维数组中删除一个元素,动态数组,哪里出错了
很多地方都出错了。第一个循环之前a()没有redim,循环中用a(i)的话必然出错 第二循环之前的redim a(1 to n)中的n没有赋值,默认为0,那么实际上就是redim a(1 to 0),出错 其他的错误跟这个两个主要的有关。
vba中:如何将一个数组的一串元素复制给另外一个数组
ReDim arrB(2 To 1000000) '注意这行已经清空了上面的赋值 T = GetTickCount CopyMemory arrB(2), arrA(2), LenB(arrA(1)) * 999999 MsgBox "用时" + Str$(GetTickCount - T) + "毫秒"'我的机子用时10毫秒左右 '看看最后一个数据对不对 MsgBox arrB(1000000)End Sub ...
VB编程 将一维数组中10个元素向左循环移n位 怎么改
L=lbound(vArray) 'L为数组下限 for j=1 to n vTmp=vArray(L) '记录第一个元素 for i=L to U-1 vArray(i)=vArray(i+1) '每一个单元都COPY第i+1个单元 next i vArray(U)=vTmp '将第一个元素赋值到最后一个数组单元 next j end sub 这个函数(过程)的优点是可读性比较好,但...
求助在VB中编写一个删除数组中的重复元素程序!
a(1) = 2 a(2) = 1 a(3) = 1 a(4) = 2 Dim b() As String b = RemoveSameItemFromArray(a, "*")Debug.Print b(0); b(1)End Sub Function RemoveSameItemFromArray(arr() As String, sep As String) As String()Dim temp As String Dim a() As String For I = 0 To ...
VB 将多维数组a(1 to m,1 to n)中的元素转移到名为b(1 to n*m)的一 ...
To m,1 To n)中的元素是这样的,一个行列式 a(1,1)a(1,2)a(1,3)a(1,4)……a(1,n)a(2,1)a(2,2)a(2,3)a(2,4)……a(2,n)a(3,1)a(3,2)a(3,3)a(3,4)……a(3,n)……a(m,1)a(m,2)a(m,3)a(m,4)……a(m,n)总共有m*n个元素,转换成一维数组,就...
vb代码中,如何在一组排好序的数组中插入一个数,并按着原来的顺序排列...
rem //num =要插入的数据 rem //numindex =要插入的位置 rem //source_array(),原始队列 rem //source_array_count=原始队列数据数量 dim abc(source_array_count+1) as integer '新建队列 dim i as integer '将后面的数据复制到新队列 for i= source_array_count to numindex step -1 ...