Èç ¹û Òª Ä£ Äâ Õâ Ð© º¯ Êý £¬ ¿É ÒÔ Ê¹ ÓÃ ÏÂ Ãæ µÄ ´ú Âë £º 
     Declare Sub CopyMemory Lib "KERNEL32" Alias "RtlMoveMemory" ( _ 
     hpvDest As Any, hpvSource As Any, ByVal cbCopy As Long) 
     Function MKI$ (x As Integer) 
     temp$ = Space$(2) 
     hmemcpy ByVal temp$, x%, 2 
     MKI$ = temp$ 
     End Function 
     
     Function CVI (x As String) As Integer 
     If Len(x) <> 2 Then 
     MsgBox "Illegal Function Call" 
     Stop 
     End If 
     hmemcpy temp%, ByVal x, 2 
     CVI = temp% 
     End Function 
     
     Function MKL$ (x As Long) 
     temp$ = Space$(4) 
     CopyMemory ByVal temp$, x&, 4 
     MKL$ = temp$ 
     End Function 
     
     Function CVL (x As String) As Long 
     If Len(x) <> 4 Then 
     MsgBox "Illegal Function Call" 
     Stop 
     End If 
     CopyMemory temp&, ByVal x, 4 
     CVL = temp& 
     End Function 
     
     Function MKS$ (x As Single) 
     temp$ = Space$(4) 
     CopyMemory ByVal temp$, x!, 4 
     MKS$ = temp$ 
     End Function 
     
     Function CVS (x As String) As Single 
     If Len(x) <> 4 Then 
     MsgBox "Illegal Function Call" 
     Stop 
     End If 
     CopyMemory temp!, ByVal x, 4 
     CVS = temp! 
     End Function 
     
     Function MKD$ (x As Double) 
     temp$ = Space$(8) 
     CopyMemory ByVal temp$, x, 8 
     MKD$ = temp$ 
     End Function 
     
     Function CVD (x As String) As Double 
     If Len(x) <> 8 Then 
     MsgBox "Illegal Function Call" 
     Stop 
     End If 
     CopyMemory temp#, ByVal x, 8 
     CVD = temp# 
     End Function 
    Áí Íâ £¬ Õâ Ð© º¯ Êý »ù ±¾ ÉÏ ÊÇ Í¬ Ëæ »ú ÎÄ ¼þ ¶Á Ð´ ÓÐ ¹Ø µÄ ¡£ VBºÍ QBµÄ Ëæ »ú ÎÄ ¼þ ¶Á Ð´ ·½ ·¨ ÓÐ Ëù ²» Í¬ ¡£ QBÊ¹ ÓÃ FieldÓï ¾ä ¶¨ Òå ¼Ç Â¼ ÖÐ µÄ ¸÷ ¸ö ×Ö ¶Î £¬ Ëù ÒÔ Ðè Òª CV?ºÍ MK?$Á½ ×é º¯ Êý ¡£ ¶ø VBÖÐ Ê¹ ÓÃ ÓÃ »§ ¶¨ Òå Àà ÐÍ À´ ¶¨ Òå ¼Ç Â¼ ÖÐ µÄ ¸÷ ¸ö ×Ö ¶Î £¬ ×Ô È» ÎÞ Ðë CV?ºÍ MK?$Á½ ×é º¯ Êý ¡£ Àý Èç £º 
    Type Record ' ¶¨ Òå ÓÃ »§ ×Ô ¶¨ Òå Êý ¾Ý Àà ÐÍ ¡£ 
     ID As Integer 
     Name As String * 20 
    End Type 
     
    Dim MyRecord As Record ' Éù Ã÷ ±ä Á¿ ¡£ 
    Open "TESTFILE" For Random As #1 Len = Len(MyRecord
<END>