Question

VB中如何将字符串和数字相加？ "A0001" + 1=A0002 ？？？

"A0001" + 1=A0002 ？？？

Answer 1

Private Function AddStr(str1, str2)
AddStr = Left(str1, 1) & Format(Mid(str1, 2, Len(str1) - 1) + Val(str2), "0000")
End Function

Private Sub Form_Click()
a = "A0001"
b = 1
MsgBox AddStr(a, b)
End Sub
经过验证通过，可直接调用addstr函数实现所需要的功能

Answer 2

把字副串用Right函数分开！再用Val函数把数值一部分转换成数值型再和后面相加！再与字符窜连接

Answer 3

把里面的数字提取出来,再和1加最后再处理结果
Format(结果, "A0000")
应该可以吧