VB:有20个10以内的随机整数排成一排,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数

来源：学生作业帮编辑：搜搜考试网作业帮分类：数学作业时间：2024/06/28 21:49:53

VB:有20个10以内的随机整数排成一排,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数
B(1)=A(1）+A（2）+A（3）+A（4)
B(20)=A(20）+A（1）+A（2）+A（3)
随机生成数组A,用循环结构求出每四个相邻数之和,用数组B保存

'把所有的与最大值相同的都显示出来
Private Sub Form_Load()
Me.AutoRedraw = True
Dim a(0 To 19) As Integer
Dim b(0 To 19) As Integer
Dim Max As Integer
Dim i As Integer
Max = 0
Print "随机生成的整数：";
For i = 0 To 19
Randomize
a(i) = Int(Rnd * 11)
Print a(i);
Next
Print
Print "被累加后的整数：";
For i = 0 To 19
b(i) = a(i Mod 20) + a((i + 1) Mod 20) + a((i + 2) Mod 20) + a((i + 3) Mod 20)
If b(Max) < b(i) Then Max = i
Print b(i);
Next
Print
FindData b, b(Max), a
'Print "最大值：" & b(Max)
'Print "相邻的数：" & a(Max Mod 20); a((Max + 1) Mod 20); a((Max + 2) Mod 20); a((Max + 3) Mod 20)
End Sub
Function FindData(arr() As Integer, ByVal MaxI As Integer, arra() As Integer)
Dim i As Integer

For i = 0 To UBound(arr)
If arr(i) = MaxI Then
Print "最大值：" & arr(i)
Print "相邻的数：" & arra(i Mod 20); arra((i + 1) Mod 20); arra((i + 2) Mod 20); arra((i + 3) Mod 20)
End If
Next
End Function

VB:有20个10以内的随机整数排成一排,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数 vb 20个100以内的随机整数围成一圈,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数. vb编程题：20个二位随机正整数围成一圈,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数. Vb小编程用随机函数生成10个100以内的的整数找出最大值并指出是第几个数如图,从左到右,在每个小格子中填入一个整数,使得其中任意四个相邻格子中所填的整数之和都相等,则地2013个格子中的数是( 有四个数,最小的数是a,每相邻两个数之间的差是3,和是有一串数,最前面的四个数是1987.从第五个数起,每一个数都是它前面相邻四个数之和的个位数字已知五个数一次是13,12,15,25,20,他们每相邻的两个数相乘得四个数.这四个数每相邻的两个数相乘得三个数有一串数,任何相邻的四个数之和都等于28.已知第1个数是6,第7个数是9,第10个数是8. 有八个数排成一排,他们的平均数是9.3.已知前五个数的平均数是10.5,后四个数的平均数是11.3,请问第五个从1,2,3…10这10个数中任取4个不同的数,求这四个数中至少有两个是相邻数的概率在下面一串数中,从第五个起,每个数都是它前面四个数之和的个位数字.那么这串数中,能否出现相邻的四个数依次是2,0,0,0