面试题：Visual Basic中数据类型转换及变量声明细节

Question

在Visual Basic中，假设有一个字符串变量`strNum = "123"`，要将其转换为整型变量并进行计算`intResult = intNum + 5`，请写出完整代码，包括变量声明和类型转换过程。同时说明如果字符串内容为非数字时，可能会出现什么情况以及如何处理。

Answer 1

Dim strNum As String
Dim intNum As Integer
Dim intResult As Integer

strNum = "123"

On Error Resume Next
intNum = CInt(strNum)
If Err.Number <> 0 Then
    '处理非数字情况
    MsgBox "字符串内容不是有效的数字"
    Exit Sub
End If
On Error GoTo 0

intResult = intNum + 5

如果字符串内容为非数字时，使用CInt函数进行类型转换会引发错误。通过On Error Resume Next语句可以捕获错误，当发生错误时，Err.Number会被设置为非零值，此时可以通过MsgBox提示用户字符串不是有效的数字，然后通过Exit Sub退出当前过程避免后续错误。使用完On Error Resume Next后，通过On Error GoTo 0恢复正常的错误处理机制。