取一个文本框里显示的数字的个位数和十位数，求完整代码
比如Text1.Text里显示21
那么我想让十位数2显示在Text2.text
个位数1显示在Text3.Text
求完整代码

[此贴子已经被作者于2016-4-12 21:39编辑过]

我已经找到了
Private Sub Form_Load()
Dim num As Long, str As String
num = 12345
str = CStr(num) '将长整型转为字符串
MsgBox Mid(str, 1, 1) 'mid是从字符串里取出字符，第一个参数是从哪个字符串中取,第二个参数是取出的位置，第三个是取出的个数， 例如:(str,1,1) 是 1， (str,2,1) 是 2 ，(str,1,2) 是 12
End Sub

Private Sub Form_Load()
    a = "12345"
    For i = 1 To Len(a)
        MsgBox Mid(a, i, 1)
    Next
End Sub

Private Sub Command1_Click()
Dim a As String
a = InputBox("请输入一个三位数")
If Len(a) = 3 Then
 Text1.Text = "百位是" + Mid(a, 1, 1) + " 十位是" + Mid(a, 2, 1) + " 个位是" + Mid(a, 3, 1)
End If
End Sub

你这个代码用位置来判断不是很好，而且只能是用于正整数。如果数字复杂一点，比如负数、小数可能就又要改了。

另外一个思路灵活一点，你参考一下
dim num1, shiwei  as single
num1= 10010230.2
shiwei=num1 mod 100  '除以100的余数=30.2
shiwei= shiwei \ 10  '用上次运算的数30.2整除10，得到3

个位数，百位数，小数点之前、之后任意位都比较好提

Mid()函数

O(∩_∩)O谢谢，会了