vb交换数组

算法：有几种数就有几趟，和冒泡法有点类似 每趟从最后的元素开始，找到和当前数相同的元素时，计数k加一 如果不同则把数右移k位 一直循环到当前数字的后面一个元素 把i+1到i+k元素的值设为arr(i)然后外层计数加k+1，从下一种数开始 Private Sub Command1_Click()Dim arr arr = Split(Tex...

a(j)=min和a(j) = a(imin)是等价的，因为事实上min和a(imin)的值在那一个时刻是一样的。但是min=t和a(imin) = t是不等价的，因为前一个改变的是min的值，后一个改变的是a(imin)的值。这就好像小明和小强以前身高都是160cm，那么表示162cm的时候可以说：小明的身高+2cm，也可以说小强...

从键盘里读入10个数 for i = 1 to 10 input data( i );next i for i = 1 to 5 tmp = data( i )data( i ) = data( 10 - i + 1 )data( 10 - i + 1 ) = tmp next i for i = 1 to 10 print data( i ),next i 输入一个5*5方阵 for i = 1 to 5 for j = ...

Private Sub Command1_Click()Dim A(4, 4)'数组赋值Print "交换前："For i = 1 To 4For j = 1 To 4A(i, j) = (i - 1) * 4 + j'数组显示Print A(i, j),NextPrintNext'交换数组的第二列和第四列For j = 1 To 4t = A(2, j)A(2, j) = A(4, j)A(4, j) = ...

下面是交换代码，A是数组，Dim A(10) AS Long Dim I as Long Dim N as Long For I=1 to 10 A(I)=Input("请输入整数")Next I For I=1 to 5 N=A(11-I)A(11-I)=A(I)A(I)=N Next I

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个元素，转换成一维数组，就...

Private Sub Command1_Click() '生成6个两位数并显示 Label2.Caption = ""Dim i As Integer For i = 0 To 5 Randomize arr(i) = Int(Rnd * (99 - 10 + 1)) + 10 If Label2.Caption = "" Then Label2.Caption = arr(i)Else Label2.Caption = Label2.Caption & " " & arr...

Label1.Caption = ""Randomize (Timer)For i = LBound(intArray) To UBound(intArray)10 intArray(i) = Int(Rnd(i) * 9000 + 1000)For j = LBound(intArray) To i - 1 If intArray(i) = intArray(j) Then GoTo 10 Next j Next i For i = LBound(intArray) To UBound(in...

Dim myArray(10) As Integer '定义一个长度为11的一维数组用来存放10个随机的整形数据 Dim nI As Integer '定义一个循环变量nI For nI=1 to 10 myArray (nI)=Int((80-10)*Rnd()+10)Next Dim max,min As Integer '定义max,min分别记入最大值和最小值的位置 For nI =1 to 9...

Private Sub Command1_Click()Dim a(10) As Integer Randomize Print "原来的数："For i = 1 To 10 a(i) = Int(Rnd * 20) + 1 Print a(i);Next i Print Print "交换以后的数："i = 1: j = 10 Do While i < j t = a(i): a(i) = a(j): a(j) = t i = i + ...