Private sub Command1_Click()

        Dim a As Single

        Dim py As String

             a= Val (Text1)  （1）

           If a>0 Then py =”正数”

           If a=0 Then py=”零”

           If a<0 Then py=”负数”

              Label3.Caption=a（2）

     End Sub

小张编写 VB 程序，实现如下功能：在前 100 个偶自然数中，计算恰好有四位为 1 的二进制数的个数， 如图所示，单击“计算”按钮 Command1，在文本框 Text1 中显示符合条件的个数，在列表框 List1 中显示符合条件的二进制数。VB 程序代码如下：

提示：本题“除 2 取余倒排法”的方法将十进制转化为二进制，算法如下： 例如十进制数“97”转化为二进制的过程如右图所示：

因此“97”二进制值为：1100001

x=Text1.Text

p=0

For i=1 to Len(x)

 If Mid(x,i,1)=“a” Then p=p+1

Next i

Print p

若程序运行时，在文本框Text1中键入“Are you happy”，则运行结果是（  ）