UC知道VB For循环的菜鸟问题.....
来源：百度知道 编辑：UC知道 时间：2024/06/14 15:28:48
先看下面的一个计算
Dim A As String
Text1.Text = "2206415"
A = Hex(Text1.Text)
For i = 1 To Len(A) Step 2
S = Hex(Val("&H" & Mid(A, i, 2)) Xor &H6E)
Text5.Text = S & Text5.Text
Next
输出结果是A1C44F是正确结果
我想把输出的每位写入到一个数组里 怎么写呢?
比如A1C44F写入
Dim Id1(0 To 14) As Byte
Id1(0) = &HA1
Id1(1) = &HC4
Id1(2) = &H4F
高手帮帮啊 T T ....
就是把循环中得到的数据写入到数组里
......这么多答案 我都不知道选哪个了..
Dim A As String
Text1.Text = "2206415"
A = Hex(Text1.Text)
For i = 1 To Len(A) Step 2
S = Hex(Val("&H" & Mid(A, i, 2)) Xor &H6E)
Text5.Text = S & Text5.Text
Next
输出结果是A1C44F是正确结果
我想把输出的每位写入到一个数组里 怎么写呢?
比如A1C44F写入
Dim Id1(0 To 14) As Byte
Id1(0) = &HA1
Id1(1) = &HC4
Id1(2) = &H4F
高手帮帮啊 T T ....
就是把循环中得到的数据写入到数组里
......这么多答案 我都不知道选哪个了..
题目什么意思啊？补充！
=====================
Dim A As String
Dim Id1(0 To 14) As String
Text1.Text = "2206415"
A = Hex(Text1.Text)
For i = 1 To Len(A) Step 2
S = Hex(Val("&H" & Mid(A, i, 2)) Xor &H6E)
ld1((i-1)/2)=S
Next
Dim Id1(0 To 14) As Byte
Dim A As String
Text1.Text = "2206415"
A = Hex(Text1.Text)
For i = 1 To Len(A) Step 2
Id1(i-1) = Val("&H" & Mid(A, i, 2)) Xor &H6E
Next
For i = 1 To Len(A) Step 2
Id1(i - 1) = CByte(Val("&H" & Mid(A, i, 2)) Xor &H6E)
...
Next