vb6 - 如何从vb6中的整数值中删除最后一个字符

Question

你好，我正在尝试制作一个代码，从整数示例中删除最后一位数字

int num = 1234

成为

int num 123

我在 C# 中执行了相同的代码，但我在 vb6 上执行失败，这是 C# 代码。

num = num.Remove(num.length -1)

在 vb6 上我试过这样的东西

num = Len(num) -1 

但它所做的只是来自

num = 1234

成功了

num = 1233

或者只是展示

num = 3 

因为删除了第 4 个数字

Answer 1

您走在正确的道路上。缺少的关键步骤是在操作之前将数字转换为字符串。

Option Explicit

Private Sub Command1_Click()
   Dim num As Integer
   Dim s As String
   
   num = 1234
   s = CStr(num)              'convert number to a string
   s = Left(s, Len(s) - 1)    'remove last digit
   num = CInt(s)              'convert string back to a number
   
   Debug.Print num
End Sub

您的代码中的错误是对整数使用 Len。来自文档:

Returns a Long containing the number of characters in a string or the number of bytes required to store a variable.