vb怎么转换股票数据如何用VBA从WIND里取股票数据

一、vb 怎么从接收区提取数据然后转换成chr

数据长度可以不固定，但通讯协议（数据包的格式与数据内容）应该是知道的。
先检测停止符号（不定长通讯一般用ASCII进行，其中含有结束符。
自己创建结束符也可以，但要保证通讯过程中不会与通讯内容产生相同情况）；
也可以在通讯的前几个字节中给出通讯总字节数。
从通讯缓冲区取出数据后，根据通讯协议将通讯内容变换、整理、排队，用函数再转换成字符。

二、VB数据类型转换

你先把 Text1.Text 转换为数字，用 CInt。
然后用 Hex 函数转换。
转换后得到字符串，在字符串 Lenth＝1 时在其前方加入 0。
if lum.length = 1 thenlum = 0 & lumend if注意，CByte 不是干这个的！十六进制数和 Byte 毫无关系啊

三、VB,运用秘密按钮实现两个数据相互转换。（做法：两数据转换需要第三个数据 就像杯子换水...command_1.）

因为Hex()函数返回一个字符串，字符串不能相除，所以Hex(c) / Hex(16 * 16 * 16) 是错误的，但是hex(c/(16*16*16))是正确的

四、VB中数据转换

Dim s As String, s1 As String, t() As StringDim t1() As String, t2() As String, t3() As StringDim k1 As Integer, k2 As Integer, k3 As IntegerOpen App.Path & "123.txt" For Input As #1Open App.Path & "直选.txt" For Output As #2Do Until EOF(1)   Line Input #1, s   If InStr(s, "直选复式") Then      t = Split(Replace(s, "直选复式", ""), "|")      If UBound(t) = 2 Then         t1 = Split(t(0), ",")         t2 = Split(t(1), ",")         t3 = Split(t(2), ",")         For k1 = 0 To UBound(t1)            For k2 = 0 To UBound(t2)               For k3 = 0 To UBound(t3)                  Print #2, t1(k1) & t2(k2) & t3(k3)               Next            Next         Next      End If   ElseIf InStr(s, "直选和值") Then      t = Split(Replace(s, "直选和值", ""), ",")      For k1 = 0 To UBound(t)         For k2 = 0 To 999            s1 = Format(k2, "000")            If Val(Left(s1, 1)) + Val(Mid(s1, 2, 1)) + Val(Right(s1, 1)) = Val(t(k1)) Then Print #2, s1         Next      Next   End IfLoopClose #2Close #1

五、VB 股票 自动委托 编程 软件 怎样用？

自动委托没什么大用途的 只是为了方便一些没时间操作电脑的人用。
能下单就可以了

六、如何用VBA从WIND里取股票数据

首先 你需要有个万德的帐号，因为取得股票也是需要excel登录万德插件的

七、VB,运用秘密按钮实现两个数据相互转换。（做法：两数据转换需要第三个数据 就像杯子换水...command_1.）

可以放到commnd.tag这个属性里，进行暂存command1.tag=aa=bb=cc=command1.tag

参考文档