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

你应该根据自己的需要制作一个功能

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

然后

msgbox(ShowNumberNonZero(Number))

Answer 2

如果你根本没有设置整数，调用MsgBox会将它指定为0并且它将显示0.唯一的方法是使它不显示任何内容将使用if语句或函数。 / p>

它可能看起来像这样：

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

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

2 个答案: