首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
运行如下程序 Private SubCommand1_Click() Dim a(5,5)As Integer For i=1 To 5 For j=1 To 4 a(i,j)=i*2+j If a(i,j)/7=a(i,j)\7Then n=n+1 En
运行如下程序 Private SubCommand1_Click() Dim a(5,5)As Integer For i=1 To 5 For j=1 To 4 a(i,j)=i*2+j If a(i,j)/7=a(i,j)\7Then n=n+1 En
admin
2019-07-30
27
问题
运行如下程序
Private SubCommand1_Click()
Dim a(5,5)As Integer
For i=1 To 5
For j=1 To 4
a(i,j)=i*2+j
If a(i,j)/7=a(i,j)\7Then
n=n+1
End If
Nex tj
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/T7N0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上建立一个命令控件数组Command1,并双击第一个命令按钮,编写如下事件过程:PrivateSubCommand1_Click(IndexAsInteger)Command1(Index).Caption=Format$
以下程序执行后,在窗体上输出的图案是()。Form1.ClsFora=1To5PrintSpace(5-a);String(a,"*")Nexta
以下()控件没有Caption属性。
一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈,然后再依次出栈,则元素出栈的顺序是
以下关于VB文件的叙述中,错误的是
设窗体上有Text1、Text2两个文本框,并编写了下面的程序代码:PrivateSubText1_KeyPress(KeyAsciiAsInteger)If"A"<=Chr(KeyAscii)AndChr(KeyAscii)<="Z"Th
下面哪个属性肯定不是框架控件的属性
表达式sgn(0.25)的值是
设有如下的用户定义类型:TypeStudentNumberAsString:NameAsString:AgeAsIntegerEndType则以下正确引用该类型成员的代码是
为了计算1+3+5…+99的值,某人编程如下:k=1:s=0whilek<=99k=k+2:s=s+kwendprints在调试时发现运行结果有错误,需要修改。下列错误原因和修改方案中正确的是
随机试题
观察舌苔以辨别病邪深浅的主要依据是
A.精神病学B.心理学C.心理咨询D.医学心理学E.心身医学
施工项目应建立安全生产费用管理制度,明确项目安全生产费用提取和使用的程序、职责及权限,按照标准提取安全生产费用在成本中列支,编制安全生产费用(),专门用于完善和改进项目安全生产条件,在相关法律法规规定的范围使用,并建立使用台账。
项目质量控制体系有序运行的基本保证是()。
下列关于防火墙的构造要求说法正确的是()。
企业收到购货单位汇来的前欠货款100万元,此项业务使得()。
在机器零件的生产中,获得毛坯的方法主要有()。
甲化妆品公司(简称甲公司)为增值税一般纳税人,2017年11月份发生下列业务:(1)委托乙公司(增值税一般纳税人)加工高档香水精5吨,甲公司提供的自产原材料不含税价格为40万元,乙公司收取不含税加工费8万元并开具增值税专用发票。乙公司加工完毕后,甲公司委
Whatisthebroadcastmainlyabout?
ThelargestcityinNewZealandis
最新回复
(
0
)