2013-02-19 102 views
3

在Visual Basic,打印整数字符串在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 

问题 - 它显示的是:

Display in String 
{ 
line 
} 
"next line please" 
{ 
line 
} 
. 
. 

我希望它与 “” 像这样显示:

Display in String 
{ 
"0" 
} 
"next line please" 
{ 
"1" 
} 
. 
. 

我无法在于是找到类似这样的事。 感谢您的帮助。

回答

4

试试这个

Print #page, Spc(10); chr(34) & line & chr(34) 
+0

希德你不离开的机会,甚至阅读的问题)))) – 2013-02-19 13:46:02

+0

@PeterL。我对由此造成的不便深表歉意:P – 2013-02-19 13:47:04

+0

我的荣幸先生 - 我喜欢那场比赛) – 2013-02-19 13:48:44

2

尝试

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