为了下1个项目用的：

Form的Picture属性：图片背景

Label的alignment属性：内容居右

对布尔变量的交互使用

if Not firstflag Then

            If Not res Then

                dataout.Caption = ""  '当点击第1个数字时

                dataout.Caption = dataout.Caption & Index

            Else

                dataout.Caption = Index

                res = False

            End If

            firstflag = True

Else                                '当点击不是第1次时

            If Not res Then

                'dataout.Caption = ""

                dataout.Caption = dataout.Caption & Index

            Else

                dataout.Caption = Index

                res = False

            End If

End If

关于不等的利用：

If (dataout.Caption <> "") Then

End if 

毛病缘由：未写endif