Question

VB怎么提取文本框中的数的个位十位百位？

Answer 1

Dim num As Integer, bai, shi, ge。

num = 789。

bai = num \ 100'取百位。

shi = num \ 10 Mod 10'取十位。

ge = num Mod 10 '个位。

事件驱动的编程机制：面向过程的程序是由一个主程序和若干个子程序及函数组成的。程序运行时总是先从主程序开始，由主程序调用子程序和函数，开发人员在编程时必须事先确定整个程序的执行顺序。

而Visual Basic 6.0事件驱动的编程是针对用户触发某个对象的相关事件进行编码，每个事件都可以驱动一段程序的运行。开发人员只要编写响应用户动作的代码。这样的应用程序代码精简，比较容易编写与维护。

扩展资料

窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮)。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。

很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。

Answer 2

Dim num As Integer, bai, shi, ge。

num = 789。

bai = num \ 100'取百位。

shi = num \ 10 Mod 10'取十位。

ge = num Mod 10 '个位。

事件驱动的编程机制：面向过程的程序是由一个主程序和若干个子程序及函数组成的。程序运行时总是先从主程序开始，由主程序调用子程序和函数，开发人员在编程时必须事先确定整个程序的执行顺序。

而Visual Basic 6.0事件驱动的编程是针对用户触发某个对象的相关事件进行编码，每个事件都可以驱动一段程序的运行。开发人员只要编写响应用户动作的代码。这样的应用程序代码精简，比较容易编写与维护。

扩展资料：

窗体控件的增加和改变可以用拖放技术实现。一个排列满控件的工具箱用来显示可用控件（比如文本框或者按钮)。每个控件都有自己的属性和事件。默认的属性值会在控件创建的时候提供，但是程序员也可以进行更改。

很多的属性值可以在运行时候随着用户的动作和修改进行改动，这样就形成了一个动态的程序。举个例子来说：窗体的大小改变事件中加入了可以改变控件位置的代码，在运行时候每当用户更改窗口大小，控件也会随之改变位置。

参考资料来源：百度百科-Visual Basic

Answer 3

百位：
Text2.Text = Val(Text1.Text) \ 100

十位：
Text3.Text = Val(Text1.Text) \ 10 Mod 10

个位：
Text4.Text = Val(Text1.Text) Mod 10

追问

不能用“right”、"left"、"mid"函数提取吗？

追答

可以，但上面的方法才是标准的，而且适用于小于3位数的数。
下面的代码如果遇到小于3位的数会出错，所以在使用前要先检测输入的是否3位数

百位：
Text2.Text = Val(Left(Text1.Text, 1))

十位：
Text3.Text = Val(Mid(Text1.Text, 2, 1))

个位：
Text4.Text = Val(Right(Text1.Text, 1))