下列程序的功能是:单击窗体时将随机生成20个两位数依次赋值给一个由20个元素组成的数组 然后把数组反
下列程序的功能是:单击窗体时将随机生成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:【 】 Do While i<j t=a(i):【 】:a(i)=t i=i+1:j=j-1 Loop For i=1 To 20 Print a(i); Next i Print End Sub
请帮忙给出正确答案和分析,谢谢!
参考解答
正确答案:j=20 a(i)=a(j)
数组逆序存放其实就是把数组的第一个元素和最后一个元素交换,第二个元素和倒数第二个元素交换,直到所有的元素都交换完毕。算法可描述如下:用变量i记下第一个元数的下标1,用变量i记下最后一个数的下标20;交换a[i和a[j;i加1指向后一个元素,j减1指向前一个元素:重复上述步骤,直到i≥j为止。[9处应填给j赋最后一个元素的下标,为“j=20”。[10处是a(i)和a(j)交换的一条语句,应填“a(i)=a(j)”。
相似问题
为命令按钮的Picture属性装入了一个图片 但却发现图片没有显示出来 要使图片显示出来 应设置它的
为命令按钮的Picture属性装入了一个图片,但却发现图片没有显示出来,要使图片显示出来,应设置它的【 】属性。请帮忙给出正确答案和分析,谢谢!
下列程序实现的功能是:当在窗体上单击时 将随机产生100个3位数 并把它们写到D盘根目录下的文件my
下列程序实现的功能是:当在窗体上单击时,将随机产生100个3位数,并把它们写到D盘根目录下的文件myfile1.Dat中。 Private Sub Form_Click() Dim k
以下程序的功能是单击Command1按钮 将输出1~100之间的所有同构数。同构数是指该数出现在它的
以下程序的功能是单击Command1按钮,将输出1~100之间的所有同构数。同构数是指该数出现在它的平方数的右边,如52=25、252=625。 Private Sub Command
在窗体上建立名称为了ext1 Text2和Text3的三个文本框 其中Text1和Text2文本框用
在窗体上建立名称为了ext1、Text2和Text3的三个文本框,其中Text1和Text2文本框用来接受两个整数(假设为M和N),建立一个名称为Command1的命令按钮,单击
下列程序的功能是:单击窗体时将求出随机生成的10个两位数中的最大数及其下标 请填空。 Option
下列程序的功能是:单击窗体时将求出随机生成的10个两位数中的最大数及其下标,请填空。 Option Base 1 Private Sub Form_Click() Dim a(10) As
