VB:有20个10以内的随机整数排成一排,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数
来源:学生作业帮 编辑:大师作文网作业帮 分类:数学作业 时间:2024/09/20 17:44:28
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保存
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
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 "被累加后的整数:";
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
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