vb中位操作 （在线等，满意即结贴） - VB / 基础类
一个整形变量 a
我现在想取 a 的第二字节 加上 （第一字节的后四位） 的计算结果，哪位能帮忙？
Dim val As Long
val = &HFFFFFFFF
val = val And &HFF0F&
Debug.Print Hex(val)
&HFF0F&
是什么意思？
&HFFFFFFFF ？
val = &HFFFFFFFF换成你自己的值
就是我转换前的 Integer 变量？
那 &HFF0F& 呢，什么意思？ 你给的这个算法能给解释下吗
你先说一个具体的例子，integer是多少，计算后又是多少？
好的。在c里，是这样做的，取integer型变量的第二字节，第二字节 加上 （第一字节 and 0F）
a=19984
转换后，得到十进制的78
VB code:
Option Explicit
Sub Main()
Dim a As Long
Dim b As Long
a = 19984
b = ((a And &HFF00&) \ &H100&) + (a And &HF&)
Debug.Print b
End Sub
第一字节的低四位与第二字节8位
首先注意,VB中的integer相当于c中的signed short,long相当于signed int，
Dim a As Integer
Dim b As Integer
Dim c As Integer
a = 19984
b = a / 256//相当于右移8位,得到第二个字节
c = a And &HF //保留第一字节的后4位
a = b + c
谢谢，我调试下看看
搞定了，谢了
相关问答：
我在类中有一个函数
Public Function DownloadAdditionalSite(SiteName As siteconfig, Directory As String, ymd As String) As Boolean
siteconfig是我自定义类型的数据，为什么会提示“只有在公共对象模块中� ......
我想把word另存为xml之后，用vb读取这个xml的内容，请问如何实现？
dim f as integer
dim b() as byte
dim s as string
dim L as long
f=freefile()
open "abc.xml" for binary access read as #f
......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
怎么把已知的数据保存成xml文件，现在已知的数据是
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o=& ......
