VB程序猜生日怎么写？

Dim count1 As Integer

Private Sub Command1_Click()

count1 = count1 / 2

text

End Sub

Private Sub Command2_Click()

count1 = count1 + count1 / 2

text

End Sub

Private Sub Command3_Click()

MsgBox "恭喜你猜对了！", 65, "提示！"

End Sub

Private Sub Form_Load()

count1 = 16

text

End Sub

Private Sub text()

Form1.Caption = "生日是" &Str(count1)

End Sub

软件版本：excel2019。我们需要打开我们的电脑，进入电脑桌面，打开我们电脑桌面的excel，新建一个空白文档。然后我们需要做的是，然后我们输入我们要处理的数据，一列是我们要处理的身份z号码，一列是我们的出生日期哦。之后我们需要做的是，我们选中出生日期第一个需要输出日期的单元格，然后手动输入我们对应的出生日期。最后我们需要做的是，选中下一个单元格，按快捷键“CTRL+E”即可快速提取我们的出生日期了哦。

excel的特点主要用于对数据的处理、统计分析与计算，简单的数据库管理，能绘制图表，具有检查与删除宏病毒的功能，并能与Internet网络共享资源。此外，还能利用Visual Basic for Application(VBA)语言开发面向特定应用的程序。

好处：

1、功能全面：几乎可以处理各种数据。 *** 作方便：菜单、窗口、对话框、工具栏。

2、丰富的数据处理函数、丰富的绘制图表功能:自动创建各种统计图表 、丰富的自动化功能：自动更正、自动排序、自动筛选等。

3、运算快速准确、方便的数据交换能力、新增的Web工具。

Microsoft Excel是Microsoft为使用Windows和Apple Macintosh *** 作系统的电脑编写的一款电子表格

软件。直观的界面、铯的计算功能和图表工具，和上成功的市场营销,使Excel成为最流行的个人计算机

数据处理软件。在1993年，作为Microsoft Office的组件发布了5.0版之后，Excel就开始成为所适用 *** 作平台

上的电子制表软件的霸主。Microsoft Office是一套由微软公司开发的办公软件套装，它可以在Microsoft

Windows、Windows Phone、Mac系列、iOS和Android等系统 上运行。与其他办公室应用程序一样,包

括联合的服务器和基于互联网的服务。从2007版的Office被称为"Office System”而不叫"Office Suite"，

反映出它们包括服务器的事实。

---