编写一个程序把一维数组的各元素反序存放。在主过程中调用subl过程把从键盘上输入的10个元素反序存放

大学专科 已帮助: 时间:2023-07-23 00:19:25

编写一个程序把一维数组的各元素反序存放。在主过程中调用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
请帮忙给出正确答案和分析,谢谢!

难度:⭐⭐⭐

题库:大学专科,电子信息,计算机类

标签:题意,元素,程序

参考解答

用户头像

4jj***265

2023-07-23 00:19:25

正确答案:i=1 1 To 10 Subl(a 10)
首先可用两个变量i和j来表示要交换的数组元素下标,一开始显然是i=1、j=n;然后交换a(i)和a(j)的值;交换之后,i的值应加1变成下一个元素的下标,j的值减1变成前一个元素的下标,冉交换它们的值……直到i的值等于或大于j的值为止。

上一篇 以下程序的功能是:求x的y次方。根据题意 请完善下列程序。 Private Function fun

下一篇 若有一个动态数组a有两个元素a(0)和a(1) 现要令数组a有三个元素a(0) a(1)和a(2)

相似问题