如何在Basic语言中提取数字每一位？三位含小数数字处理故障

嘿，这个问题我之前写Basic小程序时也踩过坑！你原来的公式失效，核心原因是Basic里的/是浮点除法——哪怕两个整数相除，结果也会保留小数位，比如598/100得到的是5.98，而不是你想要的整数5。下面给你两种靠谱的解决办法，适配大多数Basic方言（比如QBASIC、Visual Basic）：

方法1：整数除法 + 取模运算 #

大多数Basic版本都支持整数除法运算符\，它会自动舍去除法结果的小数部分，正好匹配我们提取整数位的需求。调整后的提取逻辑如下：

• 第一位（百位）：FIRST_DIGIT = number \ 100
• 第二位（十位）：SECOND_DIGIT = (number \ 10) MOD 10
• 第三位（个位）：THIRD_DIGIT = number MOD 10

拿你举的598例子测试：

• 598 \ 100 → 直接得到整数5
• (598 \ 10) MOD 10 → 先做整数除法得到59，再取模10得到9
• 598 MOD 10 → 直接得到8

如果输入的数字带小数（比如598.6），只要先把它转成整数就行，用INT(number)或者CINT(number)截断小数部分：

number = INT(number) ' 先处理掉小数，确保是整数

方法2：转字符串提取（更直观） #

如果觉得算术运算绕，把数字转成字符串再按位置提取也是个好办法，逻辑更易懂：

DIM numStr AS STRING
' 先转成整数再转字符串，避免小数部分干扰
numStr = STR$(INT(number))
' 按位置提取字符，再转成数字
FIRST_DIGIT = VAL(MID$(numStr, 1, 1))
SECOND_DIGIT = VAL(MID$(numStr, 2, 1))
THIRD_DIGIT = VAL(MID$(numStr, 3, 1))

这个方法的好处是，哪怕数字是带前导零的情况（比如012），也能直接提取每一位，不需要额外处理。

小提醒 #

如果用户输入的数字可能小于100（比如99），你可能需要加个判断，比如先检查数字的位数，再决定是否补零或者调整提取逻辑，避免出错。

内容的提问来源于stack exchange，提问作者Igor Petev