单击“计算”按钮Command1后，则在文本框Text2中显示的内容是{#blank#}1{#/blank#}，在文本框Text3中显示的内容是{#blank#}2{#/blank#}。

  Private Sub Command1Click()

Dim s As Integer, t As Integer, n As Integer

n = Val(Text1.Text)

t = 0

s = 0

For i = 1 To n

     If Int(Sqr(i)) = Sqr(i) Then

        s = s + i

        t = t + 1

     End If

Next i

Text2.Text = Str(t)

Text3.Text = Str(s)

End Sub

具体方法为：（1）若身份证号为15位，则根据第15位数字来判断，若为偶数则性别“女”，否则为“男”；（2）若身份证号为18位，则根据第17位数字来判断，若为偶数时则性别为“女”，否则为“男”。

图1

 S=0

 For i =         to 5

   S = s+i

 Next i

该程序运行后，循环体  S = s+i被执行4次，则循环变量i的初值是（     ）

a = 5

b = Len("1011")

If a > b Then

  Label1.Caption = "请重新输入"

Else

 Label1.Caption = "欢迎光临"

End If

该程序段运行后，在标签Label1上显示的是{#blank#}1{#/blank#}。