首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
运行如下程序: Private Sub Commandl_Click() Dim a(5,5)As Integer F0r i=1 To 5 For j=1 To 4 a(i,j)=i*2+J If a(i,
运行如下程序: Private Sub Commandl_Click() Dim a(5,5)As Integer F0r i=1 To 5 For j=1 To 4 a(i,j)=i*2+J If a(i,
admin
2018-07-11
75
问题
运行如下程序:
Private Sub Commandl_Click()
Dim a(5,5)As Integer
F0r i=1 To 5
For j=1 To 4
a(i,j)=i*2+J
If a(i,j)/7=a(i,j)\7 Then
n=n+1
End If
Next j
Next
Print n
End Sub
n的值是( )。
选项
A、2
B、3
C、4
D、5
答案
B
解析
VB中“/”是浮点除法运算符,“\”,是整数除法运算符,程序中的条件表达式a(i,j)/7=a(i,j)\7成立时说明这个数能够被7整除,程序即是统计这个二维数组中能被7整除的数的个数。数组元素值在i=1时为(3,4,5,6),i=2时为(5,6,7,8),i=3时为(7,8,9,10),i=4时为(9,10,11,12),i=5时为(11,12,13,14),其中能够被7整除的数有7、7、14共3个。因此答案为B。
转载请注明原文地址:https://kaotiyun.com/show/tKGp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
执行以下程序段:a$=“VisualBasicProgramming”b$:“C++”c$=UCase(Left$(a$,7))&b$&Right$(a$,12)后,变量c$的值为()。
设有以下定义语句:PrivateTypepointxAsIntegeryAsIntegerEndTVpeDimaAspoint下面语句中正确的是
要使得文件列表框Filel中只显示文件扩展名为jpg的图片文件,则下列正确的语句是
在窗体上画一个名称为Command1的命令按钮,并编写如下程序:PrivateTypeRecordIDAsInteger:NameAsString*20EndTypePrivateSubCommand1_Click()DimMa
设有语句Open"c:\Test.Dat"ForOutputAs#1则以下叙述中错误的是
窗体上有一个名称为Timerl的计时器控件,一个名称为Shapel的形状控件,其Shape属性值为3(Circle)。编写程序如下:PrivateSubForm_Load()PrivateSubTimer
设有栈S和队列Q,初始状态均为空。首先依次将A,B,C,D,E,F入栈,然后从栈中退出三个元素依次入队,再将X,Y,Z入栈后,将栈中所有元素退出并依次入队,最后将队列中所有元素退出,则退队元素的顺序为
函数表达式Sgn(-10)的值是
当数据库中数据总体逻辑结构发生变化,而应用程序不受影响,称为数据的
一个兴趣班可以招收多名学生,而一个学生可以参加多个兴趣班。则实体兴趣班和实体学生之间的联系是
随机试题
起重吊装工程中属于超过一定规模的危险性较大的分部分项工程有()。
“全球化”一词最早是由________于1985年提出的。()
患儿1岁半,半天来打喷嚏、发热,1小时前突然抽搐持续2分钟。去医院途中抽搐停止,神志清。查体:发育正常,体温38.5℃,前囟已闭,咽充血,心、肺无异常,颈无抵抗。该患儿最可能是
口头报告和书面报告、表格式报告和叙述式报告,它们表现形式不同,故对它们的基本要求也不同。()
民间非营利组织会计要素分为资产、负债、净资产、收入和费用。()
在考虑利用专家的工作时,注册会计师应当评价专家是否具有实现审计目的所必需的胜任能力、专业素质和客观性;充分了解专家的专长领域;与专家就相关重要事项达成一致意见;评价专家的工作是否足以实现审计目的。在确定这些相关审计程序的性质、时间安排和范围时,注册会计师应
下列说法正确的是()
Inasweepingchangetohowmostofits1,800employeesarepaid,theUnionSquareHospitalityGroupwilleliminatetippingatU
计算机网络拓扑设计对网络的影响主要表现在()。Ⅰ.系统可靠性Ⅱ.网络安全Ⅲ.通信费用Ⅳ.网络性能
Hestealsthingsfromotherpeople.Heisnotfriendlybutturnsagainstyou.
最新回复
(
0
)