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

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

admin2020-07-22  83
问题 在考生文件夹中有一个工程文件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://www.kaotiyun.com/show/2MHp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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