首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
下面程序的功能是:从键盘输入若干个自然数,输入-1则结束输入,然后计算平均值输出(因事先不知道执行时会输入多少个数,定义一个动态数组存放这些数)。 Private Sub Command1_Click() Dim a() As Integer
下面程序的功能是:从键盘输入若干个自然数,输入-1则结束输入,然后计算平均值输出(因事先不知道执行时会输入多少个数,定义一个动态数组存放这些数)。 Private Sub Command1_Click() Dim a() As Integer
admin
2015-06-30
34
问题
下面程序的功能是:从键盘输入若干个自然数,输入-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://jikaoti.com/ti/S260FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为了使命令按钮(名称为Command1)右移200,应使用的语句是
某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签,计时器的属性设置为Enabled=True,Interval=0,并编程如下。希望在程序运行时,可以每2秒在标签上显示一次系统当前时间。PrivateSubTimer
已知代数式eXSin(30°)2x/(x+y)Lnx,则正确的VisualBasic表达式为()。
类是一个支持集成的抽象数据类型,而对象是类的【】。
若要求在文本框中输入密码时文本框中只显示#号,则应在此文本框的属性窗口中设置()
从键盘上输入两个字符串,分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是
执行下列程序后,变量a的值为()DimiAsIntegerDimaAsIntegera=0Fori=lTo100Step2a=a+lNexti
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下错误的叙述是______。
下列可作为VisualBasic变量名的是______。
随机试题
有关慢性缩窄性心包炎的治疗,下列叙述哪项正确
下列关于肾的生理功能的描述不妥的是
A.塑料基托与人工牙胶接不良B.前牙覆过深,咬合过紧C.铸件内部有缺陷D.弯制过程中在同一部位反复修改E.龈距离过低可摘局部义齿铸造支架折断的常见原因是
对未成年人罪犯应当宣告缓刑的情形是:
根据《企业国有资产交易监督管理办法》的规定,下列关于国家出资企业公开增资的表述中,正确的有()。
外贸企业从小规模纳税人购进持普通发票的货物,一律不允许办理退税。()
小王参加了某公司招工面试,不久,他得知以下消息:①公司已决定,他与小陈至少录用一人;②公司可能不录用他;③公司一定录用他;④公司已录用小陈。其中两条消息为真,两条消息为假。如果上述断定为真,则以下哪项为真?()
(2015年杭州师范大学333)请分析颜元的“习行”,并举例说明。
EtonCollegeisafamous______.
A、Whyhumanscry.B、Howtorelieveourselves.C、Howanimalscry.D、Whenpeoplecry.A主旨题。议论文需注意首句话,此文章第一句“Whydowecry?”就点明了主题:
最新回复
(
0
)