在VB编程中，输入一个三位数可以通过以下几种方法实现：
方法一：使用InputBox函数
你可以使用`InputBox`函数来提示用户输入一个三位数，并将其转换为整数类型。以下是一个示例代码：
```vb
Private Sub Command1_Click（）
Dim num As Integer
num = Val（InputBox（"请输入一个三位数："））
If num >= 100 And num <= 999 Then
' 输入有效，可以进行后续处理
MsgBox "输入的三位数是： " & num
Else
MsgBox "错误，请输入一个三位数（100-999）!"
End If
End Sub
```
方法二：使用Mid函数和Val函数
你可以使用`Mid`函数从用户输入的文本中提取每一位数字，并使用`Val`函数将其转换为数值类型。以下是一个示例代码：
```vb
Private Sub Command1_Click（）
Dim strNumber As String
strNumber = InputBox（"请输入一个三位数："）
If IsNumeric（strNumber） And Len（strNumber） = 3 Then
Dim intNumber1 As Integer
Dim intNumber2 As Integer
Dim intNumber3 As Integer
intNumber1 = Val（Mid（strNumber, 1, 1））
intNumber2 = Val（Mid（strNumber, 2, 1））
intNumber3 = Val（Mid（strNumber, 3, 1））
MsgBox "百位数为： " & intNumber1 & "， 百位数的立方为： " & intNumber1 ^ 3 & vbCrLf & _
"十位数为： " & intNumber2 & "， 十位数的立方为： " & intNumber2 ^ 3 & vbCrLf & _
"个位数为： " & intNumber3 & "， 个位数的立方为： " & intNumber3 ^ 3
Else
MsgBox "错误，请输入一个三位数!"
End If
End Sub
```
方法三：使用数组和循环
你可以使用数组来存储输入的三位数的每一位数字，并使用循环来提取和显示这些数字。以下是一个示例代码：
```vb
Private Sub Command1_Click（）
Dim strNumber As String
strNumber = InputBox（"请输入一个三位数："）
If IsNumeric（strNumber） And Len（strNumber） = 3 Then
Dim digits（2） As Integer
digits（0） = Val（Mid（strNumber, 1, 1））
digits（1） = Val（Mid（strNumber, 2, 1））
digits（2） = Val（Mid（strNumber, 3, 1））
MsgBox "百位数为： " & digits（0） & "， 百位数的立方为： " & digits（0） ^ 3 & vbCrLf & _
"十位数为： " & digits（1） & "， 十位数的立方为： " & digits（1） ^ 3 & vbCrLf & _
"个位数为： " & digits（2） & "， 个位数的立方为： " & digits（2） ^ 3
Else
MsgBox "错误，请输入一个三位数!"
End If
End Sub
```
方法四：使用随机数生成器
你还可以使用VB中的`Rnd`函数来生成一个三位随机数。以下是一个示例代码：
```vb
Private Sub Command1_Click（）
Dim num As Integer
num = Int（Rnd（） * 1000） + 100 ' 生成100到999之间的随机数
MsgBox "生成的三位随机数是： " & num
End Sub
```
以上方法都可以实现输入三位数的功能，你可以根据具体需求选择合适的方法。