首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
运行如下程序 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
运行如下程序 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
admin
2020-04-18
60
问题
运行如下程序
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全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
(1)在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入大、小写字母及数字。单击“统计”按钮,分别统计输入字符串中大写字母、小写字母及数字字符的个数,并将统计结果分别显示在标签控件数组x中,如图3.132所示。在给出的窗体文件
窗体上有1个名称为Label1的标签;1个名称为List1,且含有若干表项的列表框。为了使得单击List1中某个表项时,在Label1中相应地显示该表项,应使用的程序代码为
窗体上有一个名称为Commandl的命令按钮,其事件过程如下:PrivateSubCommand1_Click()x=”VisualBasicProgramming”a=Right(X,11)b=Mid(x,7,
一个工程中包含两个名称分别为Forml、Form2的窗体、一个名称为Func的标准模块。假定在Form1、Form2和Func中分别建立了自定义过程,其定义格式为:Form1中定义的过程:PrivateSubFunl()EndSubForm2
(1)在考生文件夹下有一个工程文件sjt3.vbp,相应的窗体文件为sjt3.frm。其功能是随机产生30个0~1000的整数,将其放入一个数组中,然后输出其中的最大值。程序运行后,单击命令按钮(名称为Commandl,标题为“输出最大值”,如图所示),即
已知图片框Picture1中已装入一个图形,为了在不删除图片框的前提下,清除该图形,应采取的正确操作是( )。
下面是一个判断并输出获得奖学金信息的程序:PrivateSubCommand1_Click()a%=InputBox("请输入主课成绩1")b%=InputBox("请输入主课成绩2")c%=InputBox
设窗体上有1个水平滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。下面叙述中正确的是()。
关于随机文件,以下叙述中错误的是()。
随机试题
醛固酮保水、保钠和排钾作用的主要部位是()
患者,男性,55岁。患慢性粒细胞白血病3年,恶病质,符合安乐死条件,医生使用药物结束其痛苦的生命,称为
对肝内病变经皮针刺活检,目前使用方便、最常用的导向方法为()。
企业应关注资产管理中涉及的主要风险,下列关于资产管理内部控制要求与措施的说法中,错误的是()。
甲公司为从事国家重点扶持的公共基础设施建设项目的企业,根据税法规定,2015年度免交所得税。甲公司2015年度发生的有关交易或事项如下:(1)以盈余公积转增资本5500万元;(2)向股东分配股票股利4500万元;(3)接受控股股东的现金捐赠350万元
永康《十八蝴蝶》舒展飘逸、韵味典雅,较好地体现了江南文化的秀丽之美,舞蹈的基本动作有()。
简述教育目的的层次结构。
巧克力是受人青睐的美食,下列关于巧克力说法错误的有()。
A、B两地相距1350米,甲和乙分别从A、B两地出发,相向而行。已知甲的速度为4千米/小时,乙的速度为5千米/小时,1分钟后两人调头反方向而行,再过3分钟,两人再次调头反方向而行,依此类推,再过5、7、……(连续奇数)分钟调头而行,请问,出发多少分钟后两人
Youwillhearaconsultantspeakingataconferenceaboutabusinesscollege.Asyoulisten,forquestions1-12,completeth
最新回复
(
0
)