运行如下程序 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

admin2020-04-18 31

问题运行如下程序
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://jikaoti.com/ti/D2x0FFFM

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

二级VB

NCRE全国计算机二级

相关试题推荐

以下能够正常结束循环操作的程序段是
要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中，如右图所示，放开鼠标左键后，停止同步显示。下面可以实现此功能的程序是(　　)。
编写如下程序：PrivateSubCommand1_Click()x=InputBox("请输入一个字符:")SelectCasexCaseIs
已知图片框Picture1中已装入一个图形，为了在不删除图片框的前提下，清除该图形，应采取的正确操作是(　　)。
在窗体上建立一个命令控件数组Commandl，并双击第一个命令按钮，编写如下事件过程：PrivateSubCommandl_Click(IndexAsInteger)Commandl(Index)．Caption=Format＄(Now,"hh
窗体上有一个名称为Command1的命令按钮，其单击事件过程如下：PrivateSubCommand1_Click()Fori=3To1Step-1Sum=0Forj=1Toi
设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述中正确的是()。
下面关于列表框Selected属性的叙述中正确的是

随机试题

什么是放射性同位素找水法?实施方法其适用条件是什么?
男性，54岁，2个月前发热、咳嗽、咳痰，胸部X线检查考虑为右肺上叶肺炎，经抗生素治疗1周，症状完全消失。近1个月再次出现咳嗽、发热。查体：生命体征平稳，右上肺呼吸音减弱。予以相同的抗生素治疗2周无效，咳嗽加重，痰中带少量血丝，胸部CT显示右肺上团块状阴影。
不是免疫组织化学染色阳性细胞的染色特征的是
计算预产期的方法是从末次月经()
在公益广告文案的诉求方式中，以真诚的关心爱护态度传播公益观念的是()。
材料：某校初一年级有位叫诚诚的同学，经常迟到、旷课，并且经常与同学打架，学习成绩也不太好，门门功课挂红灯，尽管老师多次和他谈话，仍不见好转，以至于班里同学见了他都躲得远远的。虽然诚诚偶尔也有进步，但没过两天又会恢复原样，以至于老师都对他失去了信心
若≥4，则x+y的最小值是()
下面各正方形中的四个数之间都有相同的规律，根据这种规律，可知m的值为()。
Fordecadesthemarketforexpensiveheadphoneswasmainlylimitedtohi-fifans.But【C1】________theboxystereosysteminthec
OnFeb.2,2007,theUnitedNationsscientificpanelstudyingclimatechangedeclaredthattheevidenceofawanningtrendis

最新回复(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

二级VB

NCRE全国计算机二级

以下能够正常结束循环操作的程序段是

要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中，如右图所示，放开鼠标左键后，停止同步显示。下面可以实现此功能的程序是( )。

编写如下程序：PrivateSubCommand1_Click()x=InputBox("请输入一个字符:")SelectCasexCaseIs

已知图片框Picture1中已装入一个图形，为了在不删除图片框的前提下，清除该图形，应采取的正确操作是( )。

在窗体上建立一个命令控件数组Commandl，并双击第一个命令按钮，编写如下事件过程：PrivateSubCommandl_Click(IndexAsInteger)Commandl(Index)．Caption=Format＄(Now,"hh

窗体上有一个名称为Command1的命令按钮，其单击事件过程如下：PrivateSubCommand1_Click()Fori=3To1Step-1Sum=0Forj=1Toi

设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为1，Min属性设置为100。下面叙述中正确的是()。

下面关于列表框Selected属性的叙述中正确的是

什么是放射性同位素找水法?实施方法其适用条件是什么?

不是免疫组织化学染色阳性细胞的染色特征的是

计算预产期的方法是从末次月经()

在公益广告文案的诉求方式中，以真诚的关心爱护态度传播公益观念的是()。

若≥4，则x+y的最小值是()

下面各正方形中的四个数之间都有相同的规律，根据这种规律，可知m的值为()。

Fordecadesthemarketforexpensiveheadphoneswasmainlylimitedtohi-fifans.But【C1】________theboxystereosysteminthec

OnFeb.2,2007,theUnitedNationsscientificpanelstudyingclimatechangedeclaredthattheevidenceofawanningtrendis

要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中，如右图所示，放开鼠标左键后，停止同步显示。下面可以实现此功能的程序是(　　)。

已知图片框Picture1中已装入一个图形，为了在不删除图片框的前提下，清除该图形，应采取的正确操作是(　　)。