更多"设有一个有10个元素的数组，下列程序将该数组的第1个元素与第10个元素"的相关试题:
[填空题]设有一个有10个元素的数组，下列程序将该数组的第1个元素与第10个元素交换，第2个元素与第9个元素交换……，第5个元素与第6个元素交换，请填空。
Private Sub Command1_Click（ ）
Dim a(1 To 10)As Integer
Dim i As Integer
Dim p As Integer
Dim t As Integer
Dim j As Integer
For i=1 To 10
a(i)=i
Next i
For j=1 To 5
t=a(j)
______
______
Next j
For i=1 To 10
Print a(i)
Next i
End Sub
[填空题]设有一个10个元素的数组，下列程序将该数组的第一个元素与第十个元素交换，第二个元素与第九个元素交换……，第五个元素与第六个元素交换，请补充完该程序。
Private Sub Commnd1_Click（ ）
Dim a(1 To 10)As Integer
Dim i As Integer
Dim p As Integer
Dim t As Integer
Dim j As Integer
For i=1 To 10
a(i)=i
Next i
For j=1 To 5
【9】
【10】
【11】
Next j
For i=1 To 10
Print a(i)
Next i
End Sub
[填空题]下面程序用“冒泡”法将数组a中的10个整数按升序排列，算法是：从数组的第1个元素开始，依次将相邻的两个数相比较(第1个数与第2个数，第2个数与第3个数……如此重复)，若前面的数较大，则这两个数交换位置。这样执行一遍后，最后一个数已经是数组中最大的数。然后将数组的前n-1个数重复上述过程。如此继续，可将数组排序，请将程序补充完整。
Option Base 1
Private Sub Command1_Click（ ）
Dim a（ ）
a=Array(678，45，324，528，439，387，87，875，273，823)
Fori＝ 【10】
Forj= 【11】
If a(j) 【12】 a(j+1)Then
a1=a(j)
a(j)＝a(j+1)
a(j+1)=al
End lf
Nextj
Next i
For i＝1 To 10
Print a(i)
Next i
End Sub
[填空题]设有一个二维数组A[1…4，1…6]，若数组的起始地址为200，并且数据元素以行序为主序存放在数组中，每个元素占用4个存储单元，那么元素A[3，4]的存储地址为______。
[填空题]设有一个二维数组A[1…6，1…4]，若数组的起始地址为200，并且数据元素以行序为主序存放在数组中，每个元素占用4个存储单元，那么元素A[3，4]的存储地址为______。
[单项选择]以下子例行程序用于实现向一维数组下标为P的数组元素处插入一个整数XSUBROUTINEINSERT（B，N，P，X）INTEGER**B（N），X，PD020K=N-1，P，-1B（K+1）=（）20CONTINUEB（P）=XEND为使程序完整，应在（）处放入（）。
A. X
B. K
C. B（P）
D. B（K）
[单项选择]以下子例行程序用于实现向一维数组下标为P的数组元素处插入一个整数X
SUBROUTINE INSERT(B,N,P,X)
INTEGER B(N),X,P
DO 20 K=N-1,P,-1
B(K+1)=______
20 CONTINUE
B(P)=X
END
为使程序完整，应在______处放入（）。
A. X
B. K
C. B(P)
D. B(K)
[填空题]以下程序的功能是：用Array函数建立一个含有8个元素的数组，然后查找并输出该数组中各元素的最小值。请填空。
Option Base 1
Private Sub Commandl_Click（ ）
Dimarrl
DimMin As Integer,i As Integer
arrl=Array(12，435，76，-24，78，54，866，43)
Min= [11]
Fori=2 To 8
If arrl(i)＜Min Then [12]
Nexti
Print"最小值是:";Min
End Sub
[填空题]下面的程序代码实现将一个一维数组中元素向右循环移动，移动次数由文本框Text1输入。例如数组各元素的值依次为0，1，2，3，4，5，6，7，8，9，10；移动三次后，各元素的值依次为8，9，10，0，1，2，3，4，5，6，7。
Private Sub MoveRight(x（ ）As Integer)
Dim i As Integer
Dim j As Integer
Dim k As Integer
i＝UBound(x)
j＝x(i)
For k＝i To 【9】 Step—1
【10】
Next k
x(LBound(x))＝j
End Sub
Private Sub Command1_Click（ ）
Dim a(10) As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i＝0 To 10
a(i)＝i
Next i
j＝Val(Text1.Text)
k=0
Do
k＝k+1
Call MoveRight(a)
Loop Until k＝j
For i=0 To 10
Print a(i);
Next i
End Sub
[填空题]下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框Text1输入。例如数组各元素的值依次为0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10; 移动三次后，各元素的值依次为 8, 9, 10, 0, 1,2 3,4,5,6,7。
Private Sub MoveRight (x（ ） As Integer)
Dim i As Integer
Dim j As Integer
Dim k As Integer
i = UBound (x)
j = x(i)
For k = i To 【7】 Step -1
【8】
Next k
x(LBeund(x)) = j
End Sub
Private Sub Command1_click（ ）
Dim a(10) As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
For i = 0 To 10
a(i) = i
Next i
j = Val(Text1. Text)
k=0
Do
k=k+1
Call MoveRight(a)
Loop Until k = j
For i = 0 To 10
Print a(i);
Next i
End Sub
[简答题]本题程序首先给一个数组赋值，然后计算该数组中下标为奇数的元素的和。请将下述程序补充完整(注意：不得改动程序的结构，不得增行或删行)。
public class basic
public static void main (String args[])
int sum;
______;
int arrayList[] = new int[20];
for(int i = 0; i ＜= 19; i ++)
arrayList[i] = i + i;
int pos = 0;
while(pos ＜ 20)
if(______)
sum = sum + arrayList[pos];
______;
System.out.println("sum ="+ sum);
[填空题]本题定义了一个长度为10的boolean型数组，并给数组元素赋值，要求如果数组元素下标为奇数，则数组元素值为false，否则为true。
public class java1
public static void main(String[] args)
boolean b[]=______;
for(int i=0; i＜10; i++)
if(______)
b[i]=false;
else
______;
for(int i=0; i＜10; i++)
System. out. print("b["+i+"]="+b[i]+",");
[填空题]下列程序的功能是：单击窗体时随机生成20个两位数依次赋值给一个由20个元素组成的数组，然后把数组反序存放，再输出。
Option Base 1
Private Sub Form Click（ ）
Dim a(20)As Integer，i As Integer
Dim t As Integer，j As Integer
Randomize
For i=1 To 20
a=10+Int(90*Rnd)
Print a(i)；
Next
Print
i=1: 【4】
Do While i＜j
t=a(i): 【5】 a(j)=t
i=i+1: j=j-1
Loop
For i=1 To 20
Print a(i);
Next i
Print
End Sub
[填空题]下列程序的功能是：单击窗体时将随机生成20个两位数依次赋值给一个由20个元素组成的数组，然后把数组反序存放，再输出。
Option Base 1
Private Sub Form_Click（ ）
Dim a(20) As Integer,i As Integer
Dim t As Integer,j As Integer
Randomize
For i=1 To 20
a(i)=10+Int(90*Rnd)
Print a(i)；
Next i
Print
i=1： 【9】
Do While i＜j
t=a(i)： 【10】 ：a(i)=t
i=i+1：j=j-1
Loop
For i=1 To 20
Print a(i)；
Next i
Print
End Sub
[填空题]下列程序将二维数组a的行和列元素互换后存放到另一个二维数组b中。请填空。
main（ ）
int a[2][3]=1,2,3,4,5,b[3][2],i,j;
for(i=0;i＜2;i++)
for(j=0;j＜3;j++)
______,
