'意思就是20個(gè)數(shù)首尾相連,圍成一個(gè)"圓".從第一個(gè)數(shù)開(kāi)始,一次取4個(gè)數(shù)出來(lái)求和.找出其中和最大的4個(gè)數(shù).
' 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個(gè)二位隨機(jī)正整數(shù)
Print a(i); '打印到窗體
Next i
Print
For i = 0 To 19
'mod 20 使數(shù)組的下標(biāo)在[0-19]之間循環(huán).使之首尾連接.
temp = a(i) + a((i + 1) Mod 20) + a((i + 2) Mod 20) + a((i + 3) Mod 20) '求四個(gè)相鄰數(shù)之和
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到窗體、四個(gè)相鄰數(shù)
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