Question

用vb编写程序，你至今生活了多少天

输入生日，显示生活了多少天
提示：
使用today()函数获取当前日期
使用datevalue函数将日期字符串转换成日期值
使用datediff函数计算当前日与生日之间天数差，得到存活天数
用控制台程序编写

Answer 1

首先构思：

这肯定是一个计算题，只有起始日期和结束日期才能得出天数，起始日期因人而异，所以要有一个人机对话框，结果日期当然是今天

其次思考一下以哪种方式进行人机对话，以及用哪种方式呈现计算结果

实现过程：

新建一个工程，在窗体上插入一个命令按钮，将其caption属性修改为“测试你至今活了多少天”，双击命令按钮进入代码窗口，键入以下代码：

Private Sub Command1_Click()
    Dim i As Date, s As Integer
    i = InputBox("请输入你的出生年月日")
    s = Date - i
    MsgBox "你到今天为止已经活了" & s & "天"
End Sub

可以先测试一下代码运行情况，再生成exe执行文件即可

Answer 2

首先获取万年历计算那一天是阳历什么日期。
然后VB有现成的函数做这种事情，DateDiff函数用来干嘛的？你也不好好去查查

Answer 3

    Sub Main()

        Console.WriteLine("输入您的生日，格式：1990-1-15")
        Dim sr As Date = DateValue(Console.ReadLine.ToString)
        Dim ts As Integer = DateDiff(DateInterval.Day, sr, DateValue(Today()))
        Console.Write("天数：" & ts)
        Console.ReadKey()

    End Sub

Answer 4

Private Sub Command1_Click()
   Dim day1, day2
   Dim c As String
   If IsDate(Text1.Text) Then
      day1 = Date
      day2 = DateValue(Text1.Text)
      MsgBox "你至今活了" & DateDiff("d", day2, day1) & "天。"
   Else
      MsgBox "请正确的输入日期！"
   End If
End Sub

Answer 5

680 我的五福临门灭我发给孟凡