有没有大佬能给我解释一下5题和6题，第一张图是第五题的。
谢谢。

第5题，你给出的代码思路如下：
将输入的数x分为整数部分和小数部分，首先用Int取出整数部分x1，然后从x中减去x1，x中剩下的就是小数部分
对整数部分循环除10取余，将每一位余数累加求和，直到剩余的整数变为0为止
对小数部分循环乘10取整，将每一位整数部分累加求和，直到剩余的小数变为0为止（由于会有误差，因此用绝对值大于某一足够小的正数表示小数非0）
第6题思路：
循环取出字符串的每一个字符，判断是否介于"0"和"9"之间，如果是，则计数加1；循环结束后，返回计数变量的值

第5题是考你对字符串的理解，以及数字字符的ASCII码和本身值之间的关系，So,代码如下
Dim s() As Byte
s = "234.56"
Dim sum As Integer
Dim i As Integer
For i = 0 To UBound(s) Step 2
If s(i) <> 46 Then
sum = sum + s(i) - 48
End If
Next

'第六题考查的知识点差不多，So 代码也差不多，数字ASCII码范围是48-57
Dim s() As Byte
s = "26jjsdjf.45lkl464645;"
Dim i As Integer, count As Integer
For i = 0 To UBound(s) Step 2
If s(i) > 47 And s(i) < 58 Then
count = count + 1
End If
Next