2. 计算机
  3. 要求产生10个随机整数,存放在数组arr中。从键盘输入要删除的数组元素的下标,将 该元素中的数据删除,后面元素中的数据依次前移,并显示删除后剩余的数据。现有如 下程序: Option Base 1 Private Sub C

要求产生10个随机整数,存放在数组arr中。从键盘输入要删除的数组元素的下标,将 该元素中的数据删除,后面元素中的数据依次前移,并显示删除后剩余的数据。现有如 下程序: Option Base 1 Private Sub C

admin2012-05-23  45
问题 要求产生10个随机整数,存放在数组arr中。从键盘输入要删除的数组元素的下标,将
    该元素中的数据删除,后面元素中的数据依次前移,并显示删除后剩余的数据。现有如
    下程序:
    Option Base 1
    Private Sub Command1_Click()
    Dim arr(10)AS Integer
    For i=l To 10     ′循环1
    arr(i)=Int(Rnd*100)
    Printarr(i);
    Next
    X=InputBox(“输入1-10的一个整数:”)
    For i=x+1 To 10    ′循环2
    arr(i-1)=arr(i)
    Next
    For i=l TO 10    ′循环3
    Print arr(i);
    Next
    End Sub
    程序运行后发现显示的结果不正确。应该进行的修改是
选项 A、产生随机数时不使用Int函数
B、循环2的初值应为i=x
C、数组定义改为Dim a(11)As Integer
D、循环3的循环终值应改为9
答案D
解析 本题中由于数组默认下界从1开始,因此数组的定义语句没有问题;在循环l中向数组中存放随机数;循环2完成数组元素的前移;由于数组元素的前移,造成了arr(9)=arr(10)的情况,由于在数组中删除元素后,数组的长度应该减少为9,故此循环3应该只循环9次。
转载请注明原文地址:https://kaotiyun.com/show/TPhp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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