在VB编程中，输入三位数可以通过多种方法实现。以下是几种常见的方法：
使用InputBox函数
可以使用`InputBox`函数提示用户输入一个三位数，然后通过字符串操作提取出百位、十位和个位数字。
```vb
Private Sub Command1_Click（）
Dim x As String
x = InputBox（"请输入一个三位数"）
Dim X1 As Integer, X2 As Integer, X3 As Integer
X1 = Int（x / 100） ' 提取百位
X2 = Int（（x Mod 100） / 10） ' 提取十位
X3 = x Mod 10 ' 提取个位
MsgBox "百位数为： " & X1 & "， 十位数为： " & X2 & "， 个位数为： " & X3
End Sub
```
使用Mid函数
可以使用`Mid`函数从输入的字符串中提取出每一位数字。
```vb
Private Sub Command1_Click（）
Dim x As String
x = InputBox（"请输入一个三位数"）
Dim intNumber1 As Integer, intNumber2 As Integer, intNumber3 As Integer
intNumber1 = Val（Mid（x, 1, 1）） ' 提取百位
intNumber2 = Val（Mid（x, 2, 1）） ' 提取十位
intNumber3 = Val（Mid（x, 3, 1）） ' 提取个位
MsgBox "百位数为： " & intNumber1 & "， 十位数为： " & intNumber2 & "， 个位数为： " & intNumber3
End Sub
```
使用数学运算
可以通过数学运算从输入的整数中提取出每一位数字。
```vb
Private Sub Command1_Click（）
Dim x As Integer
x = InputBox（"请输入一个三位数"）
Dim X1 As Integer, X2 As Integer, X3 As Integer
X1 = x \ 100 ' 提取百位
X2 = （x Mod 100） \ 10 ' 提取十位
X3 = x Mod 10 ' 提取个位
MsgBox "百位数为： " & X1 & "， 十位数为： " & X2 & "， 个位数为： " & X3
End Sub
```
以上方法都可以实现输入三位数的功能，选择哪种方法可以根据具体需求和编程习惯来决定。