VB小程序，关注我有更多的有趣的VB小程序

1、数字大小写转换

界面：

代码：

Private Sub Command1_Click()

Const dx = "零一二三四五六七八九"

Dim s As String, x As Integer

Dim ans As String, i As Integer

s = Text1.Text

For i = 1 To Len(s)

VB小程序，身份证信息提取，有兴趣的童鞋可以试着操作一下，我将不定期的发一些有趣的VB小程序，

要求：输入身份证号码后可以识别年龄、性别，生日

程序启动时自动加载字体、字号、背景颜色

控件：4个Label标签控件、4个Textbox文本框控件、2个Command命令按钮

界面：

代码：

Option Explicit

Dim sfzh As String

Private Sub Command1_Click()

VB6.0是一种可视化编程软件，只需要拖动所需的控件，然后点击控件之后编写相应的代码就可以实现功能。我们现在利用VB6.0实现标题的显示与隐藏，也就是Lable控件和Command控件。虽然软件较为落后，但仍不失为经典，现在所有工控机软件大多还都是用VB编写。

1.首先，我们打开软件，建立一个exe文件。

2.建立EXE工程之后，上面为标题栏，左侧为控件区域，Form为窗体，所有的控件都在窗体中放置，控件可随意拖动。右侧分为两栏，上边为工程目录，显示工程下面创建的窗体，下边为属性窗口，可以针对不同的控件进行属性修改，比如对按键的名称，标签的颜色等等。

之前视频课程给大家讲解了，如何用简单的编程技巧实现数据筛选，今天通过本节课把整体思路再给大家讲解一下。

筛选功能

从成千上万条数据组合中，筛选出满足要求的数据，比如通过下方筛选效果的动态图，可以看到，当我们在文本框内分别输入7，10，25时，我们的自编软件可以快速的把包含这三个数字的号码组合全部筛选和加载出来。

之前的课程给大家讲过，如何用excel函数实现筛选查询，但是用excel函数实现该功能的话，功能比较单一和刻板，而且实现起来比较复杂，而通过VB编程软件实现，只需要十几行简单的编程代码就可以轻松实现，逻辑要简单很多，也可以演化出更多功能，接下来，就来看看我们是怎么实现的。

VB小程序，关注我有更多的有趣的VB小程序

实现功能：输入体重和身高就能计算出体重过重还是过轻还是刚刚好

实现方法：BMI指数=体重/身高的平方

控件：五个Label标签、两个TextBox文本框、一个Command命令按钮

界面：

代码：

Private Sub Command1_Click()

Dim h, m, bmi As Single

Dim x As String