2013-02-19 131 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