首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序的功能是:从键盘输入若干个自然数,输入-1则结束输入,然后计算平均值输出(因事先不知道执行时会输入多少个数,定义一个动态数组存放这些数)。 Private Sub Command1_Click() Dim a() As Integer
下面程序的功能是:从键盘输入若干个自然数,输入-1则结束输入,然后计算平均值输出(因事先不知道执行时会输入多少个数,定义一个动态数组存放这些数)。 Private Sub Command1_Click() Dim a() As Integer
admin
2019-03-14
63
问题
下面程序的功能是:从键盘输入若干个自然数,输入-1则结束输入,然后计算平均值输出(因事先不知道执行时会输入多少个数,定义一个动态数组存放这些数)。
Private Sub Command1_Click()
Dim a() As Integer
n = 0
Do
x = InputBox("请输入一个自然数,输入-1结束")
If x <> -1 Then
n = n + 1
___________
a(n) = x
End If
Loop Until x = -1
For k = 1 To n
s = s + a(k)
Next
Print s / n
End Sub
以上程序不完整,应在横线处填写的是
选项
A、ReDim a(n)
B、ReDim Preserve a(n)
C、ReDim a
D、ReDim a()
答案
B
解析
这是求输入数据平均数的程序。 Dim a() As Integer为动态数组,其数组元素均为整型,在过程中用Redim语句来定义带下标的数组,格式ReDim 变量(下标) AS 类型名称,这里空白处就是要用ReDim语句定义,这一语句用来重新分配数组,按照定义的下标上、下界重新分配存储单元。当重新分配动态数组时,数组中的内容将被清除,如果ReDim中使用了Preserve选择项,则不清除数组内容。对于题目中,每次执行循环体,将输入数据赋值给数组,需要保留上次执行的数组数据,故需要使用Preserve选项,B项正确。
转载请注明原文地址:https://kaotiyun.com/show/bBUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
语句DimArr(-2To4)AsInteger所定义的数组的元素个数为
语句Dima(-3To4,3To6)AsInteger定义的数组的元素个数是
窗体上有名称为Commandl的命令按钮,其事件过程如下:OptionBase1PrivateSubCommand1.Click()DimaDimb(10)AsIntegera=Array(2,4,7,3,9,6)Fori=LB
设有如下一段程序:PrivateSubCommand1_Click()StaticaAsVailanta=Array(“one”,“two”,“three”,“four”,“five”)Printa(3)EndSub针对上述事件
用户在组合框中输入或选择的数据可以通过一个属性获得,这个属性是()。
下列关于线性链表的描述中,正确的是()。I、只含有一个指针域来存放下一个元素地址Ⅱ、指针域中的指针用于指向该结点的前一个或后一个结点(即前件或后件)Ⅲ、结点由两部分组成:数据域和指针域。
为了通过传值方-式v来传送过程参数,在函数声明部分应使用的关键字为
在数据管理技术发展的三个阶段中,数据共享最好的是
某系统总体结构图如下图所示:该系统总体结构图的深度是
在软件开发中,需求分析阶段产生的主要文档是()。
随机试题
纺织印染厂与服装加工厂联合属于【】发展战略。
尿中β2微球蛋白增多而血中不增高,这种蛋白尿属于
甲乙双方订立的商品房买卖合同中约定:“乙将自己开发建设的某公寓A座第10层住房出售给甲,2010年11月8日交付房屋”。2010年9月27日,甲发现该公寓A座仅盖到第2层。根据合同法规定,()。
四大佛教名山是()。
审核引进的国外电子出版物时,为避免出现严重政治问题,特别要注意寻找和审核()文件。
你是新提拔的年轻领导干部,所分管的科室负责人中,既有你的老师,也有你的师兄,还有大学时代的同学。他们有时在你面前摆资格。对此,你会怎样处理呢?
2007年6月与2006年同期相比,网民数增加了:下列说法正确的是:
一小偷藏匿于某商场,三名保安甲、乙、丙分头行动搜查商场的100家商铺。已知甲检查过80家,乙检查过70家,丙检查过60家,则三人都检查过的商铺至少有()家。
Asthesemesterisdrawingtoanend,thestudentunioniscallingonitsyouthto_____thetemptationtocheatonexams.
性情
最新回复
(
0
)