VB写程序:1.将三位整数分离得到个十百位

这个简单，给你一个思路具体的你自己编译下
任意三个数字组成的三位数字可以这样便例如A、B、C三字数组成ABC数那么百位就用A*100，十位B*10个为就用C*1，A*100+B*10+C*1就是组成的新数，那倒推回去就可以想成ABC\100（去整数部分的除号）,百位的变为单数，这样就能分离了，可以分别显示

Private Sub command1_click()
Dim number1 As Integer
Dim number2(2) As Integer
number1 = InputBox("请输入一个三位数字")
number2(0) = number1 \ 100 '取百位数字
number2(1) = (number1 - (number1 \ 100) * 100) \ 10 '取十位数字
number2(2) = number1 Mod 100 Mod 10 '取个位数字
MsgBox ("百位数：" & number2(0) & vbCrLf & "十位数：" & number2(1) & vbCrLf & "个位数：" & number2(2))
End Sub

Dim num As Long
Dim s As Integer ' 个位
Dim ten As Integer ' 十位
Dim hundred As Integer ' 百位

num = 135
hundred = num / 100
ten = Int((num - hundred * 100) / 10)
s = num - hundred * 100 - ten * 10

Print hundred
Print ten
Print s