疑問 - 如何做進位轉換(Vb)

ga1286400 · 2009-10-27, 05:05 PM

--------------------
閱讀本主題的最佳解答
--------------------

我有2個Textbox跟兩個CommandButton
請問怎麼做進位轉換？

例如：二進位轉換十進位

mini · 2009-10-27, 08:42 PM

語法:

Private Sub Command1_Click()

  l = Len(Trim(Text1.Text))   '求二進位字串長度
    For i = 1 To l     '從最左邊開始換算累積到 變數a中
             j = 2 ^ (l - i)
       a = a + CInt(Mid(Text1, i, 1)) * j
    Next
    Text2.Text = a
    
End Sub

P.S.上面沒有做 text1的二進位制限制

ga1286400 · 2009-10-29, 05:18 PM

太感謝了！！
不錯！！

2009-10-27, 05:05 PM	#1
ga1286400 註冊會員榮譽勳章勳章總數 UID - 332499 在線等級: 註冊日期: 2009-10-25 文章: 5 精華: 0 現金: 7 金幣資產: 7 金幣	疑問 - 如何做進位轉換(Vb) -------------------- 閱讀本主題的最佳解答 -------------------- 我有2個Textbox跟兩個CommandButton 請問怎麼做進位轉換？例如：二進位轉換十進位

	送花文章: 0, 收花文章: 1 篇, 收花: 1 次

2009-10-27, 08:42 PM	#2 (permalink)
mini 管理版主榮譽勳章勳章總數17 UID - 4144 在線等級: 註冊日期: 2002-12-07 文章: 13341 精華: 0 現金: 26444 金幣資產: 3024304 金幣	語法: Private Sub Command1_Click() l = Len(Trim(Text1.Text)) '求二進位字串長度 For i = 1 To l '從最左邊開始換算累積到變數a中 j = 2 ^ (l - i) a = a + CInt(Mid(Text1, i, 1)) * j Next Text2.Text = a End Sub P.S.上面沒有做 text1的二進位制限制

	送花文章: 2013, 收花文章: 8001 篇, 收花: 26805 次

2009-10-29, 05:18 PM	#3 (permalink)
ga1286400 註冊會員榮譽勳章勳章總數 UID - 332499 在線等級: 註冊日期: 2009-10-25 文章: 5 精華: 0 現金: 7 金幣資產: 7 金幣	太感謝了！！不錯！！

	送花文章: 0, 收花文章: 1 篇, 收花: 1 次

相似的主題
主題	主題作者	討論區	回覆	最後發表
程式 - 出個題目四則運算	snoopy	程式語言討論區	23	2007-02-24 09:27 PM
要如何做清單呢?	winfka	一般電腦疑難討論區	6	2003-01-18 02:56 PM
請問如何做互動式電子佈告欄的網頁?	Jackbllm	軟體應用問題討論區	0	2003-01-16 11:03 AM
想從正版影片COPY來備份..可是他有防拷..又該如何做ㄋ	edenliu0304	一般電腦疑難討論區	1	2003-01-15 04:26 PM
請教windows2000如何做開機片	lei	一般電腦疑難討論區	0	2002-12-29 09:57 AM

Google 提供的廣告