【单选题】要求生产10个随机整致,存放在数组arr中。从键盘输入要删除的数组元素的下标,将该元素中的数据删除,后面元素中的数据依次前移,并显示删除后剩余的数据。现有如下程序: Option Base 1 Privare Sub Command1 Click( ) Dim arr(10)As Integer For i=1To 10循环1 Arr(i),=Int(Rnd*100) Print arr(i); ...
【简答题】要求产生10个随机整数,存放在数组Arr中,从键盘输入要删除的数组元素的下标,将该元素中的数据删除,后面元素中的数据依次前移,并显示删除后剩余的数据,现有如下程序: Option base 1 Private Sub Command1_Click() Dim arr(10)as integer For i=1 to 10 ‘循环1 Arr(i)=int(rnd*100) Print arr(i) ...
【单选题】要求产生10个随机整数,存放在数组arr中。从键盘输入要删除的数组元素的下标,将该元素中的数组删除,后面元素中的数据依次前移,并显示删除后剩余的数据。现有如下程序: Option Base 1 Private Sub Command1_Click() Dim arr(10) As Integer For i=1 To 10 ‘循环1 arr(i)=Int(Rnd*100) P...
【单选题】要求产生10个随机整数,存放在数组arr中,从键盘输入要删除的数组元素的下标,将该元素中的数值删除,后面元素中的数据依次前移,并显示删除后剩余的数据,现有如下程序: Option Base 1 Private Sub Command1_Click() Dim arr(10) As Integer For i = 1 To 10 '循环1 arr(i) = Int(Rnd * 100...