basic - 未初始化变量时如何显示空字符串？

Question

我试图显示一个非常简单的空字符串，他们如何为整数显示一个空数字？我有下面的例子。

Sub()

Dim s As String
Dim Number As Integer

'using a space in double quote
s = " "

'this will display an empty string, well not really empty but the space will make it empty
msgbox(s)

所以基本上我试图做同样的事情整数，而当你为它使用 msgbox 时它什么也不显示。

Answer 1

如果您根本不设置整数，则调用 MsgBox 会将其分配为 0，并将显示 0。使其不显示任何内容的唯一方法是使用 if 语句或函数。

它可能看起来像这样：

Private Sub Run()
    Dim number As Integer
    Message(number)
End Sub

Private Sub Message(ByVal input As Integer)
    If input = 0 Then
        MsgBox("")
    Else
        MsgBox(input)
    End If
End Sub

Answer 2

你应该为你的需要做一个功能

function ShowNumberNonZero( n ) as string
    if n = 0 then
        ShowNumberNonZero = ""
    else
        ShowNumberNonZero = Trim(n)
    end if
end function

接着

msgbox(ShowNumberNonZero(Number))