vb中两个整形数据怎样才能赋到长整型中

2025-02-26 20:42:07

推荐回答（3个）

回答1：

楼上应该都行吧。其实转换成字符串，合并之后在赋值给一个长整数即可，但是不一定就符合长整数范围。

回答2：

Private Sub Command1_Click()
Dim a1 As Integer, a2 As Integer, b As Long
a1 = 20 '假如a1=20
a2 = 30 '假如a2=30
b = Val(a1 & a2)
Print b
End Sub

回答3：

Private Sub Command1_Click()
Dim a1 As Integer, a2 As Integer, b As Long
a1 = 123
a2 = 345
b = 9876541
str1 = Mid(CStr(a1), 1, 2)
str2 = Mid(CStr(a2), Len(CStr(a2)) - 1, 2)
str3 = Mid(CStr(b), 3, Len(CStr(b)) - 4)
b = CLng(str1 & str3 & str2)
Print b
End Sub