1左移10位,1后面加10個(gè)0
專注于為中小企業(yè)提供網(wǎng)站建設(shè)、成都網(wǎng)站制作服務(wù),電腦端+手機(jī)端+微信端的三站合一,更高效的管理,為中小企業(yè)綠園免費(fèi)做網(wǎng)站提供優(yōu)質(zhì)的服務(wù)。我們立足成都,凝聚了一批互聯(lián)網(wǎng)行業(yè)人才,有力地推動(dòng)了上千多家企業(yè)的穩(wěn)健成長,幫助中小企業(yè)通過網(wǎng)站建設(shè)實(shí)現(xiàn)規(guī)模擴(kuò)充和轉(zhuǎn)變。
結(jié)果就是:10000000000
五、按位運(yùn)算符
注意不能在VB.Net中直接使用以下二進(jìn)制數(shù),使用時(shí)需轉(zhuǎn)換為相應(yīng)的十六或十進(jìn)制數(shù)字。
1. 表示按位左移,空缺處補(bǔ)0。如:101101 2 結(jié)果為 110100
2. 表示按位右移,如:101101 2 結(jié)果為 001011
text1.text = format(txthuor.text,"000")'其中000為多少位,txthour為文本框的數(shù)值
'寫入
Dim?bytes()?As?Byte?=?{34,?23,?43,?43,?55,?3}
Dim?items?=?(From?item?In?bytes?Select?item.ToString("000")).ToArray()
System.IO.File.WriteAllLines("c:\test.txt",?items)
'讀取
Dim?items2?=?System.IO.File.ReadAllLines("c:\test.txt")
Dim?bytes2?=?(From?item?In?items2?Select?Byte.Parse(item)).ToArray()
For?Each?item?In?bytes2
Console.WriteLine(item.ToString())
Next
你的步驟:“保存到數(shù)組里再吧元素轉(zhuǎn)換成十六進(jìn)制再相加的”有問題吧?
你所謂的相加是指將字符“1E”與字符“0”相加吧?你如你"1E" + "0"這一步可以寫成:
Format("1E", "00") + Format("0", "00")
你用MsgBox Format("1E", "00") + Format("0", "00") 可以看到結(jié)果是"1E00"
vb判斷變量里的字符個(gè)數(shù)不夠兩個(gè)自動(dòng)在前面補(bǔ)0,提供兩種常用的方法;
1、根據(jù)長度判斷;
a = 5 '注意這里a如果定義為數(shù)字類型(Integer、long等),補(bǔ)零后的變量盡量換一個(gè)其他變量值,比如b
If Len(a) 2 Then b = "0" a else b=a ‘如果a長度小于2,就前面補(bǔ)零
2、先補(bǔ)零,再取后2位
a=5
b = "0" a
b= Right(b, 2)