首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
要求产生10个随机整数,存放在数组arr中。从键盘输入要删除的数组元素的下标,将 该元素中的数据删除,后面元素中的数据依次前移,并显示删除后剩余的数据。现有如 下程序: Option Base 1 Private Sub C
要求产生10个随机整数,存放在数组arr中。从键盘输入要删除的数组元素的下标,将 该元素中的数据删除,后面元素中的数据依次前移,并显示删除后剩余的数据。现有如 下程序: Option Base 1 Private Sub C
admin
2012-05-23
101
问题
要求产生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全国计算机二级
相关试题推荐
有如下事件过程: PrivateSubCommand1_Click() b=10 DoUntilb=-1 a=InputBox("请输入a的值") a=Val(A)b=InputBox("请输入b的值") b=Val(B)a=a*
一些重要的程序语言(如C语言和Pascal语言)允许过程的递归调用。而实现递归调用中的存储分配通常用
设有如下程序:PrivateSubCommand1_Click()DimsumAsDouble,xAsDoublesum=0n=0Fori=1To5x=n/in
窗体的MouseDown事件过程 Form_MouseDown(Button As Integer,Shift As Integer,X As SinSle,Y As Single)有4个参数,关于这些参数,正确的描述是
下列有关数据库的描述,正确的是
语句print"25+32=";25+32的输出结果是【】。
以下控件可以用来实现定时地执行某段代码的是_______。
软件设计包括软件的结构、数据接口和过程设计,其中软件的过程设计是指
以下关系表达式中,其值为假的是:_______。
随机试题
下列选项中,不属于关系冲突的原因的是()
________withthesizeofthewholeearth,thehighestmountaindoesnotseemhighatall.
甲状腺合成T3、T4过程中摄取和活化的元素是
某职工,竞争意识强,总想胜过他人;老觉时间不够用,说话快、走路快;脾气暴躁,容易激动;常与他人意见不一致。其行为类型属于
某企业采用分期收款方式销售商品,2008年1月份发出商品2000件,每件售价100元,销售成本率75%,增值税税率17%,合同约定分7次付款,产品发出时付款40%,以后6个月每月1日付款10%,该企业1月份应结转的主营业务成本为()元。
操作系统为用户提供了多种接口,它们是()。Ⅰ.计算机高级指令;Ⅱ.终端命令;Ⅲ.图标菜单;Ⅳ.汇编语言;Ⅴ.C语言;Ⅵ.系统调用;
数据结构包括数据的逻辑结构、数据的【】以及对数据的操作运算。
执行下面的程序段后,变量S的值为【】。S=5Fori=2.6To4.9Step0.6S=S+1Nexti。
RetirementBringsMostaBigHealthBoostTheself-reportedhealthofthenewlyretiredimprovessomuchthatmostfeeleig
Youknowyouhavetoread"betweenthelines"togetthemostoutofanything.Iwanttopersuadeyoutodosomethingequallyim
最新回复
(
0
)