首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
现有程序如下: 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
现有程序如下: 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
admin
2015-08-28
27
问题
现有程序如下:
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)
Next j
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
For j=1 To n
b(i)=b(i)+a(i, j)
Next j
Next i
End Sub
关于上述程序,以下叙述中正确的是( )。
选项
A、调用过程语句有错,参数不匹配
B、程序有错,数组下标越界
C、y数组中保存的是x数组每行数据之和
D、x数组中数据的取值范围是1-10
答案
C
解析
程序利用For循环为数组x的5行6列元素以随机整数赋值,随机数的范围是从1到9。过程f的功能是计算二维数组a()的每一行中元素值的和,每一行的和存放在另一个数组b()中,最后程序输出这些和值。因此C正确。
转载请注明原文地址:https://jikaoti.com/ti/SHJ0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
记时器控件能有规律的以一定时间间隔触发【】事件,并执行该事件过程中的程序代码。
在窗体上画一个名称为Command1的命令按钮,然后编写如下代码:OptionBase1PrirateSubCommand1_Click()d=0c=10x=Array(10,1
在窗体上画一个名称为Text1的文本框,并编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSub
在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:PrivateSubCommand1_Click()DimaAsInteger,sAsIntegera=8s
下面的程序是找出两个正整数a和b,使得a<b、a+b=99、a和b的最大公约数是3的倍数,并统计满足条件数对的个数。OptionExplicitDimaAsInteger,bAsInteger,nAsInteger,cAsI
在程序设计阶段,当双击窗体上的某个控件时,所打开的窗口是______。
假定有如下的Sub过程:SubSub1(xAsSingle,yAsSingle)t=xx=t/yy=tModyEndSub在窗体上画一个命令按钮,然后编写如下事件过程:PrivateSubCo
随机试题
病灶已做局部引流和应用抗生素后,仍有寒战、高热,最合适的治疗措施是
A.精神分裂症单纯型B.精神分裂症偏执型C.精神分裂症青春型D.精神分裂症未分化型E.精神分裂症残留型青少年起病,逐渐加重的孤僻离群,被动退缩,话少,很少与亲友交流,对情绪刺激缺乏相应的反应。
肺痈成痈期的最佳治法是( )。
制芒硝时每100kg用萝卜
某企业采用资产负债表债务法核算所得税,上期适用的所得税税率为15%,“递延所得税资产”科目的借方余额为540万元,本期适用的所得税税率为25%,本期计提无形资产减值准备3720万元,上期已经计提的存货跌价准备于本期转回720万元,本期“递延所得税资产”科目
对客户经营管理的供应阶段进行分析,信贷人员应重点关注()方面。
SpeakerA:I’vegotafeverandareallybadheadache.SpeakerB:______
科学社会主义的核心内容是
Itseemsthat______ofthepeopleinEnglandareinfavorofawomanbishop.
WhatdoJapanesechildrenfeelfromtheirparents?Theyfeelheavy______fromtheirparents.
最新回复
(
0
)