首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
编写如下程序: Private Sub Command1_Click() Dim a(3, 3)As Integer Dim s As Integer For i=1 To 3 For j=1 To 3 a(i, j)=i
编写如下程序: Private Sub Command1_Click() Dim a(3, 3)As Integer Dim s As Integer For i=1 To 3 For j=1 To 3 a(i, j)=i
admin
2020-02-27
72
问题
编写如下程序:
Private Sub Command1_Click()
Dim a(3, 3)As Integer
Dim s As Integer
For i=1 To 3
For j=1 To 3
a(i, j)=i * j+i
Next j
Next i
s=0
For i=1 To 3
s=s+a(i, 4-i)
Next i
Print s
End Sub
程序运行后,单击命令按钮Command1,输出结果为( )。
选项
A、7
B、13
C、16
D、20
答案
C
解析
程序通过For循环为数组a赋值,具体值如下:
a(1,1)=1+1=2, a(1,2)=2+1=3, a(1,3)=3+1=4;
a(2,1)=2+2=4, a(2,2)=4+2=6, a(2,3)=6+2=8;
a(3,1)=3+3=6, a(3,2)=6+3=9, a(3,3)=9+3=12;
程序要计算指定数组元素的和,这几个元素是a(1,3), a(2,2), a(3,1),所以s=4+6+6=16。
转载请注明原文地址:https://kaotiyun.com/show/vLTp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
运行以下程序后,输出的图案是()。Form1.CIsA$=String$(10,"*")Fori=1To5n=10-2*iX$=AS:Y$=Space$(n)Mid$(X$,i+1,
单击命令按钮执行以下程序,则输出结果为()。PnvmeSubCommand1_Click()DimxAsInteger,yAsIntegerx=14:y=48:CallProc(x,y)Pri
在进行逻辑设计时,将E—R图中实体之间联系转换为关系数据库的()。
有三个关系R,S和T如下图所示:则由关系R和S得到关系T的运算是()。
每所学校都有一名校长,而每个校长只在一所学校任职,则实体学校和实体校长之间的联系是()。
设有如下声明语句OptionBase1Dimarr(2,一1To5)AsInteger则数组arr中数组元素的个数是()。
在下面语句或函数中,不能描述选择结构的是()。
下面不属于结构化程序设计原则的是()。
执行以下程序段:a$=“VisualBasicProgramming”b$=“C++”C$=UCase(Left$(a$,7))&b$&Right$(a$,12)后,变量c$的值为()。
以下关于VB特点的叙述中,错误的是( )。
随机试题
需要层次理论中的最高层次的需要是()
某发明专利权法律保护期为20年,截至评估基准日已使用3年,经专家分析鉴定,因为无形损耗较大,该发明专利的剩余使用期限为7年,则运用剩余经济寿命预测法计算该发明专利的成新率为【】
在Access数据库中数据实际保存在______中。
患者,男,35岁,稍长距离步行后感右小腿疼痛。肌肉抽搐而致跛行,稍休息后症状消失。平时感右足发凉,怕冷,有麻木感。右足背动脉搏动减弱。应考虑
施工成本目标控制主要依据之一是()。
2007年10月1日,南海市工商管理部门对华昌公司做出吊销营业执照的决定,并于当日以信函方式寄出,华吕公司于10月5日收到该信函。根据我国《行政复议法》的有关规定,华昌公司对南海市工商管理部门的决定不服,那么可以在10月1日起60日内提出行政复议申请。
下列关于多种产品加权平均边际贡献率的计算公式中,错误的是()。
玲玲家买了一个电热水壶,其铭牌如下表所示。玲玲和小华想测量电热水壶的实际功率。当电路中只有电热水壶工作时,玲玲发现在3min内脉冲式电能表的指示灯闪了180次(脉冲式电能表表盘上标有“3000imp/(kW.h)”字样,表示指示灯每闪3000
在独立编址方式下,存储设备和I/O设备是()来区分的。
打开工作簿文件EXCEL.XLSX:(1)将工作表Sheet1的A1:D1单元格合并为一个单元格,内容水平居中;计算“学生均值”行(学生均值=贷款金额/学生人数,保留小数点后两位),将工作表命名为“助学贷款发放情况表”。复制该工作表为“SheetA”工作表
最新回复
(
0
)