新建From1(窗体),新建Command1(按钮CommandButton),代码:
Private Sub Command1_Click() Dim bArr(1) As Byte Dim sMe As String bArr(0) = 206 bArr(1) = 210 sMe = StrConv(bArr, vbUnicode) MsgBox sMe End Sub
显示:
我