首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
现有程序如下: Option Base 1 Private Sub Form_Click() Dim x(5,6)As Integer,y(5)As Integer For i=1 To 5
现有程序如下: Option Base 1 Private Sub Form_Click() Dim x(5,6)As Integer,y(5)As Integer For i=1 To 5
admin
2020-04-18
79
问题
现有程序如下:
Option Base 1
Private Sub Form_Click()
Dim x(5,6)As Integer,y(5)As Integer
For i=1 To 5
For j=1 To 6
x(i,j)=Int(Rnd*9+1)
Nextj
Next i
Call f(5,6,x,y)
For i=1 To 5
Print y(i);
Next i
End Sub
Sub f(m As Integer,n As Integer,a() As Integer,b() As Integer)
For i=1 To m
b(i)=0
Forj=1 To n
b(i)=b(i)+a(i,j)
Nextj
Next i
End Sub
关于上述程序,以下叙述中正确的是
选项
A、调用过程语句有错,参数不匹配
B、程序有错,数组下标越界
C、y数组中保存的是x数组每行数据之和
D、x数组中数据的取值范围是1-10
答案
C
解析
本题中子过程f的四个形参分别为整型、整型、整型数组和整型数组,在窗体的单击事件中调用过程f,四个实参和四个形参可以匹配,调用语句没有错误;在二重循环中为二维数组的每个元素赋值,数组下界从1开始,因此不会越界:在二重循环中为数组x的元素赋值为0~9之间的值:在过程f中用一个二重循环以此计算x数组每行数据之和放在y数组中。
转载请注明原文地址:https://kaotiyun.com/show/wMTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
如果在框架中画了2个复选框,且框架的Enabled属性被设置为False,2个复选框的Enabled属性被设置为True,则下面叙述中正确的是( )。
(1)在考生文件夹下有一个工程文件sjt3.vbp,其功能是:1)单击“读数据”按钮,则把考生文件夹下in3.dat文件中的100个按升序排列的整数读入到数组a中,同时显示在Text1文本框中;2)单击“查找”按钮,则提示用户输入查找的数,并利用
下列叙述中正确的是( )。
要求当鼠标在图片框Picturel中移动时,立即在图片中显示鼠标的位置坐标。下面能正确实现上述功能的事件过程是()。
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“显示数据”按钮,则将考生文件夹下in5.dat文件的内容读入一维数组a中,并按下标顺序将数组a各元素的值显示在List1列表框中;单击“移动"按钮,则将数组a中的最大值移动到数组的最前面,其他
以下关于文件的叙述中,错误的是
已知AS="Welcome",下列语句操作能够正确执行的是()。
设a="VisualBasic",下面语句中可使b="Basic"的是()。
语句PrintFormat(Int(12345.6789*100+0.5)/100,"0000,0.00")的输出结果是()。
建立表示学生选修课程活动的实体联系模型,其中的两个实体分别是()。
随机试题
测量准确度、测量正确度和测量精密度之间有什么区别?如何正确应用这些术语?
求由曲线,y=x2所围平面图形分别绕x轴、y轴旋转的体积Vx及Vy.
进行感染性腹泻监测时应选择的疾病频率测量的指标是
A.胎方位B.胎先露C.骨盆轴D.胎姿势E.胎产式胎体纵轴与母体纵轴的关系
近中基牙向缺隙侧倾斜所划出的观测线是
勘察合同履行中,为了保证勘察工作顺利开展,下列准备工作中不属于发包人的工作是()。
一般来说,当CPI增幅大于()时,称为通货膨胀,我们也通常把它作为通货膨胀的预警线。[2009年11月二级、三级真题]
公安机关的人民警察既是维护社会治安的排头兵,也是服务群众的贴心人。2017年5月,离开大陆几十年的华侨严老先生携子女回到家乡寻亲,并准备在家乡投资,因寻弟未果,无奈中到县政府政务服务大厅求助,希望有关部门帮助自己在有生之年寻找到失散多年的胞弟。接到政务平台
A、 B、 C、 D、 A
EmergencyRoomsMillionsofAmericansvisitanemergencyroomeachyear.MillionsmorehaveseenthehitTVshow"ER".This
最新回复
(
0
)