Dim A(10)，B(5)

   For i = 1 To 10

       A(i) = i

       Next i

   For j = 1 To 5

       B(j) = j * 20

   Next j

   A(5) = B(2)

   Print "A(5)=";A(5)

  Privat Sub Command1 Click

      Dim array1(10,10) As Integer

      Dim i AS integer, j As Integer

      For i = 1 To 3

          For j = 2 To 4

              array1(i,j) = i + j

          Next j

      Next i

  Text1.Text=array1(2, 3)+array1(3, 4)

  End Sub

程序运行后，单击命令按钮，在文本框中显示的值（  ）

Private Sub Command1_Click()

Dim r As Single, s As Single            '①

r="10米"                     '②

s=3.14159*r*r            '③

Text2.Text ="某个半径为"+ Str(r)+"米的圆,其面积为"+ Str(s)+"平方米."             '④

End Sub

则程序中出错的语句是（   ）

彩票中心编写一个程序，功能为：随机生成7个不重复的中奖号码，并读取文件“彩票记录.txt”(该文件存储所有已售出的彩票号码)，最后根据兑奖规则输出开奖结果，运行界面示例如下：