Private Sub Command1_Click()

Dim a(1 To 100) As Integer

Dim sum(0 To 101) As Long     ‘sum(i)=a(1)+a(2)+a(3)+…+a(i)

Dim i As Integer, j As Integer, n As Integer, m As Integer, k As Integer

Dim ans As Long, begin As Integer, maxi As Integer

Dim maxsum As Long, s As String

n=Val(Text1.Text)

m=Val(Text2.Text)

If n Mod m <> 0 Then List1.AddItem “输入数据不符合要求”:Exit Sub

For i=1 To n

a(i)=Int(Rnd*50+1)

s=s+Str(a(i))

If i Mod m=0 Then List1.AddItem s:s=“”

Next i

k=3

sum(1)=a(1)

For i=2 To n      ‘求sum(i)

Next i

maxsum=0

ans=0

For i=1 To n\m-k+1

For j=k To m

begin=(i-1)*m+j-k+1

maxsum=maxsum+sum(j+(i-1)*m)-sum(j-k+(i-1)*m)

maxsum=maxsum+(j+(i+1)*m)-sum(j-k+(i+1)*m)

If maxsum>ans Then ans=maxsum: maxi=begin

maxsum=0

Next j

Next i

s= “”

For i=1 To k

For j=1 To k

s=s+Str(a ())

Next j

List2.AddItem s

s=“”

Next i

List2.AddItem “maxsum=”+Str(ans)

End Sub

图b

Dim xm（1 to 100）As String ,cj（1 to 100）As Integer

Dim flag（1 to 100）As Boolean

Private Sub Form_ Load( )

'从数据库中读取数据，存储到相应数组中，并输出在列表框List1。第i个人，姓名为xm（i），成绩为cj（i）。人员数量存储到变量n中（1≤n≤100）。代码略

End Sub

Private Sub Cmd__Click( )

  Dim min As Integer, pmin As Integer

  min = cj(1): pmin = 1

  For i=2 To n

    If cj（i） < min Then min = cj（i）：     ①    

  Next i

  flag（pmin） = True

  pmin= pmin + 1

  If pmin=n+1 Then pmin=1

    For i=1 To n-2

      k = pmin

      For j=1 To n

        If       ②    Then k= j

      Next j

      If k <> pmin Then

        t = cj（k）: cj（k） = cj（pmin）: cj（pmin） = t

        C = xm（k）: xm（k） = xm（pmin）: xm（pmin） = c

      End If

      flag（pmin） = True

      pmin=pmin+1

    Next i

'将排序后的人员姓名和成绩输出到列表框List2中，代码略。

End Sub

① ② 

Private Sub Command1_Click()

  Dim i As Integer, n As Integer

  Dim s As Integer  's为A类数的个数

  Dim t As Integer   't为二进制数中“1”的个数

  Dim k As Integer   'k为二进制数中“0”的个数

  s=0

  For i=1 To 1000

   n=i:t=0:k=0

   Do While n > 0

    If Then t=t+1 Else k=k+1

   Loop

   If t>k Then

    List1.Additem str(i)

    s=s+1

   End If

 Next i

 Text1.Text=Str(s)

End Sub