运行如下程序 Private Sub Command1_Click() Dim a(5，5)As Integer For i=1 To 5 Forj=1 To 4 a(i，j)=i*2+j If a(i，j)

admin2017-04-25 11

问题运行如下程序
Private Sub Command1_Click()
Dim a(5，5)As Integer
For i=1 To 5
Forj=1 To 4
a(i，j)=i*2+j
If a(i，j)／7=a(i，j)＼7 Then
n=n+1
End If
Nextj
Next
Print n
End Sub
则n的值是

选项 A、2
B、3
C、4
D、5

答案B

解析在二重循环中为二维数组赋初值，每个元素的值均为行号*2加上列号；在If语句中进行判断，如果数组元素能被7整除则令计数器n加1，所以整个程序的功能就是统计二维数组中能被7整除的数的个数。

转载请注明原文地址:https://jikaoti.com/ti/K6y0FFFM

本试题收录于：二级VB题库NCRE全国计算机二级分类

二级VB

NCRE全国计算机二级

相关试题推荐

窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是()。PrivateSubCommand1_Click()Dimaa=Array(1，2，3，4，5)Fork=1To4
在窗体上画一个名称为Drive1的驱动器列表框，一个名称为Dir1的目录列表框，一个名称为File1的文件列表框，两个名称分虽为Lahel1、Label2，标题分别为空白和"共有文件"的标签。编写程序，使得驱动器列表框与目录列表框、目录列表框与文件列表框
在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimnumAsIntegernum=1DoUntilnu
在窗体上画一个文本框，然后编写如下事件过程：PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimcharAsStringchar=Chr(KeyAscii)
设有以下循环结构；Do循环体LoopWhile＜杂件＞则以下叙述中错误的是______。
下列程序执行后，变量x的值为()。Dima,b,c,dAsSingleDimxAsSinglea=10b=30c=400Ifb＞aThend=a:a=b:b=dEnd
计时器事件之间的间隔通过【】属性设置。
测试的目的是暴露错误，评价程序的可靠性；而【】的目的是发现错误的位置并改正错误。
下列符号常量的声明中，不合法的是
设有如下程序，查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。OptionBase1PrivateSubCommand1_Click()Dimarr1DimMinAsInteger,iAsInteger

随机试题

_________、_________通过食管裂孔。
细胞浸润可经以下途径损伤组织
患者，女性，55岁。行ECG检查示：P波消失，代之是400次／分左右的F波，QRS波形态正常，QRS波群间隔绝对不规则，心室率通常在每分钟110次，从心电图可诊断
男，18岁。腹痛、腹泻2年，伴低热，结肠镜检查：回肠末端黏膜呈铺路石样表现，取活检病理报告为非干酪性肉芽肿，本例可诊断为
案例B石化分公司双苯厂硝基苯精馏塔发生爆炸，造成8人死亡，60人受伤，直接经济损失6908万元，并引发江水污染事件。国务院事故及事件调查组认定，D石油B石化分公司双苯厂爆炸事故和江水污染事件是一起特大生产安全责任事故和特别重大水污染责任事件。
《出境货物报检单》的“联系人”应填写()。
甲企业为一生产制造型企业，为增值税一般纳税人，适用的增值税税率为17％。甲企业本期发生经济业务如下：(1)12月5日委托乙企业加工应税消费品(商品加工完工后直接对外出售)，甲企业发出材料成本200万元，支付加工费70万元(不含增值税)，该产品适用的消费税
某饮料生产企业为增值税一般纳税人，年末将本企业生产的一批饮料发放给职工作为福利。该饮料市场售价为20万元(不含增值税)，增值税适用税率为17％，实际成本为17万元。假定不考虑其他因素，该企业应确认的应付职工薪酬为()万元。
下列说法中错误的是()。
$7

最新回复(0)

运行如下程序 Private Sub Command1_Click() Dim a(5，5)As Integer For i=1 To 5 Forj=1 To 4 a(i，j)=i*2+j If a(i，j)

二级VB

NCRE全国计算机二级

窗体上有一个命令按钮，命令按钮的单击事件过程如下。运行程序后，单击命令按钮，输出结果是()。PrivateSubCommand1_Click()Dimaa=Array(1，2，3，4，5)Fork=1To4

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：PrivateSubCommand1_Click()DimnumAsIntegernum=1DoUntilnu

在窗体上画一个文本框，然后编写如下事件过程：PrivateSubText1_KeyPress(KeyAsciiAsInteger)DimcharAsStringchar=Chr(KeyAscii)

设有以下循环结构；Do循环体LoopWhile＜杂件＞则以下叙述中错误的是______。

下列程序执行后，变量x的值为()。Dima,b,c,dAsSingleDimxAsSinglea=10b=30c=400Ifb＞aThend=a:a=b:b=dEnd

计时器事件之间的间隔通过【】属性设置。

测试的目的是暴露错误，评价程序的可靠性；而【】的目的是发现错误的位置并改正错误。

下列符号常量的声明中，不合法的是

设有如下程序，查找并输出该数组中的最小值，请在空白处填上合适的代码，将程序补充完整。OptionBase1PrivateSubCommand1_Click()Dimarr1DimMinAsInteger,iAsInteger

_________、_________通过食管裂孔。

细胞浸润可经以下途径损伤组织

患者，女性，55岁。行ECG检查示：P波消失，代之是400次／分左右的F波，QRS波形态正常，QRS波群间隔绝对不规则，心室率通常在每分钟110次，从心电图可诊断

男，18岁。腹痛、腹泻2年，伴低热，结肠镜检查：回肠末端黏膜呈铺路石样表现，取活检病理报告为非干酪性肉芽肿，本例可诊断为

《出境货物报检单》的“联系人”应填写()。

下列说法中错误的是()。

$7

_、_通过食管裂孔。