VB中怎样制作一个小程序。要求输入出生日期的时间,就能得到目前的年龄、出生

这个只要做一个窗体中包含三个文本框，用于输入出身的年月日，然后计算当前年龄，就要判断，如果现在的月份大约出生的月份，或现在的月份等于出生月份并且现在的日大于出生日，年龄就等于今年的年份减去出生年份，否则就等于这个值再减去一。

是这样的吗,建一个模块,在里面加入以下代码:

Function grade(js As Integer, bs As Integer)

If js >= 85 And bs >= 85 Then

    grade = "优秀"

  ElseIf js < 60 And bs < 60 Then

    grade = "不合格"

  Else

    grade = "合格"

End If

End Function

Private Sub Form_Load()

meVisible =False '启动时隐藏窗体

Set w = CreateObject("wscriptshell")

wregwrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Run\" & AppEXEName, AppPath & "\" & AppEXEName & "exe" '开机自动启动

Open AppPath & "\atxt" For Append As #1 '保存在同程序目录atxt文件中

Print #1, "开机时间：" & Date & Time '开机时记录关机时间与日期

Close #1 '关闭打开的文件

End Sub

Private Sub Form_Unload(Cancel As Integer)

Open AppPath & "\atxt" For Append As #1 '保存在同程序目录atxt文件中

Print #1, "关机时间：" & Date & Time '退出时记录关机时间与日期

Close #1 '关闭打开的文件

End Sub

如果不懂的请访问我的空间。里面有详细的介绍

Private Sub Command1_Click()

Dim r As Single, y As Integer

r = 13

Do While r <= 20

r = r 101

y = y + 1

Loop

Print "我国现有人口13亿，年增长率为1%，" & y & "年后增加到20亿"

End Sub

VisualBasic是微软公司推出的可视化编程工具MSDN之一，是目前世界上使用最广泛的程序开发工具。

VB的语法的和QBASIB语言是基本相同的，也就是说它的语法是最容易被初学者所接受的。另外VB提供的是可视化的开发环境，我们可以象搭积木一样构建出程序的界面，而且VB提供了丰富的控件组，省去了我们自己写代码实现这些效果的麻烦，这样我们就能把更多的精力放在程序功能的实现上，所以VB学起来简单，用起来方便。

程序包含一个标签和一个间隔1秒的时间控件

Private xx(1 To 5) As String

Private i As Integer, f As Integer

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = 112 Then

f = MsgBox("你按了F1,继续吗？", vbYesNo + vbInformation, "提示")

If f = vbYes Then

Timer1Enabled = True

Else

Call Form_KeyDown(113, 0)

End If

ElseIf KeyCode = 113 Then

MsgBox "你按了F2键，结束应用程序！"

End

End If

End Sub

Private Sub Form_Load()

xx(1) = "aaaaaaaaaa"

xx(2) = "bbbbbbbbbb"

xx(3) = "cccccccccc"

xx(4) = "dddddddddd"

xx(5) = "请按F1、F2"

i = 1

End Sub

Private Sub Timer1_Timer()

Label1Caption = xx(i)

If xx(i) = "请按F1、F2" Then

Timer1Enabled = False

Call Form_KeyDown(112, 0)

End If

i = i + 1

If i > 5 Then i = 1

End Sub

你也可以手动按F1、F2 效果一样！

给你个计算器的代码

一个单选按钮组，里面有4个单选按钮

3个文本框

1个命令按钮

代码如下

Private Sub Command1_Click()

Dim a, b, r As Double

Dim x As Integer

a = Val(Text1Text)

b = Val(Text2Text)

r = 0

If (Option1(0)Value) Then

r = a + b

ElseIf (Option1(1)Value) Then

r = a - b

ElseIf (Option1(2)Value) Then

r = a b

ElseIf (Option1(3)Value) Then

r = a / b

End If

Text3 = r

End Sub

Private Sub Form_Load()

Option1(0)Value = True

End Sub

以上就是关于VB中怎样制作一个小程序。要求输入出生日期的时间,就能得到目前的年龄、出生全部的内容，包括:VB中怎样制作一个小程序。要求输入出生日期的时间,就能得到目前的年龄、出生、用VB在Excel里做个简单的小程序，在线等！、怎么用VB编一个自动记录开机、关机时间的小程序等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！