vb编程题:20个二位随机正整数围成一圈,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数.
题目
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 Sub
举一反三
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 为什么相同质量的铁片和纸片在空气中下落时间不同
- 敬仰的反义词,鼓励的近,反义词.精彩的近,反义词.沉重的近义词.
- 下列物质的性质属于物理性质的是( ) A.浓盐酸的挥发性 B.浓硫酸的腐蚀性 C.稀硫酸的酸性 D.碳酸的不稳定性
- successful people club
- 长江沿岸有A、B两码头,已知客船从A到 B航行每天行500千米,从B到A航行每天行400千米,如果客船在A、B两码头间往返航行5次共用18天,那么两码头间的距离是_千米.
- 练习螺旋测微器和游标卡尺读数的软件
- 一种商品,原来售价是500元,现在售价比原来降底150元,降低百分之几?
- 海洋地形 种类
- 变形协调方程是什么
- 找规律:一 11,22,33,45,()71