图1

图2

Private Sub       ①       

Dim i, j As Integer               A

i = 347                       B

j = i – 147                  C

Text1.Text = Str(j)           D                       

End Sub

Const n = 20

Dim a(1 To n) As Integer

Private Sub Command1_Click()

Dim i As Integer

Randomize

For i = 1 To n

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

  List1.AddItem Str(a(i))

Next i

End Sub

Private Sub Command2_Click()

Dim i As Integer, max As Integer

Dim min As Integer, sum As Single

max = a(1): min = a(1)

sum = 0

For i = 2 To n

  If {#blank#}1{#/blank#} Then max = a(i)

  If a(i) < min Then min = a(i)

  sum = sum + a(i)

Next i

{#blank#}2{#/blank#}

Text1.Text = Str(max)

Text2.Text = Str(min)

Text3.Text = Str(sum)

End Sub

Private Sub Command1_Click()

  Dim a(0 To 5) As Integer

  Dim i As Integer               '①

  a(0) = 1                       '②

  For i = 1 To 5

    a(i) = 2 * a(i - 1) + 1      '③

  Next i

  Text1.Text = Str(a(6))         '④

End Sub