首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在窗体中添加1个命令按钮(其Name属性为Command1)和1个标签(其Name属性为Lable1),然后编写如下代码: Private Sub Commandl_Cliek() Dim arrayl(10, 10)As Integer
在窗体中添加1个命令按钮(其Name属性为Command1)和1个标签(其Name属性为Lable1),然后编写如下代码: Private Sub Commandl_Cliek() Dim arrayl(10, 10)As Integer
admin
2010-03-30
31
问题
在窗体中添加1个命令按钮(其Name属性为Command1)和1个标签(其Name属性为Lable1),然后编写如下代码: Private Sub Commandl_Cliek() Dim arrayl(10, 10)As Integer Dim i, j, Sum AsInteger Sum=0 For i=1 To 10 Forj=1 To 10 arrayl(i, j)=i+j Nextj Next i End Sub 此程序的功能是求数组arrayl主对角线元素的和,并把结果显示在标签中,为实现此功能,省略号处的程序段应该是 ( )
选项
A、For i=1 To 10 For j=1 To 10 If i=j Then Sum = Sum+ arrayl (i,j) End If Next j Next i Labelt. Caption=Sum
B、For i=l TO 10 Forj=1 To 10 If i= =j Then Sum=Sum+array1 (i,j) End If Next j Next i Labell. Caption=Sum
C、For i=1 To 10 For j=1 To l0 If i=j Then Sum=Sum+arrayl (i,j) End If Next i Next j Lahell. Caption=Sum
D、For i=1 To 10 For j=1 To l0 If i=j Then Sum=arrayl (i,j) End If Next j Next i Labell. Caption=Sum
答案
1
解析
选项B中条件表达式i= =j有误,在VB中表示i等于j,应写成i=j。排除选项B。选项C中的For......Next语句使用有误,内层应该是Next j,外层为Next i。选项D中的求和语句有误。应为Sum= Sum+array1(i,j)。只有A项是正确的。
转载请注明原文地址:https://jikaoti.com/ti/XFq0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在读字符文件Employee.dat时,使用该文件作为参数的类是()。
下列代码的运行结果是()。publicclassTest{publicstaticvoidmain(Stringargs[]){System.out.println(89>>1);}}
已知如下代码:booleanm=true;if(m==false)System.out.prinfln("False");elseSystem.out.println("True");
下列属于Java编译命令的是()。
耦合和内聚是评价模块独立性的两个主要标准,其中【】反映了模块内各成分之间的联系。
关系R和关系S的并运算是()。
在一个for循环的循环体中可以包含另一个for循环,实现for循环的【】。
对下列二叉树进行中序遍历的结果是()。
对如下二叉树进行后序遍历的结果为( )。
随机试题
有助于溃疡性结肠炎诊断的自身抗体是()。
反映某一事件发生强度的指标应选用
牛的髌骨脱位多见于()。
患者,男性,51岁。1周来晨起眼睑水肿,排尿不适,尿色发红,血压偏高,疑为急性肾小球肾炎,需留12小时尿作艾迪计数。为了防止尿液久放变质,应在尿液中加入
高层建筑中明设管径大于或等于110mm的排水塑料管应按要求设置()。
投标文件中,技术建议书的核心内容是()
关于楼地面构造的说法,正确的有()。
某技术改造项目有三个互斥方案,其投资额和经营费用如下表所示:根据以上资料,回答下列问题:技术改造方案的核心是()。
企业购入原材料一批,开出一张面值为200000元,期限为3个月的不带息的商业承兑汇票。到期该企业无力支付票款时,下列会计处理正确的是()。
Fishareslipperycharacters,withlittleregardforinternationalagreementsorborders.Thespeediestcanslicethroughtheoc
最新回复
(
0
)