首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是:分别统计7×7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,以实现上述的功能。 要求:不得修改
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是:分别统计7×7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,以实现上述的功能。 要求:不得修改
admin
2020-07-22
37
问题
在考生文件夹中有一个工程文件sjt5.vbp。该程序的功能是:分别统计7×7数组四周元素之和及四周元素中能够被7整除的元素的个数,并将统计结果在相应的标签中显示。请仔细阅读已有程序,然后在标出的位置编写适当的程序,以实现上述的功能。
要求:不得修改原有程序和控件的属性。在结束程序运行之前,必须至少正确运行一次程序,将统计的结果显示在标签中,否则将没有成绩,最后将修改后的文件按原文件名进行存盘。
选项
答案
【操作步骤】 步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Dim a(7, 7) As Integer Private Sub Form_Load() read End Sub Public Sub read() Open App.Path & "\Data5.txt" For Input As #1 Do While Not EOF(1) For i = 1 To 7 For j = 1 To 7 Input #1, a(i, j) Next j Next i Loop Close #1 End Sub Private Sub Command1_Click() Dim Sum As Long ’====考生编写程序开始========== ’=====考生编写程序结束========== Save End Sub Public Sub Save() Open App.Path & "\out5.txt" For Output As #1 Print #1, lblFirst.Caption, lblSecond.Caption Close #1 End Sub 程序结束 参考答案 Dim i As Integer, n As Integer For i = 1 To 7 If a(i, 1) Mod 7 = 0 Then n = n + 1 ElseIf a(1, i) Mod 7 = 0 Then n = n + 1 ElseIf a(7, i) Mod 7 = 0 Then n = n + 1 ElseIf a(i, 7) Mod 7 = 0 Then n = n + 1 End If Next i lblFirst = n For i = 1 To 7 sum = sum + a(1, i) + a(i, 1) + a(7, i) + a(i, 7) Next sum = sum - a(1, 7) - a(1, 7) - a(7, 1) - a(7, 7) lblSecond = sum 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/2MHp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Text1的文本框,并编写如下程序:OptionBase1PrivateSubForm_Click() Dimarr DimStartAsInteger,FinishAsInteger DimSu
以下关于图片框控件的说法中,错误的是( )。
待排序的关键码序列为(15,20,9,30,67,65,45,90),要按关键码值递增的顺序排序,采取简单选择排序法,第一趟排序后关键码15被放到第()个位置。
在列表框或组合框中,能够表示当前被选中列表项序号的是
计算下面分段函数的正确语句是()。
窗体上有1个名称为Command1的命令按钮,事件过程及函数过程如下:PrivateSubCommand1_Click() DimpAsInteger p=m(1)+m(2)+m(3) PrintpEndSubPrivate
下列叙述中正确的是
将窗体的KeyPreview属性设为True,然后编写如下程序:PrivateSUbForm_KeyDown(KeyCode_PrivateSUbForm_KeyPress(KeyAsciiAsInteger,Shi
以下关于文件的叙述中,错误的是
随机试题
当事人之间就新技术、新产品、新工艺和新材料及其系统的研究开发订立的合同称为()。
A医院健康教育B倡导政策支持C加强个人素质D营养健康教育E发展个人技能属于健康促进策略的是
患者男,25岁,近1个月反酸、胃灼热,于进食后、平卧时加重,无腹胀及腹痛,无黑粪。正常食管内的pH是
镰刀型红细胞贫血的基因突变属于
PM10是指悬浮在空气中,空气动力学当量直径()的颗粒物。
下列关于我国古代叫法的表述,不正确的是()。
“人逢喜事精神爽”说的是一种()。
蒙太奇是电影创作的主要叙述手段和表现手段之一。电影将一系列在不同地点,从不同距离和角度,以不同方法拍摄的镜头排列组合起来,叙述情节,刻画人物。但当不同的镜头组接在一起时,往往又会产生各个镜头单独存在时所不具有的含义。根据上述定义,下列各项中没有使用蒙太奇手
若服务器系统年停机时间为10分钟,那么系统可用性至少达到
Therearesomestepsyoucantaketoavoidcatchingacold.Contrarytopopularbelief,coldsarenotcausedbyexposuretoseve
最新回复
(
0
)