更多"下列程序的功能是：把一维数组a的元素，每5个元素赋值给二维数组b的每一"的相关试题:
[填空题]下列程序的功能是：把一维数组a的元素，每5个元素赋值给二维数组b的每一行。
Private SubCommand1_Click（ ）
Dim a(25)As Integer，b(5，5)As Integer
For i=1 To 【10】
a(i)=Int(Rnd*25)
Print a(i)；
Next i
Print
For i=1 To 5
For i=1 To 5
b(i，j)= 【11】
Print b(i，j)；
Next j
Print
Next i
End Sub
[填空题]执行命令DIMENSION M(4，5)后，如果以一维数组的形式访问该二维数组，则一维数组元素M(7)与二维数组元素 【7】 为同一个变量。
[单项选择]以下子例行程序用于实现向一维数组下标为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)
[填空题]下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框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
[填空题]
下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框Text输入。例如数组各元素的值依次为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 (6) Step-1
(7)
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 【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
[填空题]下面程序中函数fun的功能是：找出一维数组元素中的最大值和它所在的下标，并将最大值和其下标通过形参传回。数组元素中的值已在主函数中赋予。主函数中x是数组名，n是x中的数据个数，max存放最大值，index存放最大值所在元素的下标。请填空。
#include ＜stdlib．h＞
#include ＜sldio．h＞
void fun(int a[]，int n， int * max，int *d)
int i；
*max=a[0]； *d=0；
for(i=0； 【15】 ；i++)
if(*max＜ 【16】 )
*max=a[i]；*d=i;
main（ ）
int i， x[20]， max， index， n=10；
randomize（ ）；
for(i=0；i＜n；i++)
x[i]=rand（ ）%50；printf("%4d"，x[i])；
printf("/n")；
fun(x，n，&max．&index)；
printf("Max=%5d，Index=%4d/n"，max，index)；
[填空题]编写一个程序把一维数组的各元素反序存放。在主过程中调用subl过程把从键盘上输入的10个元素反序存放后再输出。根据题意，请完善下列程序。
Private Sub subl(b（ ）As Integer, ByVal n As Integer)
Dim i As Integer, j As Integer, t As Integer
【13】
j=n
Do While i＜j
t=b(i):b(i)=b(j):b(j)=t
i=i+1:j=j-1
Loop
End Sub
Private Sub Command1_Click（ ）
Dim a(1 To 10)As Integer, i As Integer
Randomize
For i=1 To 10
a(i)=Int(100*RnD) +1
Next i
For i= 【14】
Print a(i);
Next i
Print
Call 【15】
For i=i To 10
Print a(i);
Next i
Print n
End Sub
[填空题]以下程序的功能是：将一维数组A中的100个元素分别赋给二维数组B的每个元素并打印出来，要求把A(1)到A(10)依次赋给B(1,1)到B(1,10)，把A(11)到A(20)依次赋给B(2,1)到B(2,10)，……，把A(91)到A(100)依次赋给B(10,1)到B(10,10)。请填空。
Option Base 1
Private Sub Form_Click（ ）
Dim i As Integer,j As Integer
Dim A(1 To 100)As Integer
Dim B(1 To 10,1 To 10)As Integer
For i=1 To 100
A(i)=Int(Rnd*100)
Next i
For i=1 To (9)
For j=1 To 10
B(i,j)= (10)
Print B(i,j)；
Next j
Print
Next i
End Sub
