运行如下程序 Private Sub Commandl 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 E

admin2019-01-17 44

问题运行如下程序
Private Sub Commandl 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://kaotiyun.com/show/BMFp777K

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

二级VB

NCRE全国计算机二级

相关试题推荐

在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下程序：FunctionFun(xAsInteger,yAsInteger)AsIntegerFun=IIf(x
阅读程序：PrivateSubForm_Click()　　x＝50　　Fori＝1To4　　　　y＝InputBox("请输入一个整数")　　　　y＝Val(y)　　　　IfyMod5＝0Then　　　　　　a＝a＋y　　
以下叙述中错误的是(　　)。
要使得文件列表框File1中只显示文件扩展名为jpg的图片文件，则下列正确的语句是
在菜单编辑器中建立如下图所示的菜单，并为了每个菜单项编写了鼠标单击事件过程。关于此菜单，以下叙述中错误的是(　　)。
下列循环中，可以正常结束的是(　　)。
窗体的MouseUp事件过程如下：PrivateSubForm_MouseUp(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)　　……EndSub关于以上定义，以下
8.在关系模型中，每一个二维表称为一个
下列关于标签的描述中，错误的是()。
现有如下语句：x＝IIf(a＞50，Int(a\3)，aMod2)当a＝52时，x的值是(　　)。

随机试题

居住在美国芝加哥的美籍华人李梅与中国公民徐刚系夫妻。2005年3月，徐刚以双方长期分居、夫妻感情确已破裂为由向中国A市B区的人民法院起诉，要求与李梅离婚。李梅于2005年4月23日收到了起诉状副本，并于2005年5月8日向A市B区人民法院提出管辖权异议，A
痢疾杆菌最常侵犯的部位是
针对不同用途的收益性物业可以分为()。
为了加强会计档案的管理，企业当年及历年形成的会计档案都必须由专门的档案机构统一管理，而不能由会计机构暂行管理。（）
完全竞争市场和垄断竞争市场的主要区别在于(　　)
“工业4．0”是一个将生产原料、智能工厂、物流配送、消费者全部组织在一起的大网，消费者只需用手机下单，网络就会自动将订单和个性化要求发送给智能工厂，由其采购原料、设计并生产，再通过网络配送直接交付给消费者。“工业4．0”可能带来的影响是：
根据以下资料，回笞问题。2015年全国早稻播种面积5715．4千公顷(8573．1万亩)，比2014年下降1．4％；全国早稻单位面积产量5894．8公斤／公顷(393．0公斤／亩)，比2014年增长0．4％。2015年，各地区早稻播种面积超过全国播
电子邮件应用程序从邮件服务器的邮箱中读取邮件可使用的协议包括()。
在虚拟页式系统中，当需要进行页面置换时，选择将驻留在内存中时间最长的一页调出的策略是()。
A、Shecomplainedthatshewasgiventoomuchwork.B、Sheadmittedthatshehadbeendishonest.C、Sheowedittomiscommunication

最新回复(0)

运行如下程序 Private Sub Commandl 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 E

二级VB

NCRE全国计算机二级

在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，然后编写如下程序：FunctionFun(xAsInteger,yAsInteger)AsIntegerFun=IIf(x

阅读程序：PrivateSubForm_Click() x＝50 Fori＝1To4 y＝InputBox("请输入一个整数") y＝Val(y) IfyMod5＝0Then a＝a＋y

以下叙述中错误的是( )。

要使得文件列表框File1中只显示文件扩展名为jpg的图片文件，则下列正确的语句是

在菜单编辑器中建立如下图所示的菜单，并为了每个菜单项编写了鼠标单击事件过程。关于此菜单，以下叙述中错误的是( )。

下列循环中，可以正常结束的是( )。

窗体的MouseUp事件过程如下：PrivateSubForm_MouseUp(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle) ……EndSub关于以上定义，以下

8.在关系模型中，每一个二维表称为一个

下列关于标签的描述中，错误的是()。

现有如下语句：x＝IIf(a＞50，Int(a\3)，aMod2)当a＝52时，x的值是( )。

痢疾杆菌最常侵犯的部位是

针对不同用途的收益性物业可以分为()。

为了加强会计档案的管理，企业当年及历年形成的会计档案都必须由专门的档案机构统一管理，而不能由会计机构暂行管理。（）

完全竞争市场和垄断竞争市场的主要区别在于( )

根据以下资料，回笞问题。2015年全国早稻播种面积5715．4千公顷(8573．1万亩)，比2014年下降1．4％；全国早稻单位面积产量5894．8公斤／公顷(393．0公斤／亩)，比2014年增长0．4％。2015年，各地区早稻播种面积超过全国播

电子邮件应用程序从邮件服务器的邮箱中读取邮件可使用的协议包括()。

在虚拟页式系统中，当需要进行页面置换时，选择将驻留在内存中时间最长的一页调出的策略是()。

A、Shecomplainedthatshewasgiventoomuchwork.B、Sheadmittedthatshehadbeendishonest.C、Sheowedittomiscommunication

阅读程序：PrivateSubForm_Click()　　x＝50　　Fori＝1To4　　　　y＝InputBox("请输入一个整数")　　　　y＝Val(y)　　　　IfyMod5＝0Then　　　　　　a＝a＋y　　

以下叙述中错误的是(　　)。

在菜单编辑器中建立如下图所示的菜单，并为了每个菜单项编写了鼠标单击事件过程。关于此菜单，以下叙述中错误的是(　　)。

下列循环中，可以正常结束的是(　　)。

窗体的MouseUp事件过程如下：PrivateSubForm_MouseUp(ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle)　　……EndSub关于以上定义，以下

现有如下语句：x＝IIf(a＞50，Int(a\3)，aMod2)当a＝52时，x的值是(　　)。

完全竞争市场和垄断竞争市场的主要区别在于(　　)