public sub ftsendstr(byval sendstr as string, byval rs232 as io.ports.serialport)
dim i as integer
dim sj() as byte
redim sj(len(sendstr) / 2 - 1)
for i = 0 to len(sendstr) / 2 - 1
sj(i) = val("&h" & mid(sendstr, i * 2 + 1, 2)) '將字串中對應的兩個字元放入相應陣列中；
next
if rs232.isopen then
rs232.write(sj, 0, sj.length)
else
msgbox("埠未開啟或被占用！")
end if
end sub
隨機雜湊的實現（VB2005）
編寫過程式的人都知道，隨機雜湊是我們經常要實現的問題。什麼是隨機雜湊？比方說，現在有乙個數列1 2 3 4 5 6。我希望得到乙個隨機的打亂順序的數列，例如 2，5，6，3，4，1。這個新的數列就是原數列的隨機雜湊。實際情況中，我們經常需要給定乙個範圍，就能得到乙個隨機雜湊。比方說 給定 2，7 通...
遍歷組合的實現 VB2005
在數學的統計分支裡，排列與組合是乙個很重要的分支。在各種實際應用中，排列與組合也扮演了重要的角色。舉例來說，安排人員參加活動可以看作是組合的應用。比方說，現在有十個人，選出其中的五個人參加某項集體活動。由於彼此之間有著脾氣性格等因素，所以，不同的人員組合有著不同的工作效率。現在，要求你找出效率最高的...
遍歷組合的實現 VB2005
在數學的統計分支裡，排列與組合是乙個很重要的分支。在各種實際應用中，排列與組合也扮演了重要的角色。舉例來說，安排人員參加活動可以看作是組合的應用。比方說，現在有十個人，選出其中的五個人參加某項集體活動。由於彼此之間有著脾氣性格等因素，所以，不同的人員組合有著不同的工作效率。現在，要求你找出效率最高的...