Winters_lee(其实我真的叫迪米亚路) 边长和定长的STRING如何定义?我用dim a as string * 10000 好象不行。
Private Sub Command1_Click() Dim s As String, i As Integer s = String(100000, "x") & "abcde" Debug.Print s End Sub
变长和定长的STRING如何定义?----------------- Private Sub Command1_Click() Dim a As String * 10000, b As String a = String(300, "x") b = String(300, "x") Debug.Print a & "abcde"; vbCrLf; b & "abcde" End Sub
很大的时候会很慢
Private Sub Command1_Click()
Dim s As String
For i = 1 To 60000
s = s & "A"
Next
print s
End Sub
你的方法益处,调整到600后,还是只有253个字符。
不能用数组,一定要字符型,有什么办法啊?
边长和定长的STRING如何定义?我用dim a as string * 10000 好象不行。
Dim s As String, i As Integer
s = String(100000, "x") & "abcde"
Debug.Print s
End Sub
Private Sub Command1_Click()
Dim a As String * 10000, b As String
a = String(300, "x")
b = String(300, "x")
Debug.Print a & "abcde"; vbCrLf; b & "abcde"
End Sub