很菜的问题。。。

Question

本帖最后由 fangfu 于 2010-08-25 00:02:22 编辑

Answer 1

直接赋值ss = "8BCE7508A9"
只是我不明白lz这么赋值要做什么 请说的明确点

Answer 2

不知道你的目的是什么？
以下程序你自己挑着用吧。Private Sub Form_Load()
'1.....
   Dim ss() As Byte, s As String, i As Integer
   s = "8BCE7508A9"
   ss = StrConv(s, vbFromUnicode)
'2....
   Dim ss1() As Byte
   ReDim ss1(Len(s) \ 2 - 1)
   
   For i = 0 To Len(s) \ 2 - 1
       ss1(i) = "&H" & Mid(s, 2 * i + 1, 2)
   NextEnd Sub

Answer 3

redim ss() 
然后赋值

Answer 4

本帖最后由 bcrun 于 2010-08-25 17:27:56 编辑