![[填空题] 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Option Base 1Private Sub Command1,第1张 [填空题] 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Option Base 1Private Sub Command1,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E5%9C%A8%E7%AA%97%E4%BD%93%E4%B8%8A%E7%94%BB%E4%B8%80%E4%B8%AA%E5%90%8D%E7%A7%B0%E4%B8%BACommand1%E7%9A%84%E5%91%BD%E4%BB%A4%E6%8C%89%E9%92%AE%EF%BC%8C%E7%84%B6%E5%90%8E%E7%BC%96%E5%86%99%E5%A6%82%E4%B8%8B%E7%A8%8B%E5%BA%8F%EF%BC%9AOption+Base+1Private+Sub+Command1.png)
[填空题] 在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:
Option base 1
Private Sub Command1_Click()
Dim a(10)As Integer
For i=1 To 10
a(i)=i
Next
Call swap( 【13】 )
For i=1 To 10
Print a(i);
Next
End Sub
Sub swap(b()As Integer)
n= 【14】
For i=1 To n/2
t=b(i)
b(i)=b(n)
b(n)=t
【15】
Next
End Sub
上述程序的功能是,通过调用过程swap,调换数组中数值的存放位置,即a(1)与a(10)的值互换,
a(2)与a(9)的值互换,……,a(5)与a(6)的值互换。请填空。
正确答案:【13】 a【14】 10【15】n=n-1
参考解析:[评析] Option base语句在模块级别中使用,用来声明数组下标的起始值(缺省值为0)。子过程利用语句加以调用,使子过程成为一个独立的语句,其形式为:子过程名[参数列表]或Call子过程名[参数列表]。题目要求将数组中的10个数逆序存放,也就是首尾两两交换,循环次数应为5次,在交换了a(1)与a(10),应将n的值减1,再将a(2)与a(9)进行交换,依此类推。
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)