某数组有20个元素,分别为1,2,…,20,现在将其第一个元素移到末尾,形成2,3,…,20,1

vb编程实现数组元素的移动。求vb程序设计。

只给出核心代码

for i=1 to 19 do
  t=a[i]
  a[i]=a[i+1]
  a[i+1]=t
next i

就这样试试

温馨提示:内容为网友见解,仅供参考
无其他回答

某数组有20个元素,分别为1,2,…,20,现在将其第一个元素移到末尾,形成...
for i=1 to 19 do t=a[i] a[i]=a[i+1] a[i+1]=tnext i就这样试试

有一个20元素整型数组a,输入其各个元素的值,找出所有元素的最小值并将...
写了一段fortran程序。供参考。附:运行示例和fortran代码

VB题:定义一个具有20个元素的一维数组,并对其随机赋值,然后求出其中...
Dim A(1 To 20) As Single, Sum As Single, Str As String Sum = 0: Str = ""For i = 1 To 20 Randomize A(i) = Int(100 * Rnd + 1)Str = Str & Format(CStr(A(i)), "@@@")If A(i) Mod 2 <> 0 Then Sum = Sum + A(i)Str = Str & " 奇数"End If Str ...

抽屉原理
抽屉原理的一般含义为:“如果每个抽屉代表一个集合,每一个苹果就可以代表一个元素,假如有n+1或多于n+1个元素放到n个集合中去,其中必定至少有一个集合里至少有两个元素。” 抽屉原理有时也被称为鸽巢原理(“如果有五个鸽子笼,养鸽人养了6只鸽子,那么当鸽子飞回笼中后,至少有一个笼子中装有2只鸽子”)。它...

...设一个整型数组有20个元素,请输入该数组中的元素,...
for(int i=0;i<20;i++){ printf("输入第%d个元素\\n",(i+1));scanf("%d",&num[i]);} for(int i=0;i<20;i++)for(int j=0;j<20-i;j++){ if(num[j]>num[j+1]){t=num[j];num[j]=num[j+1];num[j+1]=t;} } for(int i=0;i<20;i++)printf("%d ",num[...

将20个数放在一个数组中,求这20个数的最大值、最小值、和、平均值(C语...
include <stdio.h>#define N 20\/\/求最大值函数int max_func(int a[],int n){int i,max;for(max=a[0],i=1;i<N;i++) \/\/初始默认最大值为a[0],遍历数组元素if(max<a[i]) \/\/如果当前最大值<当前数组元素,则将该元素赋值给maxmax=a[i];return max;}\/\/求最小值函数int ...

编写程序,设定一个数组包含20个元素,接下来任意输入10个数,先用选择...
return -1;else return i;} int main(){ int a[20];int b;\/\/用来保存第11个数。printf("please input the array a:\\n");for(int i=0;i<10;i++)scanf("%d",&a[i]);sort(a,10);for(i=0;i<10;i++)printf("%d\\t",a[i]);printf("please input another number:\\n");sc...

...生成20个1-100之间的随机整数并存入一个一维数组,求出其中的最大元 ...
For i = 1 To 20 a(i) = Int(100 * Rnd) + 1 st = st & Str(a(i))If i Mod 10 = 0 Then st = st & vbCrLf Next i Text1 = st max = a(1): min = a(1)maxp = 1: minp = 1 For i = 2 To 20 If a(i) > max Then max = a(i)maxp = i ElseIf a(...

...放在数组A中,然后将A的元素倒序存放,即第一个变为最后
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 + ...

有一个20*20的数组,初值为0;现在要将20个非0数放在数组的任意20个位置...
define NUMS 20 \/* 二维数组中非零元素个数1~400均可 *\/ define LINES 20 define COLS 20 void create_rand_index(int index[], int num){ int index_box[LINES * COLS];int index_nums = LINES * COLS;int randindex;int i, t;assert(num <= RAND_MAX);assert(num <= index_...

相似回答
大家正在搜