编程论坛 → VB6论坛

[求助]取一个文本框里显示的数字的个位数和十位数

a1919735905 发布于 2016-04-12 21:18， 5735 次点击

取一个文本框里显示的数字的个位数和十位数，求完整代码

比如Text1.Text里显示21
那么我想让十位数2显示在Text2.text
个位数1显示在Text3.Text
求完整代码

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

6 回复

a19197359052016-04-12 21:45

我已经找到了

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

a19197359052016-04-12 23:54

回复楼主 a1919735905

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

a19197359052016-04-12 23:58

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

xiangyue05102016-04-13 16:03

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

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

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

yangfrancis2016-04-13 20:24

Mid()函数

a19197359052016-04-13 20:29

回复 5楼 xiangyue0510

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