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

问题运行如下程序
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/3gTp777K

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

二级VB

NCRE全国计算机二级

相关试题推荐

(1)在考生文件夹下有一个工程文件sjt3．vbp。程序的功能是通过键盘向文本框中输入大、小写字母及数字。单击“统计”按钮，分别统计输入字符串中大写字母、小写字母及数字字符的个数，并将统计结果分别显示在标签控件数组x中，如图3．132所示。在给出的窗体文件
执行下列语句：strInput＝InputBox("请输入字符串"，"字符串对话框"，"字符串")将显示输入对话框。此时如果直接单击"确定"按钮，则变量strInput的内容是(　　)。
下面不属于黑盒测试方法的是
定义无符号整数类为UInt，下面可以作为类UInt实例化值的是(　　)。
程序运行时，当在空文本框中依次输入1234时，窗体上显示的是()。PrivatesubText1_Change()PrintText1；EndSub
(1)在考生文件夹下有一个工程文件sjt3．vbp，相应的窗体文件为sjt3．frm。其功能是随机产生30个0～1000的整数，将其放入一个数组中，然后输出其中的最大值。程序运行后，单击命令按钮(名称为Commandl，标题为“输出最大值”，如图所示)，即
设在工程文件中有一个标准模块，其中定义了如下记录类型TypeBooks　　NameAsString*10　　TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Com
下面关于列表框Selected属性的叙述中正确的是
要求在程序运行时，如果按住鼠标左键不放而移动鼠标，鼠标的位置坐标同步显示在窗体右上角的标签(名称为Label1)中，如右图所示，放开鼠标左键后，停止同步显示。下面可以实现此功能的程序是(　　)。

随机试题

投保人王某勾结保险鉴定人朱某故意提供虚假的证明文件，捏造虚假的保险事故发生原因，从而获得了巨额保险金。对王某和朱某的行为如何处罚?()
某工程网络计划中，工作W的最早开始时间和最迟开始时间分别为第12天和第15天，其持续时间为5天，工作W有3个紧后工作，它们的最早开始时间分别为第21天，第24天和第28天，则W的自由时差为()天。
电算化会计核算的基本流程包括()。
当通货膨胀率超过名义利率时，实际利率()。
企业在资产负债表日，对某项劳务，如不能可靠地估计所提供劳务的交易结果，则对该项劳务正确的会计处理是()。
写出“谢赫”六法，并逐一加以简要解释。
5，4，()，
下列语句中，获得列表框List1中项目个数的语句是
Brightonisthelargestseasideresortinthe______.
A、Theyareafraidofmissingtheirphone.B、Theyfeartomisssomething.C、Theyfeelscaredwithoutthephoneon.D、Theyfeelde

最新回复(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全国计算机二级

执行下列语句：strInput＝InputBox("请输入字符串"，"字符串对话框"，"字符串")将显示输入对话框。此时如果直接单击"确定"按钮，则变量strInput的内容是( )。

下面不属于黑盒测试方法的是

定义无符号整数类为UInt，下面可以作为类UInt实例化值的是( )。

程序运行时，当在空文本框中依次输入1234时，窗体上显示的是()。PrivatesubText1_Change()PrintText1；EndSub

设在工程文件中有一个标准模块，其中定义了如下记录类型TypeBooks NameAsString*10 TelNumAsString*20EndType在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Com

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

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

投保人王某勾结保险鉴定人朱某故意提供虚假的证明文件，捏造虚假的保险事故发生原因，从而获得了巨额保险金。对王某和朱某的行为如何处罚?()

某工程网络计划中，工作W的最早开始时间和最迟开始时间分别为第12天和第15天，其持续时间为5天，工作W有3个紧后工作，它们的最早开始时间分别为第21天，第24天和第28天，则W的自由时差为()天。

电算化会计核算的基本流程包括()。

当通货膨胀率超过名义利率时，实际利率()。

企业在资产负债表日，对某项劳务，如不能可靠地估计所提供劳务的交易结果，则对该项劳务正确的会计处理是()。

写出“谢赫”六法，并逐一加以简要解释。

5，4，()，

下列语句中，获得列表框List1中项目个数的语句是

Brightonisthelargestseasideresortinthe______.

A、Theyareafraidofmissingtheirphone.B、Theyfeartomisssomething.C、Theyfeelscaredwithoutthephoneon.D、Theyfeelde

执行下列语句：strInput＝InputBox("请输入字符串"，"字符串对话框"，"字符串")将显示输入对话框。此时如果直接单击"确定"按钮，则变量strInput的内容是(　　)。

定义无符号整数类为UInt，下面可以作为类UInt实例化值的是(　　)。

设在工程文件中有一个标准模块，其中定义了如下记录类型TypeBooks　　NameAsString10　　TelNumAsString20EndType在窗体上画一个名为Command1的命令按钮，要求当执行事件过程Com

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