vb编程题：20个二位随机正整数围成一圈,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数.

来源：学生作业帮编辑：大师作文网作业帮分类：综合作业时间：2024/11/10 19:28:33

vb编程题：20个二位随机正整数围成一圈,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数.
请大虾们帮我设计出程序,这题的意思我都看不懂请先说明这题的意思,

'意思就是20个数首尾相连,围成一个"圆".从第一个数开始,一次取4个数出来求和.找出其中和最大的4个数.
' 1 2 3 4 5 6
' 20 7
' 19 8
' 18 9
' 17 10
' 16 15 14 13 12 11
Private Sub form_click()
Dim i%,n%,a%(19),max%,st$,temp%
Me.Cls
For i = 0 To 19
a(i) = Int(90 * Rnd + 10) '20个二位随机正整数
Print a(i); '打印到窗体
Next i
Print
For i = 0 To 19
'mod 20 使数组的下标在[0-19]之间循环.使之首尾连接.
temp = a(i) + a((i + 1) Mod 20) + a((i + 2) Mod 20) + a((i + 3) Mod 20) '求四个相邻数之和
Print Str(a(i)); " +"; Str(a((i + 1) Mod 20)); " +"; Str(a((i + 2) Mod 20)); _
" +"; Str(a((i + 3) Mod 20)); " = "; temp '打印到窗体
If max < temp Then max = temp:n = i '比较大小,赋值max、n
Next i
Print " Max is :"; max '打印max到窗体、四个相邻数
Print " Number is :"; a(n); a((n + 1) Mod 20); a((n + 2) Mod 20); a((n + 3) Mod 20)
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Me.WindowState = 2
Randomize
Call form_click
End Su

vb编程题：20个二位随机正整数围成一圈,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数. vb 20个100以内的随机整数围成一圈,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数. VB:有20个10以内的随机整数排成一排,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数输入20个正整数,这20个数的尾部数和头部数首尾相连,构成环形的一组数,编程找出相邻的4个数,其相加之和最大,并给出它们已知五个数一次是13,12,15,25,20,他们每相邻的两个数相乘得四个数.这四个数每相邻的两个数相乘得三个数 Vb小编程用随机函数生成10个100以内的的整数找出最大值并指出是第几个数 VB操作题.从键盘任意输入四个数,求四个数中的最大值有四个数,最小的数是a,每相邻两个数之间的差是3,和是有一串数,最前面的四个数是1987.从第五个数起,每一个数都是它前面相邻四个数之和的个位数字在-35和5中扎入四个数,使这六个数中每相邻两个数的距离都相等,则这四个数的和是? 已知五个数依次为13,12,15,25,20,它们每相邻的两个数相乘得四个数,这四个相邻的两个数相乘得三位数,这三个数每已知五个数依次为13,12,15,20,125.它们每相邻两个数相乘得到四个数,这四个数每相邻的两个数相乘得到3