搜题
问题详情
要求产生10个随机整数，存放在数组Arr中，从键盘输入要删除的数组元素的下标，将该元素中的数据删除
要求产生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);
Next
X=inputbox(“输入1-10的一个整数：”)
For i=x+1 to 10 ‘循环2
Arr(i-1)=arr(i)
Next
For i=1 to 10 ‘循环3
Print arr(i);
Next
End Sub
程序运行后发现显示的结果不正确，应该进行的修改是
A)产生随机数时不使用int函数
B)循环2的初始值应为i-x
C)数组定义改为Dim a(11)as integer
D)循环3的循环终值应改为9
未搜索到的试题可在搜索页快速提交，您可在会员中心"提交的题"快速查看答案。
收藏该题
查看答案
搜题
相关问题推荐
严禁在1个采煤工作面使用2台发爆器同时进行爆破
1、正确2、错误
有如下程序：Private type stu X as string Y as integerEnd typePrivate Sub Command1_Click（)
D有如下程序：
Private type stu
X as string
Y as integer
End type
Private Sub Command1_Click()
Dim a as stu
a.x=”ABCD”
a.Y=12345
print a
End Sub
程序运行时出现错误，错误的原因是
A)Type定义语句没有放在标准模块中
B)变量声明语句有错
C)赋值语句不对
D)输出语句print不对
井下采煤工作面的爆破都必须使用防爆型发爆器
1、正确2、错误佩带过滤式自救器时如果呼吸的气体温度升高，说明巷道空气里含有毒的一氧化碳。
1、正确2、错误爆破落煤后煤体中的瓦斯将大部分由吸附状态转变为游离状态
1、正确2、错误