Dim n,s As Integer    'n为试题计数器,s为得分

Dim a, b As Integer  'a，b 为两个运算数

Dim c As String 'c为运算符："+ "表示加法，"-"表示减法

Private Sub Form_Load()

n = 0:

s = 0

End Sub

Private Sub Command1_Click()   ‘出题按钮

Randomize

n = n + 1

If n < 11 Then

      Label1.Caption = "No：" + Str(n)

      a = Int(Rnd * 100)  'a，b为运算数，且要求a不小于b

      b = Int(Rnd * 100)

      If   {#blank#}1{#/blank#}Then t = a: a = b: b = t                '(1)

      If  Rnd > 0.5  Then c = "+" Else{#blank#}2{#/blank#}        '(2)

      Label5.Caption = Str(a) + c + Str(b) + "="

      Text1.Text = ""

Else

   Command1.Caption = "完成测试"

End If

End Sub

Private Sub Command2_Click()   ‘判断按钮

If c = "+" Then

             If   a + b = Val(Text1.Text) Then  s = s + 10

           Else

             If  {#blank#}3{#/blank#}Then  s = s + 10    '(3)

End If

Label3.Caption = "得分:" + Str(s)

End Sub

①密码是六位数字，前面两位为59；

②最后两位数字相同；

③能被12和38整除。

程序界面如图1所示，单击 “帮助找回密码”按钮（Command1）后，可能的密码显示在列表框List1中。

Private Sub Command1_Click()

    Dim Pi As Single, t  As Single

    Dim n As Integer, s As Integer

    Pi = 0

    t = 1: n = 1:s =1

    Do While Abs(t) >= 0.0001

        Pi = Pi + t

        n = {#blank#}1{#/blank#}

        s= {#blank#}2{#/blank#}

        t = s *1 / n

    Loop

    Text2.Text ={#blank#}3{#/blank#}

End Sub

Dim i As Integer, s As Integer

Dim a (1 To 10)As Integer

For i =1 To 10

a(i)=i^2

If a(i)Mod 3=0 And a(i)Mod 5 =0 Then s= 50000+ a(i)

If a(i)Mod 3=0 Or a(i) Mod 5 =0 Then s =s+ a(i)

Next i

Text1. Text Str(s)

执行该程序段后，下列说法正确的是（  ）