首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序的功能是:从键盘输入若干个自然数,输入-1则结束输入,然后计算平均值输出(因事先不知道执行时会输入多少个数,定义一个动态数组存放这些数)。 Private Sub Command1_Click() Dim a() As Integer
下面程序的功能是:从键盘输入若干个自然数,输入-1则结束输入,然后计算平均值输出(因事先不知道执行时会输入多少个数,定义一个动态数组存放这些数)。 Private Sub Command1_Click() Dim a() As Integer
admin
2015-06-30
65
问题
下面程序的功能是:从键盘输入若干个自然数,输入-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/HgQp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
下列事件过程的功能是:建立一个名为Datal的随机文件,存放角度值及这些角度的正弦函数值和余弦函数值,角度为1,2,3,…,90。请在空白处填上合适的代码,将程序补充完整。PrivateTypeAngKAsInteger
表达式"12345"<>"12345"&"ABC"的值是______。
设当前日期为2007年12月27日,星期四,则执行下面语句后的输出结果为______。PrintDay(Now)PrintMonth(Now)PrintYear(Now)PrintWeekday(Now)
关于结构化程序设计原则和方法的描述错误的是()。
在VisualBasic中可以建立【】菜单和【】菜单。
若要求在文本框中输入密码时文本框中只显示#号,则应在此文本框的属性窗口中设置()
以下控件中不是标准控件的是()
设通用对话框控件的名称为CD1,希望在打开文件对话框中的“文件类型”列表中包含:所有文件、Word文档和文本文件这3类文件,在程序中设置Filter属性时正确的是
以下关于变量作用域的叙述中,正确的是
下列表达式有错误,正确的写法应该是【】。[(a+B)+c]/80-5÷(d+e)
随机试题
《政府采购代理机构资格认定办法》规定,政府采购代理机构的认定分为()两种方式。
易地安家补助费属于()
资金供应条件不包括( )。
委托人在拍卖活动中享有的权利有()。
华科公司是一家中型规模的管理咨询公司,主要为客户提供财务、生产、工程、管理方面的咨询,咨询方案的质量需要由项目经理和职能经理共同控制。根据以上信息可以判断,该公司可能的企业文化类型是()。
中国儿童性教育的第一个难题,恐怕不是编一本让14亿人皆满意的教材,亦不是在基础教育中怎么开课怎么考核的制度,而是让一帮没有经受过正规性教育的家长们,以及着保守遗风的舆论,摘下成年人的有色眼镜,________科学性教育的大方和直白。填入画横线部分最恰当的
将四个不同的小球放入编号为1,2,3,4的四个盒子中,恰好有一个盒子没有球的不同放法有()种.
设f(x)是连续函数。求初值问题的解,其中a>0.
TheInternetisanexcellentsourceforfindingmanytypesofinformationandforkeepingupwithnewdevelopmentsintheworld.
Youareasecretaryinacorporation.Nowyouaresupposedtowritealettertoarawmaterialsupplierrequiringfordetailedi
最新回复
(
0
)