在Visual Basic中将整数打印为String

sw_*_*bed 4 excel vba excel-vba

在Visual Basic中

我有下面的代码写,但我有问题以字符串格式打印它虽然它是类型整数.我试图通过不为30多个数字重复同样的事情来节省时间.

Dim line As Integer
line = 0

Sub DisplayModule(page As Integer, line As Integer)
maxline = 100    
For line = 0 To maxline
Print #page, Spc(6); "Display in String"
Print #page, Spc(8); "{"
Print #page, Spc(10); """line"""
Print #page, Spc(8); "}"
Print #page, Spc(8); "next"
Next
End Sub
Run Code Online (Sandbox Code Playgroud)

问题 - 显示:

Display in String
{
 line
}
"next line please"
{
 line
}
.
.
Run Code Online (Sandbox Code Playgroud)

我希望它用""显示如下:

Display in String
{
 "0"
}
"next line please"
{
 "1"
}
.
.
Run Code Online (Sandbox Code Playgroud)

我在SO上找不到类似的东西.谢谢你的帮助.

Sid*_*out 5

试试这个

Print #page, Spc(10); chr(34) & line & chr(34)
Run Code Online (Sandbox Code Playgroud)