VB萌新求解救-有解無憂

本來以為是資料型別的問題
然后把所有int型別換成long型別
結果還是一模一樣
救救孩子吧
后天就是課程設計答辯了

uj5u.com熱心網友回復：

很簡單的實作，連函式宣告及結尾6行。
但是你拿我的代碼去不經過思考過不了答辯。



Option Explicit



Private Sub Command1_Click()

    Debug.Print "DEC:"; chuk(100, 10)

    Debug.Print "HEX:"; chuk(100, 16)

    Debug.Print "OCT:"; chuk(100, 8)

    Debug.Print "BIN:"; chuk(100, 2)

End Sub



Private Function chuk(ByVal C As Long, ByVal k As Integer)

    Do

        chuk = Hex(C Mod k) & chuk

        C = C \ k

    Loop While C > 0

End Function

uj5u.com熱心網友回復：

參考 1 樓脆皮大雪糕的回復:

很簡單的實作，連函式宣告及結尾6行。
但是你拿我的代碼去不經過思考過不了答辯。



Option Explicit



Private Sub Command1_Click()

    Debug.Print "DEC:"; chuk(100, 10)

    Debug.Print "HEX:"; chuk(100, 16)

    Debug.Print "OCT:"; chuk(100, 8)

    Debug.Print "BIN:"; chuk(100, 2)

End Sub



Private Function chuk(ByVal C As Long, ByVal k As Integer)

    Do

        chuk = Hex(C Mod k) & chuk

        C = C \ k

    Loop While C > 0

End Function

太感謝了，我會認真查資料和思考的

uj5u.com熱心網友回復：

a = a + r * k ^ i
據我了解,指數運算子^后邊不支持變數,所以還是手動回圈相乘吧;

uj5u.com熱心網友回復：

參考 3 樓 milaoshu1020 的回復:

a = a + r * k ^ i
據我了解,指數運算子^后邊不支持變數,所以還是手動回圈相乘吧;



    Dim a As Integer

    Dim b As Integer

    

    a = 3

    b = 2

    Debug.Print a ^ b

沒問題的

uj5u.com熱心網友回復：

參考 4 樓脆皮大雪糕的回復:

Quote: 參考 3 樓 milaoshu1020 的回復:

a = a + r * k ^ i
據我了解,指數運算子^后邊不支持變數,所以還是手動回圈相乘吧;
    Dim a As Integer

    Dim b As Integer

    

    a = 3

    b = 2

    Debug.Print a ^ b
沒問題的

記錯了,不好意思...

轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/30199.html

標籤：VB基礎類

上一篇：請教各位大佬，求到補碼后如何符號位取反變成移碼？

下一篇：vb里不釋放avi檔案，通過提取的位元組流能否進行視頻播放？