首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
运行如下程序 Private Sub Command l_Click() Dim a(5,5)As Integer For i=1 To 5 Forj=1 To 4
运行如下程序 Private Sub Command l_Click() Dim a(5,5)As Integer For i=1 To 5 Forj=1 To 4
admin
2019-04-29
26
问题
运行如下程序
Private Sub Command l_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://jikaoti.com/ti/uyN0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在考生文件夹下有一个工程文件sjt5.vbp。程序运行时,单击“装入数据”按钮,则从考生目录下的in5.txt文件中读入所有城市名称和距离,城市名称按顺序添加到列表框List1中,距离放到数组a中;当选中列表框中的一个城市;时,它的距离就显示在Text1中
在考生文件夹下有一个工程文件sjt5.vbp,其窗体中有一个实心圆。程序运行时,当用鼠标左键单击窗体任何位置时,实心圆则向单击位置直线移动;若用鼠标右键单击窗体,则实心圆停止移动。窗体文件中已经给出了全部控件,但程序不完整。要求:请去掉程序中的注
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上画一个名称Shape1的形状控件,在属性窗口中将其设置为圆形。画一个名称为List1的列表框,并在属性窗口中设置列表项的值分别为1、2、3、4、5。
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1的窗体上画一个名称为C1、标题为“改变颜色”的命令按钮,窗体标题为“改变窗体背景色”。编写程序,使得单击命令按钮时,将窗体的背景颜色改为红色(&HFF&)。
在考生文件夹下有一个工程文件sjt4.vbp。窗体上有名称为Label1的标签和名称为Timer1的计时器控件。该程序的功能是在名称为Label1的标签中循环显示不同的字符串。程序开始运行,在标签中显示“第一项”(如图3-114所示),且每隔1秒钟依次显示
考生文件夹下的工程文件sjt5.vbp中的窗体如图3-162所示。考生文件夹下的随机文件in5.dat中有20条记录,每条记录含姓名和三个分数(均为100以内的正整数)。在程序中已经定义了类型Recordtype,此类型变量可以存放一条记录。要求如下:
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。在名称为Form1、标题为“椭圆练习”的窗体上,画1个名称为Shape1的椭圆,其高为800、宽为1200、左边距为1000。椭圆的边框是宽度为5的蓝色(&H00C00000
随机试题
某公司20×9年损益表中有关资料如下(单位:万元):该公司目前的债务均为长期债务,发行在外的普通股25万股,每股账面价值为50元,股利支付率为50%,股利增长率为5%,目前市价为20元/股,公司未发行优先股。要求:计算销售量为35万件时的DFL、
可引起畸胎或死胎的寄生虫首先应考虑
(2005年)折杆受力如图5—63所示,以下结论中错误的为()。
某企业年初从银行借款600万元,年利率12%,按月计算并支付利息,则每月末应支付利息()万元。
甲建筑公司聘请王某担任推销员,双方签订劳动合同,约定劳动试用期六个月,六个月后再根据王某工作情况确定劳动合同期限,下列正确的是()。
由授信人(债权人)在进行授信活动时,独自对受信人(债务人)的资信状况和履约能力、进行的调查称为()。
各区、县人民政府,市政府各委、办、局,各市属机构:2012年6月,国务院印发了《关于加强食品安全工作的决定》(国发[2012]20号,以下简称《决定》),明确了加强食品安全工作的指导思想、总体要求、工作目标和具体措施。为进一步加强本市食品安全工作
对于下列果蔬的“美誉”,说法错误的一项是:
NASA
Whydofactorieswanttoknowhowpeoplefeelaboutdifferentcolors?Ifweputthesameredmidblueboxestogether,theredo
最新回复
(
0
)