2. 计算机
  3. 编写一个程序把一维数组的各元素反序存放。在主过程中调用subl过程把从键盘上输入的10个元素反序存放后再输出。根据题意，请完善下列程序。 Private Sub subl(b()As Integer, ByVal n As Integer) Dim i A

编写一个程序把一维数组的各元素反序存放。在主过程中调用subl过程把从键盘上输入的10个元素反序存放后再输出。根据题意，请完善下列程序。 Private Sub subl(b()As Integer, ByVal n As Integer) Dim i A

admin2010-09-11  34
问题 编写一个程序把一维数组的各元素反序存放。在主过程中调用subl过程把从键盘上输入的10个元素反序存放后再输出。根据题意，请完善下列程序。
Private Sub subl(b()As Integer, ByVal n As Integer)
Dim i As Integer, j As Integer, t As Integer
【  】
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=【  】
Print a(i);
Next i
Print
Call【  】
For i=i To 10
Print a(i);
Next i
Print n
End Sub
选项
答案i＝1 ,1 To 10 ,Subl(a, 10)
解析 首先可用两个变量i和j来表示要交换    的数组元素下标，一开始显然是i=1、j=n；然后交换a(i)和a(j)的值；交换之后，i的值应加1变成下一个元素的下标，j的值减1变成前一个元素的下标，冉交换它们的值……直到i的值等于或大于j的值为止。
转载请注明原文地址:https://kaotiyun.com/show/ARmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)