2. 计算机
  3. 在考生文件夹中有一个工程文件Sjt=5．vbp。该程序的功能是：分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数，并将统计结果在相应的标签中显示。请仔细阅读已有程序，然后在标出的位置编写适当的程序，实现上述的功能。 　　要求：不得修改原有

在考生文件夹中有一个工程文件Sjt=5．vbp。该程序的功能是：分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数，并将统计结果在相应的标签中显示。请仔细阅读已有程序，然后在标出的位置编写适当的程序，实现上述的功能。 　　要求：不得修改原有

admin2013-11-29  57
问题 在考生文件夹中有一个工程文件Sjt=5．vbp。该程序的功能是：分别统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数，并将统计结果在相应的标签中显示。请仔细阅读已有程序，然后在标出的位置编写适当的程序，实现上述的功能。
　　要求：不得修改原有程序和控件的属性。在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标签中，否则将没有成绩，最后将修改后的文件按原文件名进行存盘。
选项
答案根据题意将考生文件夹内数据文件读入到一个二维数组，在Commandl Click事件过程中，Mod函数用于判断数组中四周元素的值是否能被7整除，运用If判断语句，实现变量n对于被7整除的数的统计。通过For循环语句，统计四周元素之和，需要注意，对于四个角的值累加了两次，所以要减去。 步骤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#l Do While Not EOF(1) For i=1 To 7 For j=l To 7 Input#1，a(i，j) Next j Next i Loop Close#1 End Sub Private Sub Commandl＿Click() Din,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#l 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 Elself a(1，i)Mod 7=0 Then n=n+1 Elself a(7，i)Mod 7=0 Then n=n+l Elself a(i，7)Mod 7=0 Then n=n+l 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/aHQp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)