vb编程题:20个二位随机正整数围成一圈,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数.请大虾们帮我设计出程序,这题的意思我都看不懂请先说明这题的意思,
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/31 00:59:34
![vb编程题:20个二位随机正整数围成一圈,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数.请大虾们帮我设计出程序,这题的意思我都看不懂请先说明这题的意思,](/uploads/image/z/10135252-28-2.jpg?t=vb%E7%BC%96%E7%A8%8B%E9%A2%98%EF%BC%9A20%E4%B8%AA%E4%BA%8C%E4%BD%8D%E9%9A%8F%E6%9C%BA%E6%AD%A3%E6%95%B4%E6%95%B0%E5%9B%B4%E6%88%90%E4%B8%80%E5%9C%88%2C%E6%89%BE%E5%87%BA%E6%AF%8F%E5%9B%9B%E4%B8%AA%E7%9B%B8%E9%82%BB%E6%95%B0%E4%B9%8B%E5%92%8C%E4%B8%AD%E7%9A%84%E6%9C%80%E5%A4%A7%E5%80%BC%2C%E5%B9%B6%E6%8C%87%E5%87%BA%E6%98%AF%E5%93%AA%E5%9B%9B%E4%B8%AA%E7%9B%B8%E9%82%BB%E7%9A%84%E6%95%B0.%E8%AF%B7%E5%A4%A7%E8%99%BE%E4%BB%AC%E5%B8%AE%E6%88%91%E8%AE%BE%E8%AE%A1%E5%87%BA%E7%A8%8B%E5%BA%8F%2C%E8%BF%99%E9%A2%98%E7%9A%84%E6%84%8F%E6%80%9D%E6%88%91%E9%83%BD%E7%9C%8B%E4%B8%8D%E6%87%82%E8%AF%B7%E5%85%88%E8%AF%B4%E6%98%8E%E8%BF%99%E9%A2%98%E7%9A%84%E6%84%8F%E6%80%9D%2C)
vb编程题:20个二位随机正整数围成一圈,找出每四个相邻数之和中的最大值,并指出是哪四个相邻的数.请大虾们帮我设计出程序,这题的意思我都看不懂请先说明这题的意思,
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