1樓：塵入蜓孟影食
資料為string型的(二進位)"110110101"？
我只提供把字串轉換成十六進位，你說的我不明白。
dim i as integer
for i = 1 to len(s)
print hex(asc(mid(s, i, 1)))next i
2樓：網友
用途：將二 進 制轉化為十六進位。
輸入：bin(二 進 制數)
輸入資料型別：string
輸出：bin_to_hex(十六進位數)
輸出資料型別：string
輸入的最大數為2147483647個字元。
呼叫舉例："110110101")
public function bin_to_hex(byval bin as string) as string
dim i as long
dim h as string
if len(bin) mod 4 <>0 thenbin = string(4 - len(bin) mod 4, "0") bin
end if
for i = 1 to len(bin) step 4select case mid(bin, i, 4)case "0000": h = h & 0"
case "0001": h = h & 1"
case "0010": h = h & 2"
case "0011": h = h & 3"
case "0100": h = h & 4"
case "0101": h = h & 5"
case "0110": h = h & 6"
case "0111": h = h & 7"
case "1000": h = h & 8"
case "1001": h = h & 9"
case "1010": h = h & a"
case "1011": h = h & b"
case "1100": h = h & c"
case "1101": h = h & d"
case "1110": h = h & e"
case "1111": h = h & f"
end select
next i
while left(h, 1) =0"
h = right(h, len(h) -1)wend bin_to_hex = h
end function
如何把十進位數字轉換為二進位數字?
3樓：塵埃開出花
1、將需要轉換的數值輸入到wps**中。
2、點選二進位數值所在的任意單元格。
3、在上方的公示欄中輸入公式=dec2bin（a2）。
4、點選公式旁邊的綠色對勾。
5、將滑鼠放到b2單元格的小色塊上等其變為+號。
6、按住滑鼠左鍵向下拖拽。
4樓：哇哎西西
想要把乙個十進位的數字轉化為二進位，應該要把數字的整數部分和小數部分分別化成二進位數，再把兩個部分的二進位數合併起來，即可成功得到乙個完整的二進位數。
首先要通過短除法，讓十進位數不斷被2整除，可以得到多個餘數，最後將得到的餘數從下到上排列組合，即可得到轉化的二進位數。
然後把小數部分不斷的對2連乘，取每一步的整數部分，再將所有的整數從上到下排列得到小數部分的二進位數。
5樓：拽拽族
十六進位轉十進位數演算法。
十六進位中，abcdef分別表示10 11 12 13 14 15個位+十位×16+百位×256……
即：16的0，1，2……次方。例如5bb
十進位轉換十六進位。
拿 十進位數 除以十六就可以了。
10轉16：
100以內一點的10轉16心算比較快。10轉16用傳統的計算方式可以了，就是大於15小於256的10進位數除以16為的值為十位的16進位數，其餘數為個位的16進位數，沒餘數則個位為0。如61的16進位是3d，61除以16得3餘13，3作十位數，13轉成d為各位數。
十進位轉換二進位演算法。
比如1994 轉換成二進位如下！
1994/2=997---0997/2=498---1498/2=249---0249/2=124---1124/2=62---062/2 =31---031/2 =15---115/2 =7---17/2 =3---13/2 =1---11/2=0 --1除到零為止。書上有說：除到零。
最後一位剩1這樣加起來就是1994了。
二進位轉換十進位。
例如：110110101
轉為10進位的方法是1+0*2+1*4+0*8+1*16+1*32+0*64+1*128+1*256
就是依次往上遞增2的次方。
6樓：網友
十進位轉二進位：
用2輾轉相除至結果為1
將餘數和最後的1從下向上倒序寫 就是結果。
例如302302/2 = 151 餘0
151/2 = 75 餘1
75/2 = 37 餘1
37/2 = 18 餘1
18/2 = 9 餘0
9/2 = 4 餘1
4/2 = 2 餘0
2/2 = 1 餘0
故二進位為100101110
二進位轉十進位。
從最後一位開始算，依次列為第..位第n位的數（0或1）乘以2的n次方。
得到的結果相加就是答案。
例如：01101011.轉十進位：
第0位：1乘2的0次方=1
1乘2的1次方=2
0乘2的2次方＝0
1乘2的3次方＝8
0乘2的4次方＝0
1乘2的5次方＝32
1乘2的6次方＝64
0乘2的7次方＝0
然後：1＋2＋0
二進位01101011＝十進位107．
7樓：狂芝蘭
方法一： 10進位轉化為2進位：如果是整數轉化就除2取餘（從下而上取值）；如果是小數就乘2取整（從上而下取值）。
例：108轉化為2進位就是：1101010。
方法二： 1 0 1 1 0 1 0 1---二進位。
128+ 0+32+16+0+4+0+1=181---十進位我們以前老師叫這為讀位法。
反過過來按位對應在相加就行了（0就是0）。
8樓：網友
十進位整數轉二進位：
就是把該十進位數，用二因式分解，取餘。
以12為例，轉為二進位。
2除以12得6，餘0，取0
2除以6得3，餘0，取0
2除以3得1，餘1，取1
最後剩下1，由它開始寫起，就可得1100的二進位結果十進位中的小數轉為二進位：，就是把該小數不斷乘2，再取所得的整數部份，直至沒有小數為止，但請注意並不是所有小數都能轉到！
以為例，剩以2得，取整數1
剩以2得，取整數1
剩以2得1，取整數1，就可得的二進位結果。
請問 在VB6 0中使用winsock控制項,作為伺服器要設定本地IP位址嗎
服務端可以這樣 with listen closelocalport 根據text中的數值來定監聽埠 假如為 listen end with 客戶端可以這樣 text為要連線的伺服器ip位址 服務端在本地可以為 text為服務端監聽的埠 vb中使用winsock控制項 都什麼年頭了還vb 應該學學...
vb6 0中已知三邊畫影象
if a b c and a c b and c b a then 能夠構成三角形 else 不能構成三角形 end if 繪圖，純數學計算，太較煩，自己算吧 先畫乙個水平線段a，再以a的兩個端點做圓，計算出兩個圓的交點，取其中乙個交點與線段a的兩個端點畫線，就成了三角形 因為南韓和朝鮮的延坪島事件...
VB6 0中如何使得字串中的某字元選中高亮並使這個字元字型變大
使用richtextbox控制項 private sub command1 click richtextbox1.selstart 3 要高亮的起始字元數 richtextbox1.sellength 5 要高亮的字元數 richtextbox1.selcolor vbred 顏色richtextb...