将文本框的文本转换为整数

来自 MSDN

使用 CInt 函数提供从任何其他数据类型到 Integer 子类型的转换。例如，当通常发生货币，单精度或双精度算术时，CInt 强制执行整数运算。

假设你有 1 个按钮和 2 个文本框。如果你在 textbox1.text 5.5 和 textbox2.text 10 上键入。

如果你有这个代码：

Dim result = textbox1.text + textbox2.text
MsgBox("Result: " & result)
'It will output
5.510

要添加 2 个文本框的值，你需要使用 CInt(expression) 将其值转换为 Int。

Dim result = CInt(textbox1.text) + CInt(textbox2.text)
MsgBox("Result: " & result)
'It will output
16

注意：当值的小数部分恰好为 0.5 时，CInt 函数将舍入到最接近的偶数。例如， 0.5 轮到 0 轮， 1.5 轮到 2 轮，3.5 轮到 4 轮。四舍五入到最接近偶数的目的是为了补偿在将多个数字加在一起时可能累积的偏差。