vb6.0中也有，
10年積累的成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作經(jīng)驗(yàn)，可以快速應(yīng)對(duì)客戶對(duì)網(wǎng)站的新想法和需求。提供各種問題對(duì)應(yīng)的解決方案。讓選擇我們的客戶得到更好、更有力的網(wǎng)絡(luò)服務(wù)。我雖然不認(rèn)識(shí)你，你也不認(rèn)識(shí)我。但先網(wǎng)站設(shè)計(jì)制作后付款的網(wǎng)站建設(shè)流程，更有官渡免費(fèi)網(wǎng)站建設(shè)讓你可以放心的選擇與我們合作。
數(shù)字 就是讓這個(gè)數(shù)字為long型（隱式聲明Long 數(shù)據(jù)類型）
這就顯然是令數(shù)字0為long型的意思
如果不加就會(huì)默認(rèn)是integer型
有很多作用
c=a b 就是把a(bǔ)和b以字符串形式連接起來(lái)并賦給c
如果只是要將其它類型數(shù)據(jù)轉(zhuǎn)換為字符串只要用cstr(變量)就行了
dim x 在定義的時(shí)候就是把變量x定義為long型,就像 dim x as long 一樣的效果
H十六進(jìn)制數(shù) 的H表示后面的是十六進(jìn)制數(shù),還有O是表示后面的是八進(jìn)制數(shù)
VB中不能用。
VB也可以按位與運(yùn)算的。
x=15 and 8的值就是8。
VB中的And可以表示按位與，也可以表示邏輯與，就看參與運(yùn)算的量是什么類型的了。
注意只能對(duì)整型執(zhí)行按位運(yùn)算。浮點(diǎn)值必須轉(zhuǎn)換為整型后，才能執(zhí)行按位運(yùn)算。按位運(yùn)算采用二進(jìn)制（以 2 為基）形式計(jì)算兩個(gè)整數(shù)值。它們比較對(duì)應(yīng)位置上的位，然后基于比較的結(jié)果賦值。下面的示例演示了 And 運(yùn)算符。復(fù)制Dim x As Integerx = 3 And 5 前面的示例將 x 的值設(shè)置為 1。發(fā)生這種情況的原因如下：這些值以二進(jìn)制形式處理：二進(jìn)制格式的 3 為 011二進(jìn)制格式的 5 為 101And 運(yùn)算符比較這些二進(jìn)制表示方式，一次比較一個(gè)二進(jìn)制位置（位）。如果給定位置的兩個(gè)位都為 1，則將 1 放在結(jié)果中的該位置。如果任何一個(gè)位是 0，則將 0 放在結(jié)果中的該位置。在前面的示例中，按如下所示計(jì)算結(jié)果：011（二進(jìn)制格式的 3）101（二進(jìn)制格式的 5）001（二進(jìn)制格式的計(jì)算結(jié)果）計(jì)算結(jié)果以十進(jìn)制形式處理。值 001 是 1 的二進(jìn)制表示形式，因此 x = 1。除了在任何一個(gè)比較位是 1 或兩個(gè)比較位都是 1 的情況下將 1 賦予結(jié)果位以外，按位 Or 運(yùn)算與此類似。Xor 在比較的位正好只有一個(gè)是 1（而不是兩者都是 1）時(shí)將 1 賦給結(jié)果位。Not 采用單個(gè)操作數(shù)并反轉(zhuǎn)所有位（包括符號(hào)位），然后將該值賦予結(jié)果。這意味著，對(duì)于有符號(hào)正數(shù)，Not 始終返回負(fù)值，而對(duì)于負(fù)數(shù)，Not 始終返回正值或零。AndAlso 和OrElse 運(yùn)算符不支持按位運(yùn)算。 追問： 好復(fù)雜啊...還是不會(huì),還有整數(shù)怎么轉(zhuǎn)換為二進(jìn)制數(shù)? 回答： 為什么一定要用位運(yùn)算呢，你那個(gè)乘法只能通過左移操作符“ ”來(lái)進(jìn)行，而左移一次代表乘以2，要是乘以一個(gè)小數(shù)，就必須先化成2的n次方，不夠再用加減法調(diào)整，很麻煩啊，沒必要用位運(yùn)算啊。。。 追問： 因?yàn)槲乙M(jìn)行大量的運(yùn)算,但速度要快,所有用位運(yùn)算...我也不想啊.. 回答： 那就不該用VB 啊，c/c++在執(zhí)行效率上是沒話說的。 追問： 問題就是不會(huì)嘛... 回答： 那你上csdn上發(fā)帖效果應(yīng)該不錯(cuò) 追問： CSDN發(fā)了,我發(fā)在高性能運(yùn)算,沒人... 回答： 耐心一些，或者你應(yīng)該發(fā)到VB.NET論壇那里。。。 追問： 額..只能這樣了... 提問者 的感言： 太復(fù)雜了..算了 2010-11-08
用bitarray類和BitVector32類實(shí)現(xiàn)
VB實(shí)現(xiàn)大致如下：
Imports?System.Collections.Specialized
...
Dim?bvData?as?BitVector32
Dim?sec1?As?BitVector32.Section?=?BitVector32.CreateSection(255)
Dim?sec2?As?BitVector32.Section?=?BitVector32.CreateSection(255,sec1)
Dim?sec3?As?BitVector32.Section?=?BitVector32.CreateSection(255,sec2)
Dim?sec4?As?BitVector32.Section?=?BitVector32.CreateSection(255,sec3)
Dim?Buf(4096)?as?Byte?'receive?byte?size?matched?with?DSP?send?data:?1024*4Byte
Dim?recCount?as?Integer
Dim?Data(1024)?as?long
....
For?recCount?=?0?To?1023
bvData(sec4)?=?buf(recByte*4)
bvData(sec3)?=?buf(recByte*4+1)
bvData(sec2)?=?buf(recByte*4+2)
bvData(sec1)?=?buf(recByte*4+3)
Data(recCount)?=?bvData.Data?'這樣數(shù)據(jù)肯定是-398
Next
....
我覺得這樣處理可能會(huì)更好
雙擊該行，然后調(diào)用另外一個(gè)窗體，打開該行內(nèi)容，在另外的一個(gè)窗體上進(jìn)行編輯，編輯完成后，在保存
用法 RndString(xx) xx為隨機(jī)數(shù)字長(zhǎng)度
比如12位長(zhǎng)度的隨機(jī)字符串 則為 RndString(12)
字符串包含數(shù)字和大小寫字母，函數(shù)如下：
Function RndString(ByVal l As Integer) As String
Randomize()
Dim R, i As Integer
Dim S As Char
Dim returnStr As String
returnStr = ""
'a-z 的ASCII碼是：97-122
'A-Z 的ASCII碼是：65-90
'0-9 的ASCII碼是：48-57
For i = 1 To l
R = Int(Rnd() * 62) '隨機(jī)生成的字符有大小寫字母和數(shù)字，共有26個(gè)
If R 10 Then '如果小于10，則是數(shù)字 數(shù)字的ASCII是48-57 對(duì)應(yīng) 隨機(jī)數(shù)字 0-9 所以要將隨機(jī)數(shù)字加48
S = Chr(R + 48) 'Chr 是將把數(shù)字按Ascii碼轉(zhuǎn)換為對(duì)應(yīng)的字符
ElseIf R 36 Then '如果小于36，則是大寫字母 大寫字母的ASCII是65-90 對(duì)應(yīng) 隨機(jī)數(shù)字10-35 所以要將隨機(jī)數(shù)字加55
S = Chr(R + 55)
Else '如果大于36，則是小寫字母 小寫字母的ASCII是97-122 對(duì)應(yīng) 隨機(jī)數(shù)字36-62 所以要將隨機(jī)數(shù)字加61
S = Chr(R + 61)
End If
returnStr = returnStr + S
Next
RndString = returnStr
End Function
我給你點(diǎn)建議，雖然我給你解決不了。
你源程序有一個(gè)調(diào)用錯(cuò)誤，或者有一個(gè)系統(tǒng)參數(shù)丟失，你尤其是注意檢查，錯(cuò)誤列舉處的參數(shù)引用。（另外不排除內(nèi)存不足，造成溢出，沖掉了一個(gè)必要的內(nèi)部程序）。
另外看樣子形參傳遞，經(jīng)過某些字符轉(zhuǎn)換出現(xiàn)錯(cuò)誤，或者使用特殊字符的密碼無(wú)法登陸。有可能是你的寫入權(quán)限不足造成。
對(duì)于此，依然建議卸掉net組件，然后重新安裝一下。
以上僅供參考。
重慶分公司
重慶分公司
