首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
运行如下程序 Private Sub Command1_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,
运行如下程序 Private Sub Command1_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,
admin
2020-07-22
44
问题
运行如下程序
Private Sub Command1_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)\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整除的数的个数。数组元素值在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/rNHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
以下叙述中正确的是()。
窗体上有一个名称为Timerl的计时器控件,一个名称为Shapel的形状控件,其Shape属性值为3(Circle)。编写程序如下:PrivateSubForm—Load()Shapel.Top=0Timerl.Inter
在窗体中添加一个命令按钮、一个标签和一个文本框,并将文本框的Text属性置空,编写命令按钮Command1的Click事件代码:PrivateFunctionfun(xAsLong)AsBooleanIfxMod2=0
要将单选按钮Opt1设为被选中,应设置的属性是
在窗体上画一个名称为Text1的文本框,然后画一个名称为HscroUl的滚动条,其Min和Max属性分别为0和1000。程序运行后,如果移动滑块,则在文本框中显示滚动条的当前值。以下能实现上述操作的程序是()。
窗体上有三个水平滚动条,名称分别为HSRed、HSGreen和HSBlue,取值范围均是0~255,代表颜色的三种基色。改变滚动框的位置,可以改变三种基色的值,从而改变窗体的背景色,如下图所示。程序代码如下:Dimcolor(3)AsIn
以下选项中,不合法的VisualBasic的变量名是
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上画一个名称为List1的列表框,在属性窗口中为列表框添加三个选项:北京、上海、天津。再建立一个下拉菜单,菜单标题为“文件”,名称为File,此菜单下
随机试题
中度以上龋,银汞合金充填时需垫底,是因为银汞合金有
A、二丙酸倍氯米松B、可待因C、沙丁胺醇D、氨茶碱E、色甘酸钠具有强大的抗炎及免疫抑制作用的,用于哮喘发作的药物是()。
妇科门诊带教林护士向护生提问有关"双合诊"检查法的概念,正确的是
期货从业人员必须遵守()。
专利权可以作为经济法律关系的内容,但不可以作为经济法律关系的客体。()
完成某项工程,甲单独工作需要18小时,乙需要24小时,丙需要30小时。现按甲、乙、丙的顺序轮班工作,每人工作一小时换班。当工程完工时。乙总共干了()。
第三代移动通信技术3G是指支持高速数据传输的蜂窝移动通信技术。目前3G主要存在4种国际标准,其中______为中国自主研发的3G标准。
TheInternationalLaborOrganizationhasstudiedreportsonworkers’privacyinnineteenindustrialnations.Thestudyshowstha
DeterminingtheAgeofthePlanetsandtheUniverseP1:Asthesolarnebula,alargerotatingcloudofinterstellardustandgas
Traditionalplantbreedinginvolvescrossedvarietiesofthe【M1】______samespeciesinwaystheycouldcrossnaturally.Forexa
最新回复
(
0
)