[顯示] [隱藏]

出現的 錯誤訊息是
警告        1        變數 'OctStr' 已在指派值之前使用。可能會在執行階段產生 null 參考例外狀況。
警告        2        變數 'Str1' 已在指派值之前使用。可能會在執行階段產生 null 參考例外狀況。
警告        3        變數 'HexStr' 已在指派值之前使用。可能會在執行階段產生 null 參考例外狀況。        

程式碼如下
Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim TextStr As String
    Dim t As Short
    Dim str4 As String

    Private Function NumToOct(ByVal Octint As Integer) As String
        Dim Octmod As Integer
        Dim OctStr As String
        If Octint = 0 Then
            NumToOct = "0"
        Else
            Do While Octint > 0
                Octmod = Octint Mod 8
                Octint = Octint \ 8
                OctStr = Str(Octmod) & OctStr
            Loop
            NumToOct = OctStr
        End If
    End Function
    Private Function NumToBinary(ByVal inte As Integer) As String
        Dim Amod As Integer
        Dim Str1 As String
        If inte = 0 Then
            NumToBinary = "0"
        Else
            Do While inte > 0
                Amod = inte Mod 2
                inte = inte \ 2
                Str1 = Str(Amod) & Str1
            Loop
            NumToBinary = Str1
        End If
    End Function
    Private Function NumToHex(ByVal Hexint As Integer) As String
        Dim HexMod As Integer
        Dim HexStr As String
        If Hexint = 0 Then
            NumToHex = "0"
        Else
            Do While Hexint > 0
                HexMod = Hexint Mod 16
                Hexint = Hexint \ 16
                Select Case HexMod
                    Case 10
                        HexStr = "A" & HexStr
                    Case 11
                        HexStr = "B" & HexStr
                    Case 12
                        HexStr = "C" & HexStr
                    Case 13
                        HexStr = "D" & HexStr
                    Case 14
      [color=blue][size=2][ [u]瀏覽完整內容請先註冊或登入會員[/u]。][/size][/color]

三個Do Loop之前分別加上
OctStr=""
Str1=""
HexStr""
試試看...

我有個小小的建議，發表自己的程式時後面加個註解會比較好，像我之前寫的程式，拿給學校的老師看，老師也一時無法看懂，因為每個人的邏輯概念都不太一樣，所以寫出來的程式都不一樣，最好後面加個註解，這樣才知道你想寫什麼，要幫忙檢查的人會比較好檢查，我在努力幫你找看看。

三個問題其實是一樣的， 像這一行: OctStr = Str(Octmod) & OctStr ，你想把一個數字加到結果字串內，但一開始結果字串還沒有任何字元時，就有可能出現問題，有時可能會對，但那要看程式語言的特性，還是保險點在do外面設定初值為空比較好。

是的，基本是Null 值是不能和字串相加的，可以再Loop之前，或在定義變數時，設為=""
如：
Dim TextStr As String=""
要不然，就辛苦一點，在程式碼內做處理(一般是針對取得外部資料時，不可預知是否為Null)
If TextStr.Equals(DBNull.Value) then
   TextStr=""
End If