VB编程题：统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并在标签中显示.

来源：学生作业帮编辑：百度作业网作业帮分类：综合作业时间：2024/06/01 23:31:34

VB编程题：统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并在标签中显示.
Sum = 0
For i = 1 To 7
Sum = Sum + a(1,i)
Next i
For i = 1 To 7
Sum = Sum + a(7,i)
Next i
For i = 2 To 6
Sum = Sum + a(i,1)
Next i
For i = 2 To 6
Sum = Sum + a(i,7)
Next i
lblSecond.Caption = Sum
n = 0
For i = 1 To 7
If a(1,i) Mod 7 = 0 Then
n = n + 1
ElseIf a(7,i) Mod 7 = 0 Then
n = n + 1
End If
Next i
For i = 2 To 6
If a(i,1) Mod 7 = 0 Then
n = n + 1
ElseIf a(i,7) Mod 7 = 0 Then
n = n + 1
End If
Next i
lblFirst.Caption = n
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
我觉得应该一样啊可是运行出来不对呢

你的与标准的确实有区别.计算和的基本上是一样的.但是求被7整除的数的个数,这两段都是求的“不完全个数”,他们之间还有些不同,但均不是题目中要求的东西.
结论：你的答案和标准答案均是错误的.

VB编程题：统计7*7数组四周元素之和及四周元素中能够被7整除的元素的个数,并在标签中显示. 统计7*7数组四周元素之和及四周元素中能被7整除的元素个数 VB如何统计二维数组中相同元素的个数? 几道VB题1编程题：.从键盘上输入20个数放入一个一维数组中,并输入数组各元素的值,然后将数组中20个元素的最大值和最小用C++编程：输入数组a,并统计出数组a中大于等于值k的元素个数并返回. C语言从键盘输入10个整数,保存在一堆数组中,求这些整数中能被7整除的数组元素之和,将计算结果输出用VB编程：随机产生10个0~100之间的随机整数,存放在一个数组中,然后求个元素和、平均值,统计前四周期元素中电负性最大的元素是什么? 1.VB编程,求一个M行N列的矩阵四周元素之和,元素值可以随机产生,M、 N从键盘输入 VB编程：随机生成10个互不相同的1~100之间的整数,存放在一维数组中,找出最大的元素,并从数组中删除该元素集合【1.2.3.50】,子集为S,若子集中任意两元素之和不能被7整除,则集合S的元素个数至少为多少求1-100之间能够被5 或7整除的数,同时在图片框中每行4个输出出来.并在文本框中显示这些数的和.vb编程语