阅读下面的诗，回答相关问题。

                                                                                                         滁州西涧
                                                                                          独怜幽草涧边生，上有黄鹂深树鸣。
                                                                                          春潮带雨晚来急，野渡无人舟自横。

Private Sub Command1_Click()

Dim a as Integer

a=Val(Text1.text) ‘将文本框中的数字文本转换成数值

a=2*a+1

Text1.text = StrA.

End Sub

程序运行时在文本框Text1中输入1，连续两次单击命令按钮Command1后，Text1中显示的内容是：（   ）